2012-05-02 16:46:10 +04:00
|
|
|
/*============================================================================
|
|
|
|
KWSys - Kitware System Library
|
|
|
|
Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
|
|
|
|
|
|
|
|
Distributed under the OSI-approved BSD License (the "License");
|
|
|
|
see accompanying file Copyright.txt for details.
|
|
|
|
|
|
|
|
This software is distributed WITHOUT ANY WARRANTY; without even the
|
|
|
|
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
See the License for more information.
|
|
|
|
============================================================================*/
|
|
|
|
#include "kwsysPrivate.h"
|
|
|
|
|
|
|
|
#include KWSYS_HEADER(DynamicLoader.hxx)
|
|
|
|
#include KWSYS_HEADER(ios/iostream)
|
|
|
|
#include KWSYS_HEADER(stl/string)
|
|
|
|
|
2013-01-07 19:20:26 +04:00
|
|
|
#if defined(__BEOS__)
|
2012-05-02 16:46:10 +04:00
|
|
|
#include <be/kernel/OS.h> /* disable_debugger() API. */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(__HAIKU__)
|
|
|
|
#include <os/kernel/OS.h> /* disable_debugger() API. */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
// Work-around CMake dependency scanning limitation. This must
|
|
|
|
// duplicate the above list of headers.
|
|
|
|
#if 0
|
|
|
|
# include "DynamicLoader.hxx.in"
|
|
|
|
# include "kwsys_ios_iostream.h.in"
|
|
|
|
# include "kwsys_stl_string.hxx.in"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
// Include with <> instead of "" to avoid getting any in-source copy
|
|
|
|
// left on disk.
|
|
|
|
#include <testSystemTools.h>
|
|
|
|
|
|
|
|
kwsys_stl::string GetLibName(const char* lname)
|
|
|
|
{
|
|
|
|
// Construct proper name of lib
|
|
|
|
kwsys_stl::string slname;
|
|
|
|
slname = EXECUTABLE_OUTPUT_PATH;
|
|
|
|
#ifdef CMAKE_INTDIR
|
|
|
|
slname += "/";
|
|
|
|
slname += CMAKE_INTDIR;
|
|
|
|
#endif
|
|
|
|
slname += "/";
|
|
|
|
slname += kwsys::DynamicLoader::LibPrefix();
|
|
|
|
slname += lname;
|
|
|
|
slname += kwsys::DynamicLoader::LibExtension();
|
|
|
|
|
|
|
|
return slname;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* libname = Library name (proper prefix, proper extension)
|
|
|
|
* System = symbol to lookup in libname
|
|
|
|
* r1: should OpenLibrary succeed ?
|
|
|
|
* r2: should GetSymbolAddress succeed ?
|
|
|
|
* r3: should CloseLibrary succeed ?
|
|
|
|
*/
|
|
|
|
int TestDynamicLoader(const char* libname, const char* symbol, int r1, int r2, int r3)
|
|
|
|
{
|
|
|
|
kwsys_ios::cerr << "Testing: " << libname << kwsys_ios::endl;
|
|
|
|
kwsys::DynamicLoader::LibraryHandle l
|
|
|
|
= kwsys::DynamicLoader::OpenLibrary(libname);
|
|
|
|
// If result is incompatible with expectation just fails (xor):
|
|
|
|
if( (r1 && !l) || (!r1 && l) )
|
|
|
|
{
|
|
|
|
kwsys_ios::cerr
|
|
|
|
<< kwsys::DynamicLoader::LastError() << kwsys_ios::endl;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
kwsys::DynamicLoader::SymbolPointer f
|
|
|
|
= kwsys::DynamicLoader::GetSymbolAddress(l, symbol);
|
|
|
|
if( (r2 && !f) || (!r2 && f) )
|
|
|
|
{
|
|
|
|
kwsys_ios::cerr
|
|
|
|
<< kwsys::DynamicLoader::LastError() << kwsys_ios::endl;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
#ifndef __APPLE__
|
|
|
|
int s = kwsys::DynamicLoader::CloseLibrary(l);
|
|
|
|
if( (r3 && !s) || (!r3 && s) )
|
|
|
|
{
|
|
|
|
kwsys_ios::cerr
|
|
|
|
<< kwsys::DynamicLoader::LastError() << kwsys_ios::endl;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
#else
|
|
|
|
(void)r3;
|
|
|
|
#endif
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int testDynamicLoader(int argc, char *argv[])
|
|
|
|
{
|
|
|
|
#if defined(_WIN32)
|
|
|
|
SetErrorMode(SEM_FAILCRITICALERRORS | SEM_NOGPFAULTERRORBOX);
|
|
|
|
#elif defined(__BEOS__) || defined(__HAIKU__)
|
|
|
|
disable_debugger(1);
|
|
|
|
#endif
|
|
|
|
int res = 0;
|
|
|
|
if( argc == 3 )
|
|
|
|
{
|
|
|
|
// User specify a libname and symbol to check.
|
|
|
|
res = TestDynamicLoader(argv[1], argv[2],1,1,1);
|
|
|
|
return res;
|
|
|
|
}
|
|
|
|
|
|
|
|
// dlopen() on Syllable before 11/22/2007 doesn't return 0 on error
|
|
|
|
#ifndef __SYLLABLE__
|
|
|
|
// Make sure that inexistant lib is giving correct result
|
|
|
|
res += TestDynamicLoader("azerty_", "foo_bar",0,0,0);
|
|
|
|
// Make sure that random binary file cannnot be assimilated as dylib
|
|
|
|
res += TestDynamicLoader(TEST_SYSTEMTOOLS_BIN_FILE, "wp",0,0,0);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef __linux__
|
|
|
|
// This one is actually fun to test, since dlopen is by default loaded...wonder why :)
|
|
|
|
res += TestDynamicLoader("foobar.lib", "dlopen",0,1,0);
|
|
|
|
res += TestDynamicLoader("libdl.so", "dlopen",1,1,1);
|
|
|
|
res += TestDynamicLoader("libdl.so", "TestDynamicLoader",1,0,1);
|
|
|
|
#endif
|
|
|
|
// Now try on the generated library
|
|
|
|
kwsys_stl::string libname = GetLibName(KWSYS_NAMESPACE_STRING "TestDynload");
|
|
|
|
res += TestDynamicLoader(libname.c_str(), "dummy",1,0,1);
|
|
|
|
res += TestDynamicLoader(libname.c_str(), "TestDynamicLoaderSymbolPointer",1,1,1);
|
|
|
|
res += TestDynamicLoader(libname.c_str(), "_TestDynamicLoaderSymbolPointer",1,0,1);
|
|
|
|
res += TestDynamicLoader(libname.c_str(), "TestDynamicLoaderData",1,1,1);
|
|
|
|
res += TestDynamicLoader(libname.c_str(), "_TestDynamicLoaderData",1,0,1);
|
|
|
|
|
|
|
|
return res;
|
|
|
|
}
|