1 thilo.boehm 1.1 //%LICENSE////////////////////////////////////////////////////////////////
 2                 //
 3                 // Licensed to The Open Group (TOG) under one or more contributor license
 4                 // agreements.  Refer to the OpenPegasusNOTICE.txt file distributed with
 5                 // this work for additional information regarding copyright ownership.
 6                 // Each contributor licenses this file to you under the OpenPegasus Open
 7                 // Source License; you may not use this file except in compliance with the
 8                 // License.
 9                 //
10                 // Permission is hereby granted, free of charge, to any person obtaining a
11                 // copy of this software and associated documentation files (the "Software"),
12                 // to deal in the Software without restriction, including without limitation
13                 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
14                 // and/or sell copies of the Software, and to permit persons to whom the
15                 // Software is furnished to do so, subject to the following conditions:
16                 //
17                 // The above copyright notice and this permission notice shall be included
18                 // in all copies or substantial portions of the Software.
19                 //
20                 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
21                 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 thilo.boehm 1.1 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
23                 // IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
24                 // CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
25                 // TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
26                 // SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
27                 //
28                 //////////////////////////////////////////////////////////////////////////
29                 //
30                 //%/////////////////////////////////////////////////////////////////////////////
31                 
32                 #include "DynamicLibrary.h"

33 marek       1.2 #include <Pegasus/Common/MessageLoader.h>

34 thilo.boehm 1.1 
35                 #include <dlfcn.h>
36                 
37                 #if defined(PEGASUS_ZOS_SECURITY)
38                 # include <sys/stat.h>
39                 # include "DynamicLibraryzOS_inline.h"
40                 #endif
41                 
42                 PEGASUS_NAMESPACE_BEGIN
43                 
44                 Boolean DynamicLibrary::_load()
45                 {
46                     CString cstr = _fileName.getCString();
47                 
48                 #if defined(PEGASUS_ZOS_SECURITY)
49                     if (!hasProgramControl(cstr))
50                     {

51 marek       1.2         MessageLoaderParms parms(
52                             "General.DynamicLibrary.MISSING_PROGRAM_CONTROL_REASON.ZOS",
53                             "Missing program control flag.");
54                         _loadErrorMessage = MessageLoader::getMessage(parms);

55 thilo.boehm 1.1         return false;
56                     }
57                 #endif
58                 
59                 #if defined(PEGASUS_OS_ZOS)
60                     _handle = dlopen(cstr, RTLD_LAZY | RTLD_GLOBAL);
61                 #elif defined(PEGASUS_OS_VMS)
62                     _handle = dlopen(cstr, RTLD_NOW);
63                 #else
64                     _handle = dlopen(cstr, RTLD_NOW | RTLD_GLOBAL);
65                 #endif
66                 
67                     if (_handle == 0)
68                     {
69                         // Record the load error message
70                         _loadErrorMessage = dlerror();
71                     }
72                 
73                     return isLoaded();
74                 }
75                 
76 thilo.boehm 1.1 void DynamicLibrary::_unload()
77                 {
78                     dlclose(_handle);
79                 }
80                 
81                 DynamicLibrary::DynamicSymbolHandle DynamicLibrary::getSymbol(
82                     const String& symbolName)
83                 {
84                     PEGASUS_ASSERT(isLoaded());
85                 
86                 #if defined(PEGASUS_OS_VMS)
87                     String str = symbolName.subString(0, 31);
88                     CString cstr = str.getCString();
89                 #else
90                     CString cstr = symbolName.getCString();
91                 #endif
92                 
93                     DynamicSymbolHandle func =
94                         (DynamicSymbolHandle) dlsym(_handle, (const char *)cstr);
95                 
96                     return func;
97 thilo.boehm 1.1 }
98                 
99                 PEGASUS_NAMESPACE_END