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

Small fixes

Browse Source
This commit is contained in:
ocoursiere
2002-11-19 00:34:04 +00:00
parent 8b6fc36fab
commit d6a434e943
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
bepascal/bepascal/headertoxml/headertoxml.pp
View File

@@ -32,6 +32,8 @@ program headertoxml;
</CLASSES> </CLASSES>
} }
{$H+} // use AnsiStrings
uses uses
Classes, SysUtils, stubgen; Classes, SysUtils, stubgen;
@@ -108,7 +110,10 @@ end;
procedure TXMLWriter.StartClasse(Elem : PSyntaxelem); procedure TXMLWriter.StartClasse(Elem : PSyntaxelem);
begin 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; end;
procedure TXMLWriter.EndClasse; procedure TXMLWriter.EndClasse;
@@ -138,7 +143,8 @@ end;
procedure TXMLWriter.StartParam(Elem : PArgument); procedure TXMLWriter.StartParam(Elem : PArgument);
begin 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; end;
procedure TXMLWriter.StartResult(aType : PChar); procedure TXMLWriter.StartResult(aType : PChar);
@@ -160,9 +166,10 @@ begin
begin begin
WriteLn(Paramstr(1)); WriteLn(Paramstr(1));
init_tables; init_tables;
s := Paramstr(1); s := Paramstr(1) + #0;
fic := @s[1]; UniqueString(s);
Elem := scan(fic); fic := PChar(s);
Elem := scan(fic);
XMLWriter := TXMLWriter.Create(s); XMLWriter := TXMLWriter.Create(s);
try try
XMLWriter.StartClasses; XMLWriter.StartClasses;
@@ -171,7 +178,6 @@ begin
CurrentArg := Elem^.args; CurrentArg := Elem^.args;
if CurrentArg <> nil then if CurrentArg <> nil then
begin begin
WriteLn('Arguments');
XMLWriter.StartParam(CurrentArg); XMLWriter.StartParam(CurrentArg);
while CurrentArg^.Next <> nil do while CurrentArg^.Next <> nil do
begin begin