static void ConList( void ) {
//=========================
// Collect constants for data initialization.
OPR opr;
itnode *last_node;
opr = FindSlash( &last_node );
for(;;) {
if( RecNextOpr( OPR_MUL ) ) {
ProcDataRepExpr();
if( ITIntValue( CITNode ) <= 0 ) {
Error( DA_BAD_RPT_SPEC );
}
AddConst( CITNode );
AdvanceITPtr();
}
if( !HexConst() ) {
GetSConst();
AddConst( CITNode );
}
AdvanceITPtr();
if( CITNode == last_node )
break;
ReqComma();
if( AError ) {
break;
}
}
CITNode->opr = opr;
ReqDiv();
}
string &CurPath2ComputerName(const string& CurDir, string &strComputerName, string &strTail)
{
string strNetDir;
strComputerName.clear();
strTail.clear();
if (!CurDir.compare(0, 2, L"\\\\"))
{
strNetDir = CurDir;
}
else
{
string LocalName(CurDir.data(), 2);
api::WNetGetConnection(LocalName, strNetDir);
}
if (!strNetDir.compare(0, 2, L"\\\\"))
{
strComputerName = strNetDir.substr(2);
size_t pos;
if (!FindSlash(pos,strComputerName))
strComputerName.clear();
else
{
strTail = strComputerName.substr(pos + 1);
strComputerName.resize(pos);
}
}
return strComputerName;
}
static void VarList( void ) {
//=========================
// Process one variable list in a DATA statement.
OPR last_opr;
OPR opr;
int do_level;
itnode *last_node;
do_level = 0;
last_opr = FindSlash( &last_node );
while( CITNode != last_node ) {
if( AError )
break;
if( RecTrmOpr() && ( CITNode != ITHead ) ) {
--do_level;
FinishImpDo();
} else if( StartImpDo() ) {
++do_level;
} else if( ReqName( NAME_VAR_OR_ARR ) ) {
InitVar = LkSym();
if( InitVar->u.ns.u1.s.typ == FT_STRUCTURE ) {
// make sure structure size is calculated - normally
// structure size is calculated by StructResolve() which
// is not called until the first executable statement
CalcStructSize( InitVar->u.ns.xt.sym_record );
}
CkFlags();
opr = CITNode->opr;
ProcDataExpr();
CITNode->opr = opr;
ListItem();
if( !RecTrmOpr() ) {
ReqComma();
}
} else {
AdvanceITPtr();
AError = true;
break;
}
}
if( AError ) {
while( do_level != 0 ) { // clean up hanging do entrys
TermDo();
--do_level;
}
} else {
CITNode->opr = last_opr;
ReqDiv();
}
}
string Panel::CreateFullPathName(string_view const Name, bool const Directory, bool const UNC, bool const ShortNameAsIs) const
{
auto FullName = FindSlash(Name) == string::npos? ConvertNameToFull(Name) : string(Name);
if (m_ShowShortNames && ShortNameAsIs)
FullName = ConvertNameToShort(FullName);
/* $ 29.01.2001 VVM
+ По CTRL+ALT+F в командную строку сбрасывается UNC-имя текущего файла. */
if (UNC)
FullName = ConvertNameToUNC(FullName);
// $ 20.10.2000 SVS Сделаем фичу Ctrl-F опциональной!
if (Global->Opt->PanelCtrlFRule)
{
/* $ 13.10.2000 tran
по Ctrl-f имя должно отвечать условиям на панели */
if (m_ViewSettings.Flags&PVS_FOLDERUPPERCASE)
{
if (Directory)
{
inplace::upper(FullName);
}
else
{
inplace::upper(FullName, 0, FindLastSlash(FullName));
}
}
if ((m_ViewSettings.Flags&PVS_FILEUPPERTOLOWERCASE) && !Directory)
{
const auto pos = FindLastSlash(FullName);
if (pos != string::npos && !IsCaseMixed(string_view(FullName).substr(pos)))
{
inplace::lower(FullName, pos);
}
}
if ((m_ViewSettings.Flags&PVS_FILELOWERCASE) && !Directory)
{
const auto pos = FindLastSlash(FullName);
if (pos != string::npos)
{
inplace::lower(FullName, pos);
}
}
}
return FullName;
}
string ConvertNameToUNC(string_view const Object)
{
auto strFileName = ConvertNameToFull(Object);
// Посмотрим на тип файловой системы
string strFileSystemName;
os::fs::GetVolumeInformation(GetPathRoot(strFileName), nullptr, nullptr, nullptr, nullptr, &strFileSystemName);
DWORD uniSize = 1024;
block_ptr<UNIVERSAL_NAME_INFO> uni(uniSize);
// применяем WNetGetUniversalName для чего угодно, только не для Novell`а
if (!equal_icase(strFileSystemName, L"NWFS"sv))
{
switch (WNetGetUniversalName(strFileName.c_str(), UNIVERSAL_NAME_INFO_LEVEL, uni.get(), &uniSize))
{
case NO_ERROR:
strFileName = uni->lpUniversalName;
break;
case ERROR_MORE_DATA:
uni.reset(uniSize);
if (WNetGetUniversalName(strFileName.c_str(),UNIVERSAL_NAME_INFO_LEVEL,uni.get(),&uniSize)==NO_ERROR)
strFileName = uni->lpUniversalName;
break;
}
}
else if (strFileName.size() > 1 && strFileName[1] == L':')
{
// BugZ#449 - Неверная работа CtrlAltF с ресурсами Novell DS
// Здесь, если не получилось получить UniversalName и если это
// мапленный диск - получаем как для меню выбора дисков
string strTemp;
if (DriveLocalToRemoteName(DRIVE_UNKNOWN,strFileName[0],strTemp))
{
const auto SlashPos = FindSlash(strFileName);
if (SlashPos != string::npos)
path::append(strTemp, string_view(strFileName).substr(SlashPos + 1));
strFileName = strTemp;
}
}
return ConvertNameToReal(strFileName);
}
void ShellMakeDir(Panel *SrcPanel)
{
string strDirName;
string strOriginalDirName;
wchar_t *lpwszDirName;
UserDefinedList DirList(0,0,ULF_UNIQUE);
DialogDataEx MkDirDlgData[]=
{
DI_DOUBLEBOX,3,1,72,8,0,0,MSG(MMakeFolderTitle),
DI_TEXT, 5,2, 0,2,0,0,MSG(MCreateFolder),
DI_EDIT, 5,3,70,3,(DWORD_PTR)L"NewFolder",DIF_FOCUS|DIF_EDITEXPAND|DIF_HISTORY|DIF_USELASTHISTORY|DIF_EDITPATH,L"",
DI_TEXT, 0,4, 0,4,0,DIF_SEPARATOR,L"",
DI_CHECKBOX, 5,5, 0,5,Opt.MultiMakeDir,0,MSG(MMultiMakeDir),
DI_TEXT, 0,6, 0,6,0,DIF_SEPARATOR,L"",
DI_BUTTON, 0,7, 0,7,0,DIF_DEFAULT|DIF_CENTERGROUP,MSG(MOk),
DI_BUTTON, 0,7, 0,7,0,DIF_CENTERGROUP,MSG(MCancel),
};
MakeDialogItemsEx(MkDirDlgData,MkDirDlg);
Dialog Dlg(MkDirDlg,ARRAYSIZE(MkDirDlg),MkDirDlgProc,reinterpret_cast<LONG_PTR>(&DirList));
Dlg.SetPosition(-1,-1,76,10);
Dlg.SetHelp(L"MakeFolder");
Dlg.SetId(MakeFolderId);
Dlg.Process();
if (Dlg.GetExitCode()==MKDIR_OK)
{
strDirName=MkDirDlg[MKDIR_EDIT].strData;
const wchar_t *OneDir;
DirList.Reset();
while (nullptr!=(OneDir=DirList.GetNext()))
{
strDirName = OneDir;
strOriginalDirName = strDirName;
//Unquote(DirName);
if (Opt.CreateUppercaseFolders && !IsCaseMixed(strDirName))
strDirName.Upper();
DeleteEndSlash(strDirName,true);
lpwszDirName = strDirName.GetBuffer();
bool bSuccess = false;
if(HasPathPrefix(lpwszDirName))
{
lpwszDirName += 4;
}
for (wchar_t *ChPtr=lpwszDirName; *ChPtr; ChPtr++)
{
if (IsSlash(*ChPtr))
{
WCHAR Ch = ChPtr[1];
ChPtr[1] = 0;
if (*lpwszDirName &&
(apiGetFileAttributes(lpwszDirName) == INVALID_FILE_ATTRIBUTES) &&
apiCreateDirectory(lpwszDirName,nullptr))
{
TreeList::AddTreeName(lpwszDirName);
bSuccess = true;
}
ChPtr[1] = Ch;
}
}
strDirName.ReleaseBuffer();
BOOL bSuccess2;
bool bSkip=false;
while (!(bSuccess2=apiCreateDirectory(strDirName,nullptr)))
{
int LastError=GetLastError();
if (LastError==ERROR_ALREADY_EXISTS || LastError==ERROR_BAD_PATHNAME ||
LastError==ERROR_INVALID_NAME || LastError == ERROR_DIRECTORY)
{
int ret;
if (DirList.IsEmpty())
ret=Message(MSG_WARNING|MSG_ERRORTYPE,1,MSG(MError),MSG(MCannotCreateFolder),strOriginalDirName,MSG(MCancel));
else
ret=Message(MSG_WARNING|MSG_ERRORTYPE,2,MSG(MError),MSG(MCannotCreateFolder),strOriginalDirName,MSG(MOk),MSG(MSkip));
bSkip = ret==1;
if (bSuccess || bSkip)
break;
else
return;
}
else
{
int ret;
if (DirList.IsEmpty())
{
ret=Message(MSG_WARNING|MSG_ERRORTYPE,2,MSG(MError),MSG(MCannotCreateFolder),strOriginalDirName,MSG(MRetry),MSG(MCancel));
}
else
{
ret=Message(MSG_WARNING|MSG_ERRORTYPE,3,MSG(MError),MSG(MCannotCreateFolder),strOriginalDirName,MSG(MRetry),MSG(MSkip),MSG(MCancel));
bSkip = ret==1;
}
if (ret)
{
if (bSuccess || bSkip) break;
else return;
}
}
}
if (bSuccess2)
TreeList::AddTreeName(strDirName);
else if (!bSkip)
break;
}
SrcPanel->Update(UPDATE_KEEP_SELECTION);
if (!strDirName.IsEmpty())
{
size_t pos;
if (FindSlash(pos,strDirName))
strDirName.SetLength(pos);
if (!SrcPanel->GoToFile(strDirName) && strDirName.At(strDirName.GetLength()-1)==L'.')
{
strDirName.SetLength(strDirName.GetLength()-1);
SrcPanel->GoToFile(strDirName);
}
}
SrcPanel->Redraw();
Panel *AnotherPanel=CtrlObject->Cp()->GetAnotherPanel(SrcPanel);
int AnotherType=AnotherPanel->GetType();
if (AnotherPanel->NeedUpdatePanel(SrcPanel) || AnotherType==QVIEW_PANEL)
{
AnotherPanel->Update(UPDATE_KEEP_SELECTION|UPDATE_SECONDARY);
AnotherPanel->Redraw();
}
}
}
void ShellMakeDir(Panel *SrcPanel)
{
FarList ComboList={sizeof(FarList)};
FarListItem LinkTypeItems[3]={};
ComboList.ItemsNumber=ARRAYSIZE(LinkTypeItems);
ComboList.Items=LinkTypeItems;
ComboList.Items[0].Text=MSG(MMakeFolderLinkNone);
ComboList.Items[1].Text=MSG(MMakeFolderLinkJunction);
ComboList.Items[2].Text=MSG(MMakeFolderLinkSymlink);
ComboList.Items[0].Flags|=LIF_SELECTED;
FarDialogItem MkDirDlgData[]=
{
{DI_DOUBLEBOX,3,1,72,10,0,nullptr,nullptr,0,MSG(MMakeFolderTitle)},
{DI_TEXT, 5,2, 0,2,0,nullptr,nullptr,0,MSG(MCreateFolder)},
{DI_EDIT, 5,3,70,3,0,L"NewFolder",nullptr,DIF_FOCUS|DIF_EDITEXPAND|DIF_HISTORY|DIF_USELASTHISTORY|DIF_EDITPATH,L""},
{DI_TEXT, 0,4, 0,4,0,nullptr,nullptr,DIF_SEPARATOR,L""},
{DI_TEXT, 5,5, 0,5,0,nullptr,nullptr,0,MSG(MMakeFolderLinkType)},
{DI_COMBOBOX,20,5,70,5,0,nullptr,nullptr,DIF_DROPDOWNLIST|DIF_LISTNOAMPERSAND|DIF_LISTWRAPMODE,L""},
{DI_TEXT, 5,6, 0,6,0,nullptr,nullptr,0,MSG(MMakeFolderLinkTarget)},
{DI_EDIT, 20,6,70,6,0,L"NewFolderLinkTarget",nullptr,DIF_DISABLE|DIF_EDITEXPAND|DIF_HISTORY|DIF_USELASTHISTORY|DIF_EDITPATH,L""},
{DI_CHECKBOX, 5,7, 0,7,Opt.MultiMakeDir,nullptr,nullptr,0,MSG(MMultiMakeDir)},
{DI_TEXT, 0,8, 0,8,0,nullptr,nullptr,DIF_SEPARATOR,L""},
{DI_BUTTON, 0,9, 0,9,0,nullptr,nullptr,DIF_DEFAULTBUTTON|DIF_CENTERGROUP,MSG(MOk)},
{DI_BUTTON, 0,9, 0,9,0,nullptr,nullptr,DIF_CENTERGROUP,MSG(MCancel)},
};
MakeDialogItemsEx(MkDirDlgData,MkDirDlg);
MkDirDlg[MKDIR_COMBOBOX_LINKTYPE].ListItems=&ComboList;
UserDefinedList DirList(ULF_UNIQUE);
Dialog Dlg(MkDirDlg,ARRAYSIZE(MkDirDlg),MkDirDlgProc,&DirList);
Dlg.SetPosition(-1,-1,76,12);
Dlg.SetHelp(L"MakeFolder");
Dlg.SetId(MakeFolderId);
Dlg.Process();
if (Dlg.GetExitCode()==MKDIR_OK)
{
string strDirName=MkDirDlg[MKDIR_EDIT].strData;
string strOriginalDirName;
const wchar_t *OneDir;
DirList.Reset();
bool SkipAll = false;
while (nullptr!=(OneDir=DirList.GetNext()))
{
strDirName = OneDir;
strOriginalDirName = strDirName;
//Unquote(DirName);
if (Opt.CreateUppercaseFolders && !IsCaseMixed(strDirName))
strDirName.Upper();
DeleteEndSlash(strDirName,true);
wchar_t* lpwszDirName = strDirName.GetBuffer();
bool bSuccess = false;
wchar_t *ChPtr;
if(ParsePath(lpwszDirName, const_cast<const wchar_t **>(&ChPtr)) == PATH_UNKNOWN)
{
ChPtr = lpwszDirName;
}
for (; ; ChPtr++)
{
if (IsSlash(*ChPtr) || !*ChPtr)
{
WCHAR Ch=0;
if(*ChPtr)
{
Ch = ChPtr[1];
ChPtr[1] = 0;
}
if (*lpwszDirName)
{
string _strDirName(lpwszDirName);
if (apiGetFileAttributes(_strDirName) == INVALID_FILE_ATTRIBUTES || !*ChPtr) // skip all intermediate dirs, but not last.
{
while(!(bSuccess=(apiCreateDirectory(_strDirName, nullptr)!=FALSE)) && !SkipAll)
{
int Ret = OperationFailed(strOriginalDirName, MError, MSG(MCannotCreateFolder));
if(Ret == 1) // skip
{
break;
}
else if(Ret == 2)
{
SkipAll = true;
break;
}
else if (Ret < 0 || Ret == 3) // cancel
{
return;
}
}
if(bSuccess)
{
TreeList::AddTreeName(_strDirName);
}
}
}
if(*ChPtr)
{
ChPtr[1] = Ch;
}
else
{
break;
}
}
}
strDirName.ReleaseBuffer();
if (bSuccess)
{
if(MkDirDlg[MKDIR_COMBOBOX_LINKTYPE].ListPos)
{
string strTarget=MkDirDlg[MKDIR_EDIT_LINKPATH].strData;
Unquote(strTarget);
while(!CreateReparsePoint(strTarget, strDirName, MkDirDlg[MKDIR_COMBOBOX_LINKTYPE].ListPos==1?RP_JUNCTION:RP_SYMLINKDIR) && !SkipAll)
{
int Ret = OperationFailed(strDirName, MError, MSG(MCopyCannotCreateLink));
if(Ret == 1) // skip
{
break;
}
else if(Ret == 2)
{
SkipAll = true;
break;
}
else if (Ret < 0 || Ret == 3) // cancel
{
return;
}
}
}
TreeList::AddTreeName(strDirName);
}
}
SrcPanel->Update(UPDATE_KEEP_SELECTION);
if (!strDirName.IsEmpty())
{
size_t pos;
if (FindSlash(pos,strDirName))
strDirName.SetLength(pos);
if (!SrcPanel->GoToFile(strDirName) && strDirName.At(strDirName.GetLength()-1)==L'.')
{
strDirName.SetLength(strDirName.GetLength()-1);
SrcPanel->GoToFile(strDirName);
}
}
SrcPanel->Redraw();
Panel *AnotherPanel=CtrlObject->Cp()->GetAnotherPanel(SrcPanel);
int AnotherType=AnotherPanel->GetType();
if (AnotherPanel->NeedUpdatePanel(SrcPanel) || AnotherType==QVIEW_PANEL)
{
AnotherPanel->Update(UPDATE_KEEP_SELECTION|UPDATE_SECONDARY);
AnotherPanel->Redraw();
}
}
}
