paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 03:05:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Actually use FileNameExtension

Browse Source 
git-svn-id: trunk@20092 -
This commit is contained in:
michael 2012-01-16 09:12:55 +00:00
parent 9788e2cad8
commit 776fe528d6
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpdoc/dw_html.pp
View File

@ -3457,7 +3457,7 @@ end;
Class Function THTMLWriter.FileNameExtension : String; Class Function THTMLWriter.FileNameExtension : String;
begin begin
result:='.html'; result:='';
end; end;
// private methods // private methods

4
utils/fpdoc/dwlinear.pp
View File

@ -588,7 +588,9 @@ var
begin begin
PackageName := LowerCase(Copy(Package.Name, 2, 255)); PackageName := LowerCase(Copy(Package.Name, 2, 255));
If (Engine.OutPut='') then If (Engine.OutPut='') then
Engine.Output:=PackageName+FileNameExtension; Engine.Output:=PackageName+FileNameExtension
else if (ExtractFileExt(Engine.output)='') and (FileNameExtension<>'') then
Engine.Output:=ChangeFileExt(Engine.output,FileNameExtension);
FStream:=TFileStream.Create(Engine.Output,fmCreate); FStream:=TFileStream.Create(Engine.Output,fmCreate);
try try
WriteBeginDocument; WriteBeginDocument;