mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD/StashFS: step-31: improve TStashFileSourceProcessor

Browse source
This commit is contained in:
rich2014 2026-06-09 16:14:17 +08:00
commit de67618dd8
1 changed files with 13 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/filesources/stash/ustashfilesource.pas
View file

@ -104,18 +104,9 @@ var
procedure doSource;
begin
params.handled:= True;
if targetFS.IsClass(TStashFileSource) then begin
params.consultResult:= fscrNotSupported;
Exit;
end;
if NOT (fspDirectAccess in targetFS.Properties) and
NOT (fsoCopyIn in targetFS.GetOperationsTypes) then begin
params.consultResult:= fscrNotSupported;
NOT (fsoCopyIn in targetFS.GetOperationsTypes) then
Exit;
end;
if fspDirectAccess in targetFS.Properties then begin
params.resultOperationType:= fsoCopyOut;
@ -124,29 +115,29 @@ var
params.resultOperationType:= fsoCopyIn;
params.resultFS:= targetFS;
end;
params.operationTemp:= False;
params.consultResult:= fscrSuccess;
params.handled:= False;
end;
procedure doTarget;
begin
params.handled:= True;
if sourceFS.IsClass(TStashFileSource) then begin
params.consultResult:= fscrNotSupported;
if NOT (fspDirectAccess in sourceFS.Properties) then
Exit;
end;
if NOT (fspDirectAccess in sourceFS.Properties) then begin
params.consultResult:= fscrNotSupported;
Exit;
end;
params.resultOperationType:= fsoCopyIn;
params.resultFS:= targetFS;
params.operationTemp:= False;
params.consultResult:= fscrSuccess;
end;
begin
params.consultResult:= fscrNotSupported;
params.handled:= True;
if params.partnerFS.IsClass(TStashFileSource) then
Exit;
sourceFS:= params.sourceFS;
targetFS:= params.targetFS;
@ -162,10 +153,10 @@ begin
params.consultResult:= fscrNotSupported;
params.handled:= True;
if params.phase=TFileSourceConsultPhase.target then
if params.partnerFS.IsClass(TStashFileSource) then
Exit;
if params.targetFS.IsClass(TStashFileSource) then
if params.phase=TFileSourceConsultPhase.target then
Exit;
if fspDirectAccess in params.targetFS.Properties then