mirror of
https://github.com/pocoproject/poco.git
synced 2024-12-30 13:38:17 +01:00
b0581433a7
fix: remove executable flag and change back to 100644 (was 100755) Signed-off-by: Roger Meier <r.meier@siemens.com>
120 lines
2.2 KiB
C++
120 lines
2.2 KiB
C++
//
|
|
// SharedLibrary_VMS.cpp
|
|
//
|
|
// $Id: //poco/1.4/Foundation/src/SharedLibrary_VMS.cpp#2 $
|
|
//
|
|
// Library: Foundation
|
|
// Package: SharedLibrary
|
|
// Module: SharedLibrary
|
|
//
|
|
// Copyright (c) 2004-2006, Applied Informatics Software Engineering GmbH.
|
|
// and Contributors.
|
|
//
|
|
// SPDX-License-Identifier: BSL-1.0
|
|
//
|
|
|
|
|
|
#include "Poco/SharedLibrary_VMS.h"
|
|
#include "Poco/Path.h"
|
|
#include <lib$routines.h>
|
|
#include <libdef.h>
|
|
#include <descrip.h>
|
|
#include <chfdef.h>
|
|
#include <libfisdef.h>
|
|
|
|
|
|
namespace Poco {
|
|
|
|
|
|
FastMutex SharedLibraryImpl::_mutex;
|
|
|
|
|
|
SharedLibraryImpl::SharedLibraryImpl()
|
|
{
|
|
}
|
|
|
|
|
|
SharedLibraryImpl::~SharedLibraryImpl()
|
|
{
|
|
}
|
|
|
|
|
|
void SharedLibraryImpl::loadImpl(const std::string& path, int /*flags*/)
|
|
{
|
|
FastMutex::ScopedLock lock(_mutex);
|
|
|
|
if (!_path.empty()) throw LibraryAlreadyLoadedException(path);
|
|
_path = path;
|
|
}
|
|
|
|
|
|
void SharedLibraryImpl::unloadImpl()
|
|
{
|
|
_path.clear();
|
|
}
|
|
|
|
|
|
bool SharedLibraryImpl::isLoadedImpl() const
|
|
{
|
|
return !_path.empty();
|
|
}
|
|
|
|
|
|
void* SharedLibraryImpl::findSymbolImpl(const std::string& name)
|
|
{
|
|
FastMutex::ScopedLock lock(_mutex);
|
|
|
|
if (_path.empty()) return NULL;
|
|
|
|
Path p(_path);
|
|
std::string filename = p.getBaseName();
|
|
std::string ext = p.getExtension();
|
|
std::string imageSpec = p.makeParent().toString();
|
|
if (!imageSpec.empty() && !ext.empty())
|
|
{
|
|
imageSpec.append(".");
|
|
imageSpec.append(ext);
|
|
}
|
|
int value = 0;
|
|
long flags = LIB$M_FIS_MIXEDCASE;
|
|
POCO_DESCRIPTOR_STRING(filenameDsc, filename);
|
|
POCO_DESCRIPTOR_STRING(symbolDsc, name);
|
|
POCO_DESCRIPTOR_STRING(imageSpecDsc, imageSpec);
|
|
|
|
try
|
|
{
|
|
// lib$find_image_symbol only accepts 32-bit pointers
|
|
#pragma pointer_size save
|
|
#pragma pointer_size 32
|
|
lib$find_image_symbol(&filenameDsc, &symbolDsc, &value, imageSpec.empty() ? 0 : &imageSpecDsc, flags);
|
|
#pragma pointer_size restore
|
|
}
|
|
catch (struct chf$signal_array& sigarr)
|
|
{
|
|
unsigned sig = sigarr.chf$is_sig_name;
|
|
unsigned act = LIB$_ACTIMAGE;
|
|
if (lib$match_cond(&sig, &act))
|
|
throw LibraryLoadException(_path);
|
|
}
|
|
return (void*) value;
|
|
}
|
|
|
|
|
|
const std::string& SharedLibraryImpl::getPathImpl() const
|
|
{
|
|
return _path;
|
|
}
|
|
|
|
|
|
std::string SharedLibraryImpl::suffixImpl()
|
|
{
|
|
#if defined(_DEBUG)
|
|
return "d.exe";
|
|
#else
|
|
return ".exe";
|
|
#endif
|
|
}
|
|
|
|
|
|
} // namespace Poco
|