haikuprojects/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

headertoxml now support any number of classes per header

Browse Source
This commit is contained in:
ocoursiere
2002-11-19 23:30:26 +00:00
parent 3f97b1f69d
commit 1d4758c59d
1 changed files with 34 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bepascal/bepascal/headertoxml/headertoxml.pp
View File

@@ -173,6 +173,10 @@ begin
XMLWriter := TXMLWriter.Create(s); XMLWriter := TXMLWriter.Create(s);
try try
XMLWriter.StartClasses; XMLWriter.StartClasses;
while Elem <> nil do
begin
if Elem <> nil then
WriteLn(Elem^.aName);
XMLWriter.StartClasse(Elem); XMLWriter.StartClasse(Elem);
XMLWriter.StartFunction(Elem^.children); XMLWriter.StartFunction(Elem^.children);
CurrentArg := Elem^.args; CurrentArg := Elem^.args;
@@ -206,6 +210,8 @@ begin
XMLWriter.EndFunction; XMLWriter.EndFunction;
end; end;
XMLWriter.EndClasse; XMLWriter.EndClasse;
Elem := Elem^.next;
end;
XMLWriter.EndClasses; XMLWriter.EndClasses;
finally finally
XMLWriter.Free; XMLWriter.Free;