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

Bug fixes

Browse Source
This commit is contained in:
ocoursiere
2002-10-03 21:19:04 +00:00
parent 791041fe7b
commit de6b15b7b3
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bepascal/bepascal/headertoxml/headertoxml.pp
View File

@@ -38,6 +38,11 @@ uses
const
Eol = #10;
function Convert(s : string) : string;
begin
Result := StringReplace(s, '&', '&', [rfReplaceAll]);
end;
type
TXMLWriter = class(TObject)
private
@@ -133,13 +138,13 @@ end;
procedure TXMLWriter.StartParam(Elem : PArgument);
begin
FList.Add(Format('<PARAM NAME="%s" TYPE="%s"\>', [Elem^.aName, Elem^.aType]));
FList.Add(Format('<PARAM NAME="%s" TYPE="%s"/>', [Elem^.aName, Convert(Elem^.aType)]));
end;
procedure TXMLWriter.StartResult(aType : PChar);
begin
if aType <> nil then
FList.Add(Format('<RESULT TYPE="%s"\>', [aType]));
FList.Add(Format('<RESULT TYPE="%s"/>', [Convert(aType)]));
end;
var
@@ -194,7 +199,6 @@ begin
XMLWriter.StartResult(Current^.ret_type);
XMLWriter.EndFunction;
end;
XMLWriter.EndFunction;
XMLWriter.EndClasse;
XMLWriter.EndClasses;
finally