void CoreSetResourceModule(void * ResourceHandle)
{
#ifndef NO_FILEZILLA
TFileZillaIntf::SetResourceModule(ResourceHandle);
#else
USEDPARAM(ResourceHandle);
#endif
}
//---------------------------------------------------------------------------
void ldisc_send(void * /*handle*/, char * /*buf*/, int len, int /*interactive*/)
{
// This is only here because of the calls to ldisc_send(NULL,
// 0) in ssh.c. Nothing in PSCP actually needs to use the ldisc
// as an ldisc. So if we get called with any real data, I want
// to know about it.
assert(len == 0);
USEDPARAM(len);
}
long reg_set_winscp_value_ex(HKEY Key, const char * ValueName, unsigned long /*Reserved*/,
unsigned long Type, const uint8_t * Data, unsigned long DataSize)
{
assert(Type == REG_SZ);
USEDPARAM(Type);
THierarchicalStorage * Storage = reinterpret_cast<THierarchicalStorage *>(Key);
assert(Storage != nullptr);
if (Storage != nullptr)
{
UnicodeString Value(reinterpret_cast<const char *>(Data), DataSize - 1);
Storage->WriteStringRaw(ValueName, Value);
}
return ERROR_SUCCESS;
}
//---------------------------------------------------------------------------
static long OpenWinSCPKey(HKEY Key, const char * SubKey, HKEY * Result, bool CanCreate)
{
long R;
assert(Configuration != NULL);
assert(Key == HKEY_CURRENT_USER);
USEDPARAM(Key);
UnicodeString RegKey = SubKey;
int PuttyKeyLen = OriginalPuttyRegistryStorageKey.Length();
assert(RegKey.SubString(1, PuttyKeyLen) == OriginalPuttyRegistryStorageKey);
RegKey = RegKey.SubString(PuttyKeyLen + 1, RegKey.Length() - PuttyKeyLen);
if (!RegKey.IsEmpty())
{
assert(RegKey[1] == L'\\');
RegKey.Delete(1, 1);
}
if (RegKey.IsEmpty())
{
*Result = static_cast<HKEY>(NULL);
R = ERROR_SUCCESS;
}
else
{
// we expect this to be called only from verify_host_key() or store_host_key()
assert(RegKey == L"SshHostKeys");
THierarchicalStorage * Storage = Configuration->CreateConfigStorage();
Storage->AccessMode = (CanCreate ? smReadWrite : smRead);
if (Storage->OpenSubKey(RegKey, CanCreate))
{
*Result = reinterpret_cast<HKEY>(Storage);
R = ERROR_SUCCESS;
}
else
{
delete Storage;
R = ERROR_CANTOPEN;
}
}
return R;
}
static long OpenWinSCPKey(HKEY Key, const char * SubKey, HKEY * Result, bool CanCreate)
{
long R;
assert(GetConfiguration() != nullptr);
assert(Key == HKEY_CURRENT_USER);
USEDPARAM(Key);
UnicodeString RegKey = SubKey;
UnicodeString OriginalPuttyRegistryStorageKey(_T(PUTTY_REG_POS));
intptr_t PuttyKeyLen = OriginalPuttyRegistryStorageKey.Length();
assert(RegKey.SubString(1, PuttyKeyLen) == OriginalPuttyRegistryStorageKey);
RegKey = RegKey.SubString(PuttyKeyLen + 1, RegKey.Length() - PuttyKeyLen);
if (!RegKey.IsEmpty())
{
assert(RegKey[1] == L'\\');
RegKey.Delete(1, 1);
}
if (RegKey.IsEmpty())
{
*Result = static_cast<HKEY>(nullptr);
R = ERROR_SUCCESS;
}
else
{
// we expect this to be called only from verify_host_key() or store_host_key()
assert(RegKey == L"SshHostKeys");
std::unique_ptr<THierarchicalStorage> Storage(GetConfiguration()->CreateConfigStorage());
Storage->SetAccessMode((CanCreate ? smReadWrite : smRead));
if (Storage->OpenSubKey(RegKey, CanCreate))
{
*Result = reinterpret_cast<HKEY>(Storage.release());
R = ERROR_SUCCESS;
}
else
{
R = ERROR_CANTOPEN;
}
}
return R;
}
//---------------------------------------------------------------------------
void __fastcall TUnixDirView::ExecuteFile(TListItem * Item)
{
#ifndef DESIGN_ONLY
ASSERT_VALID_ITEM;
if (ITEMFILE->IsDirectory ||
!Terminal->ResolvingSymlinks)
{
PathChanging(true);
ChangeDirectory(ITEMFILE->FileName);
}
else
{
if (ItemFocused != Item) ItemFocused = Item;
DisplayPropertiesMenu();
}
#else
USEDPARAM(Item);
#endif
}