void FileImpl::renameToImpl(const std::string& path)
{
poco_assert (!_path.empty());
POCO_DESCRIPTOR_STRING(oldNameDsc, _path);
POCO_DESCRIPTOR_STRING(newNameDsc, path);
int res;
if ((res = lib$rename_file(&oldNameDsc, &newNameDsc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)) != 1)
{
switch (res & 0x0FFFFFFF)
{
case RMS$_FNF:
throw FileNotFoundException(_path);
case RMS$_DEV:
case RMS$_DNF:
throw PathNotFoundException(_path);
case RMS$_SYN:
throw PathSyntaxException(path);
case RMS$_RMV:
throw FileAccessDeniedException(_path);
case RMS$_PRV:
throw FileAccessDeniedException("insufficient privileges", _path);
default:
throw FileException(path);
}
}
}
std::string EnvironmentImpl::trnlnm(const std::string& name)
{
#pragma pointer_size save
#pragma pointer_size 32
unsigned char result[LNM$C_NAMLENGTH];
unsigned short length;
ILE3 items[2];
items[0].ile3$w_code = LNM$_STRING;
items[0].ile3$w_length = sizeof(result);
items[0].ile3$ps_bufaddr = result;
items[0].ile3$ps_retlen_addr = &length;
items[1].ile3$w_code = 0;
items[1].ile3$w_length = 0;
#pragma pointer_size restore
unsigned int trnAttr = LNM$M_CASE_BLIND;
POCO_DESCRIPTOR_LITERAL(tableDsc, "LNM$FILE_DEV");
POCO_DESCRIPTOR_STRING(nameDsc, name);
if (sys$trnlnm(&trnAttr, &tableDsc, &nameDsc, 0, &items) == 1)
{
if (result[0] == 0x1B)
return std::string((char*) result + 4, length - 4);
else
return std::string((char*) result, length);
}
else
{
return std::string();
}
}
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;
}
