paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 17:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Issue #39988: Try to create output directory if it does not exist.

Browse Source 
This is more convenient for users and when included in a script.
This commit is contained in:
Abou Al Montacir 2023-05-11 20:51:09 +02:00 committed by Maxim Ganetsky
parent 98f806bb4f
commit 5c34ab0510
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/gir2pascal/gir2pascal.lpr
View File

@ -95,9 +95,9 @@ end;
procedure TGirConsoleConverter.VerifyOptions; procedure TGirConsoleConverter.VerifyOptions;
begin begin
if not DirectoryExists(FOutPutDirectory) then if not ForceDirectories(FOutPutDirectory) then
begin begin
WriteLn(Format('Output directory "%s" does not exist!', [FOutPutDirectory])); WriteLn(Format('Could not create output directory "%s"!', [FOutPutDirectory]));
Terminate; Terminate;
end; end;
if FFileToConvert = '' then if FFileToConvert = '' then