paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Use native lineending; Use Out instead of var to avoid warnings

Browse Source 
git-svn-id: trunk@3784 -
This commit is contained in:
michael 2006-06-04 09:47:29 +00:00
parent faf7cba799
commit 29a5f40758
2 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
fcl/xml/xmlread.pp
View File

@ -32,20 +32,20 @@ type
EXMLReadError = class(Exception);
procedure ReadXMLFile(var ADoc: TXMLDocument; const AFilename: String); overload;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: File); overload;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream); overload;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream; const AFilename: String); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: File); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream; const AFilename: String); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: File); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream; const AFilename: String); overload;
procedure ReadDTDFile(var ADoc: TXMLDocument; const AFilename: String); overload;
procedure ReadDTDFile(var ADoc: TXMLDocument; var f: File); overload;
procedure ReadDTDFile(var ADoc: TXMLDocument; var f: TStream); overload;
procedure ReadDTDFile(var ADoc: TXMLDocument; var f: TStream; const AFilename: String); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; const AFilename: String); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: File); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream; const AFilename: String); overload;
// =======================================================
@ -1395,7 +1395,7 @@ end;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: File);
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: File);
var
reader: TXMLReader;
buf: PChar;
@ -1423,7 +1423,7 @@ begin
end;
end;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream; const AFilename: String);
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream; const AFilename: String);
var
reader: TXMLReader;
buf: PChar;
@ -1450,12 +1450,12 @@ begin
end;
end;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream);
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream);
begin
ReadXMLFile(ADoc, f, '<Stream>');
end;
procedure ReadXMLFile(var ADoc: TXMLDocument; const AFilename: String);
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);
var
FileStream: TStream;
begin
@ -1541,7 +1541,7 @@ begin
end;
procedure ReadDTDFile(var ADoc: TXMLDocument; var f: File);
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: File);
var
Reader: TXMLReader;
buf: PChar;
@ -1568,7 +1568,7 @@ begin
end;
end;
procedure ReadDTDFile(var ADoc: TXMLDocument; var f: TStream; const AFilename: String);
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream; const AFilename: String);
var
Reader: TXMLReader;
buf: PChar;
@ -1593,12 +1593,12 @@ begin
end;
end;
procedure ReadDTDFile(var ADoc: TXMLDocument; var f: TStream);
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream);
begin
ReadDTDFile(ADoc, f, '<Stream>');
end;
procedure ReadDTDFile(var ADoc: TXMLDocument; const AFilename: String);
procedure ReadDTDFile(out ADoc: TXMLDocument; const AFilename: String);
var
Stream: TStream;
begin

7
fcl/xml/xmlwrite.pp
View File

@ -135,12 +135,9 @@ end;
Procedure TXMLWriter.Writeln(Const Buffer; Count : Longint);
var
eol: byte;
begin
eol:=10;
Write(buffer,count);
Write(eol,sizeof(eol));
Wrtstr(slinebreak);
end;
@ -157,7 +154,7 @@ end;
procedure TXMLWriter.wrtLineEnd;
begin
wrtChr(#10);
wrtstr(slinebreak);
end;
procedure TXMLWriter.wrtIndent;