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

* also passes dialect options to fpdoc, like the makefiles do. Required in trunk fpdocs as of +/- mid december 2020.

Browse Source 
git-svn-id: trunk@64396 -
This commit is contained in:
marco 2021-01-16 15:55:51 +00:00
parent c9fea2b260
commit 35748025c5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
docs/html/build_lcl_docs.lpr
View File

@ -62,6 +62,7 @@ type
FXCTDir: string;
FXCTFile: string;
FXMLSrcDir: string;
FExtraOptions : String;
procedure SetCSSFile(AValue: String);
procedure SetFooterFilename(AValue: String);
procedure SetIncludePath(AValue: string);
@ -97,6 +98,7 @@ type
property XCTDir: string read FXCTDir write SetXCTDir;
property XMLSrcDir: string read FXMLSrcDir write SetXMLSrcDir;
property XCTFile: string read FXCTFile;
property ExtraOptions : string read FExtraOptions write FExtraOptions;
end;
procedure GetEnvDef(var S: String; DefaultValue: String; EnvName: String);
@ -435,6 +437,9 @@ begin
Filename:=InputFile;
if not FilenameIsAbsolute(Filename) then
Filename:=TrimFilename(AppendPathDelim(OutDir)+Filename);
if ExtraOptions<>'' then
for i:=0 to InputList.count-1 do
InputList[i]:=ExtraOptions+' '+InputList[i];
InputList.SaveToFile(Filename);
InputList.Free;
@ -577,6 +582,7 @@ begin
ReadOptions;
Run:=TFPDocRun.Create('lazutils');
Run.ExtraOptions:='-MObjFPC -Scghi'; // extra options from in lazutils makefile.
Run.UsedPkgs.Add('rtl');
Run.UsedPkgs.Add('fcl');
Run.XMLSrcDir := '..'+PathDelim+'xml'+PathDelim+'lazutils';
@ -585,6 +591,7 @@ begin
Run.Free;
Run:=TFPDocRun.Create('lcl');
Run.ExtraOptions:='-MObjFPC -Sic'; // extra options from in LCL makefile.
Run.UsedPkgs.Add('rtl');
Run.UsedPkgs.Add('fcl');
Run.UsedPkgs.Add('lazutils');