1 kumpf 1.2 //%2006////////////////////////////////////////////////////////////////////////
  2           //
  3           // Copyright (c) 2000, 2001, 2002 BMC Software; Hewlett-Packard Development
  4           // Company, L.P.; IBM Corp.; The Open Group; Tivoli Systems.
  5           // Copyright (c) 2003 BMC Software; Hewlett-Packard Development Company, L.P.;
  6           // IBM Corp.; EMC Corporation, The Open Group.
  7           // Copyright (c) 2004 BMC Software; Hewlett-Packard Development Company, L.P.;
  8           // IBM Corp.; EMC Corporation; VERITAS Software Corporation; The Open Group.
  9           // Copyright (c) 2005 Hewlett-Packard Development Company, L.P.; IBM Corp.;
 10           // EMC Corporation; VERITAS Software Corporation; The Open Group.
 11           // Copyright (c) 2006 Hewlett-Packard Development Company, L.P.; IBM Corp.;
 12           // EMC Corporation; Symantec Corporation; The Open Group.
 13           //
 14           // Permission is hereby granted, free of charge, to any person obtaining a copy
 15           // of this software and associated documentation files (the "Software"), to
 16           // deal in the Software without restriction, including without limitation the
 17           // rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
 18           // sell copies of the Software, and to permit persons to whom the Software is
 19           // furnished to do so, subject to the following conditions:
 20           // 
 21           // THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE SHALL BE INCLUDED IN
 22 kumpf 1.2 // ALL COPIES OR SUBSTANTIAL PORTIONS OF THE SOFTWARE. THE SOFTWARE IS PROVIDED
 23           // "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
 24           // LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
 25           // PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
 26           // HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
 27           // ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 28           // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 29           //
 30           //==============================================================================
 31           //
 32           //%/////////////////////////////////////////////////////////////////////////////
 33           
 34           #include "DynamicLibrary.h"
 35           
 36           #if defined(PEGASUS_OS_OS400)
 37           # include <fcntl.h>
 38           # include <unistd.cleinc>
 39           # include "OS400SystemState.h"  // OS400LoadDynamicLibrary, etc
 40           #else
 41           # include <dlfcn.h>
 42           #endif
 43 kumpf 1.2 
 44           #if defined(PEGASUS_ZOS_SECURITY)
 45           # include <sys/stat.h>
 46           # include "DynamicLibraryzOS_inline.h"
 47           #endif
 48           
 49           PEGASUS_NAMESPACE_BEGIN
 50           
 51           Boolean DynamicLibrary::_load()
 52           {
 53               CString cstr = _fileName.getCString();
 54           
 55           #if defined(PEGASUS_ZOS_SECURITY)
 56               if (!hasProgramControl(cstr))
 57               {
 58                   return false;
 59               }
 60           #endif
 61           
 62           #if defined(PEGASUS_OS_ZOS)
 63               _handle = dlopen(cstr, RTLD_LAZY);
 64 kumpf 1.2 #elif defined(PEGASUS_OS_OS400)
 65               _handle = OS400_LoadDynamicLibrary((const char *)cstr);
 66           #else
 67               _handle = dlopen(cstr, RTLD_NOW);
 68           #endif
 69           
 70               if (_handle == 0)
 71               {
 72                   // Record the load error message
 73           #if defined(PEGASUS_OS_OS400)
 74                   _loadErrorMessage = String(OS400_DynamicLoadError());
 75           #else
 76                   _loadErrorMessage = dlerror();
 77           #endif
 78               }
 79           

 80 kumpf 1.5     return isLoaded();

 81 kumpf 1.2 }
 82           
 83           void DynamicLibrary::_unload()
 84           {
 85           #ifdef PEGASUS_OS_OS400

 86 kumpf 1.5     OS400_UnloadDynamicLibrary(_handle);

 87 kumpf 1.2 #else
 88               dlclose(_handle);
 89           #endif
 90           }
 91           

 92 kumpf 1.4 DynamicLibrary::DynamicSymbolHandle DynamicLibrary::getSymbol(

 93 kumpf 1.2     const String& symbolName)
 94           {
 95               PEGASUS_ASSERT(isLoaded());
 96           
 97               CString cstr = symbolName.getCString();
 98           
 99           #ifdef PEGASUS_OS_OS400

100 kumpf 1.4     DynamicSymbolHandle func = (DynamicSymbolHandle)

101 kumpf 1.2         OS400_LoadDynamicSymbol(_handle, (const char *)cstr);
102           #else

103 kumpf 1.4     DynamicSymbolHandle func =
104                   (DynamicSymbolHandle) dlsym(_handle, (const char *)cstr);

105 kumpf 1.2 #endif
106           
107               return func;
108           }
109           
110           PEGASUS_NAMESPACE_END