/* -*- mona-c++ -*-
*
* Copyright (c) Leipzig, Madrid 2004 - 2009
* Max-Planck-Institute for Human Cognitive and Brain Science
* Max-Planck-Institute for Evolutionary Anthropology
* BIT, ETSI Telecomunicacion, UPM
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PUcRPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*/
#include <miaconfig.h>
#include <sstream>
#include <string>
#include <stdexcept>
#include <mia/core/dlloader.hh>
#ifdef WIN32
#include <windows.h>
typedef HINSTANCE ModuleHandle;
#define dlopen(name, flags) LoadLibrary(name)
#define dlclose(handle) FreeLibrary(handle)
#define dlsym(handle, symbol) (void*)GetProcAddress(handle, symbol);
#define dlerror() "unable to load DLL"
#else
#include <dlfcn.h>
typedef void *ModuleHandle;
#endif
NS_MIA_BEGIN
using namespace std;
struct CDLLoaderData {
CDLLoaderData(const char *name, int flags):
_M_module(dlopen(name, flags)),
_M_name(name) {
if (!_M_module) {
stringstream s;
s << name << ":'" << dlerror() << "'";
throw runtime_error(s.str());
}
}
~CDLLoaderData() {
// dlcose(_M_module);
}
void *get_function(const char *name) {
return dlsym(_M_module, name);
}
const string& get_name() const {
return _M_name;
}
private:
ModuleHandle _M_module;
string _M_name;
};
CDLLoader::CDLLoader(const char *name, int flags):
impl(new CDLLoaderData(name, flags))
{
}
CDLLoader::~CDLLoader()
{
delete impl;
}
void *CDLLoader::get_function(const char *name) const
{
return impl->get_function(name);
}
const string& CDLLoader::get_name() const
{
return impl->get_name();
}
NS_MIA_END