paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from m. spiller to actually output xml

Browse Source 
git-svn-id: trunk@13926 -
This commit is contained in:
michael 2009-10-23 10:11:50 +00:00
parent a611bfc103
commit 19d8ebc5f0
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/fpdoc/dw_xml.pp
View File

@ -21,7 +21,7 @@ unit dw_XML;
interface
uses DOM, PasTree, dwriter;
uses DOM, PasTree, dwriter, xmlWrite, SysUtils;
Type
@ -104,8 +104,19 @@ end;
{ TXMLWriter }
procedure TXMLWriter.WriteDoc;
var
doc: TXMLDocument;
i: Integer;
begin
if Engine.Output <> '' then
Engine.Output := IncludeTrailingBackSlash(Engine.Output);
for i := 0 to Package.Modules.Count - 1 do
begin
doc := ModuleToXMLStruct(TPasModule(Package.Modules[i]));
WriteXMLFile(doc, Engine.Output + TPasModule(Package.Modules[i]).Name + '.xml' );
doc.Free;
end;
end;
initialization