From e5630511e0a5182f7c7249a0cb047725b41b7163 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 23 Sep 2009 15:16:36 +0200 Subject: Enable experimental mkdir with parents by default It was previously disabled due to some reason, unknown to me now. --- UEngines.pas | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'UEngines.pas') diff --git a/UEngines.pas b/UEngines.pas index 9483dfb..b77d7e3 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -185,7 +185,7 @@ procedure FreeDataItem(DataItem: PDataItem); overload; implementation -uses SysUtils, UCoreUtils; +uses SysUtils, UCoreUtils, UGnome; (********************************************************************************************************************************) constructor TPanelEngine.Create; @@ -446,15 +446,17 @@ begin // DebugMsg(['(II) TLocalTreeEngine.MakeDir: begin']); Result := __mkdir(PChar(NewDir), OctalToAttr(ConfDefaultDirCreationMask)); // DebugMsg(['(II) TLocalTreeEngine.MakeDir: Result = ', Result]); - if Result <> 0 then Result := errno; -(* +// if Result <> 0 then Result := errno; + if Result <> 0 then try - if Self.DirectoryExists(NewDir) { or (not g_mkdir_with_parents(dd))} {ForceDirectories(NewDir))} then Result := errno; + if Self.DirectoryExists(NewDir) or (g_mkdir_with_parents(PChar(NewDir), OctalToAttr(ConfDefaultDirCreationMask)) <> 0) {ForceDirectories(NewDir))} + then Result := errno + else Result := 0; except Result := -1; DebugMsg(['(II) TLocalTreeEngine.MakeDir: Exception']); end; -*) + // DebugMsg(['(II) TLocalTreeEngine.MakeDir: end']); end; -- cgit v1.2.3