paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 11:20:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Docs: project build_lcl_docs:

Browse Source 
1. Fix compilation under Windows
2. Create outputdirectory before trying to write to it (Part of Issue #0029876)

git-svn-id: trunk@52044 -
This commit is contained in:
bart 2016-03-24 14:36:05 +00:00
parent 65e40fa6a8
commit c6b63b7c3d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
docs/html/build_lcl_docs.lpr
View File

@ -437,8 +437,6 @@ var
begin begin
if ord(Step)>=ord(frsOutDirCreated) then if ord(Step)>=ord(frsOutDirCreated) then
raise Exception.Create('TFPDocRun.CreateOuputDir not again'); raise Exception.Create('TFPDocRun.CreateOuputDir not again');
if ord(Step)<ord(frsFilesGathered) then
FindSourceFiles;
if Not DirectoryExistsUTF8(OutDir) then if Not DirectoryExistsUTF8(OutDir) then
begin begin
@ -447,6 +445,9 @@ begin
raise Exception.Create('unable to create directory "'+OutDir+'"'); raise Exception.Create('unable to create directory "'+OutDir+'"');
end; end;
if ord(Step)<ord(frsFilesGathered) then
FindSourceFiles;
if (OutFormat='chm') and (CSSFile<>'') then if (OutFormat='chm') and (CSSFile<>'') then
begin begin
TargetCSSFile:=AppendPathDelim(OutDir)+ExtractFileName(CSSFile); TargetCSSFile:=AppendPathDelim(OutDir)+ExtractFileName(CSSFile);
@ -478,7 +479,7 @@ begin
writeln('Not executing, simulation ended. Stop'); writeln('Not executing, simulation ended. Stop');
Halt(0); Halt(0);
end; end;
{$IFDEF MSWINDOWS}fpdoc := ChangeFileExt(fpdoc,'.exe');{$ENDIF} {$IFDEF MSWINDOWS}FPDocExe := ChangeFileExt(FPDocExe,'.exe');{$ENDIF}
if not FileInEnvPATH(FPDocExe) then if not FileInEnvPATH(FPDocExe) then
begin begin
WriteLn('Error: fpdoc ('+FPDocExe+') cannot be found. Please add its location to the PATH ', WriteLn('Error: fpdoc ('+FPDocExe+') cannot be found. Please add its location to the PATH ',