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

14
bepascal/bepascal/headertoxml/headertoxml.pp
View File

@@ -37,6 +37,11 @@ uses
const const
Eol = #10; Eol = #10;
function Convert(s : string) : string;
begin
Result := StringReplace(s, '&', '&', [rfReplaceAll]);
end;
type type
TXMLWriter = class(TObject) TXMLWriter = class(TObject)
@@ -133,13 +138,13 @@ end;
procedure TXMLWriter.StartParam(Elem : PArgument); procedure TXMLWriter.StartParam(Elem : PArgument);
begin 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; end;
procedure TXMLWriter.StartResult(aType : PChar); procedure TXMLWriter.StartResult(aType : PChar);
begin begin
if aType <> nil then if aType <> nil then
FList.Add(Format('<RESULT TYPE="%s"\>', [aType])); FList.Add(Format('<RESULT TYPE="%s"/>', [Convert(aType)]));
end; end;
var var
@@ -193,8 +198,7 @@ begin
end; end;
XMLWriter.StartResult(Current^.ret_type); XMLWriter.StartResult(Current^.ret_type);
XMLWriter.EndFunction; XMLWriter.EndFunction;
end; end;
XMLWriter.EndFunction;
XMLWriter.EndClasse; XMLWriter.EndClasse;
XMLWriter.EndClasses; XMLWriter.EndClasses;
finally finally
@@ -202,4 +206,4 @@ begin
end; end;
free_tables; free_tables;
end; end;
end. end.