headertoxml now support any number of classes per header

2002-11-19 23:30:26 +00:00
parent 3f97b1f69d
commit 1d4758c59d
1 changed files with 34 additions and 28 deletions
--- a/bepascal/bepascal/headertoxml/headertoxml.pp
+++ b/bepascal/bepascal/headertoxml/headertoxml.pp
@@ -173,6 +173,10 @@ begin
    XMLWriter := TXMLWriter.Create(s);
    try
      XMLWriter.StartClasses;
+      while Elem <> nil do
+      begin       
+        if Elem <> nil then
+          WriteLn(Elem^.aName);
        XMLWriter.StartClasse(Elem);
        XMLWriter.StartFunction(Elem^.children);
        CurrentArg := Elem^.args;
@@ -206,6 +210,8 @@ begin
            XMLWriter.EndFunction;
          end; 
        XMLWriter.EndClasse;
+        Elem := Elem^.next;
+      end;  
      XMLWriter.EndClasses;
    finally
      XMLWriter.Free;