From d6a434e9433e68a44643c4a0bd9d81b6fd9cc5cc Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Tue, 19 Nov 2002 00:34:04 +0000
Subject: [PATCH] Small fixes

---
 bepascal/bepascal/headertoxml/headertoxml.pp | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/bepascal/bepascal/headertoxml/headertoxml.pp b/bepascal/bepascal/headertoxml/headertoxml.pp
index 0fca454..0338cce 100644
--- a/bepascal/bepascal/headertoxml/headertoxml.pp
+++ b/bepascal/bepascal/headertoxml/headertoxml.pp
@@ -32,6 +32,8 @@ program headertoxml;
 </CLASSES>
 }
 
+{$H+} // use AnsiStrings
+
 uses
   Classes, SysUtils, stubgen;
   
@@ -108,7 +110,10 @@ end;
 
 procedure TXMLWriter.StartClasse(Elem : PSyntaxelem);
 begin
-  FList.Add(Format('<CLASSE NAME="%s">', [Elem^.aName]));
+  if Elem <> nil then
+    FList.Add(Format('<CLASSE NAME="%s">', [Elem^.aName]))
+  else
+    WriteLn('Classe nil');
 end;
 
 procedure TXMLWriter.EndClasse;
@@ -138,7 +143,8 @@ end;
 
 procedure TXMLWriter.StartParam(Elem : PArgument);
 begin
-  FList.Add(Format('<PARAM NAME="%s" TYPE="%s"/>', [Elem^.aName, Convert(Elem^.aType)]));
+  if (Elem^.aType <> 'void') or (Elem^.aName <> '') then
+    FList.Add(Format('<PARAM NAME="%s" TYPE="%s"/>', [Elem^.aName, Convert(Elem^.aType)]));
 end;
 
 procedure TXMLWriter.StartResult(aType : PChar);
@@ -160,9 +166,10 @@ begin
   begin
     WriteLn(Paramstr(1));
     init_tables;
-    s := Paramstr(1);
-    fic := @s[1];    
-    Elem := scan(fic);
+    s := Paramstr(1) + #0;
+    UniqueString(s);
+    fic := PChar(s);    
+    Elem := scan(fic);    
     XMLWriter := TXMLWriter.Create(s);
     try
       XMLWriter.StartClasses;
@@ -171,7 +178,6 @@ begin
       CurrentArg := Elem^.args;
       if CurrentArg <> nil then
       begin
-        WriteLn('Arguments');
         XMLWriter.StartParam(CurrentArg);
         while CurrentArg^.Next <> nil do
         begin