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

* Debugging output is now enabled when the symbol "XMLRPCDebug" exists,

Browse Source 
and not generally when compiled in debug mode
This commit is contained in:
sg 2003-11-27 11:28:44 +00:00
parent 5d024d4cc3
commit 02b63d9a3e
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/net/xmlrpc.pp
View File

@ -158,7 +158,7 @@ uses XMLWrite, XMLRead;
// Debugging stuff // Debugging stuff
{$IFDEF Debug} {$IFDEF XMLRPCDebug}
const const
NodeNames: array[ELEMENT_NODE..NOTATION_NODE] of String = ( NodeNames: array[ELEMENT_NODE..NOTATION_NODE] of String = (
'Element', 'Element',
@ -396,7 +396,7 @@ begin
inherited Create; inherited Create;
ReadXMLFile(Doc, AStream); ReadXMLFile(Doc, AStream);
Node := Doc.DocumentElement; Node := Doc.DocumentElement;
{$IFDEF Debug}DumpNode(Node, 'Parser> ');{$ENDIF} {$IFDEF XMLRPCDebug}DumpNode(Node, 'Parser> ');{$ENDIF}
if (Node.NodeName = 'methodCall') or (Node.NodeName = 'methodResponse') then if (Node.NodeName = 'methodCall') or (Node.NodeName = 'methodResponse') then
begin begin
Node := Node.FirstChild; Node := Node.FirstChild;
@ -462,7 +462,7 @@ end;
procedure TXMLRPCParser.ResetValueCursor; procedure TXMLRPCParser.ResetValueCursor;
begin begin
CurDataNode := CurDataNode.ParentNode.FirstChild; CurDataNode := CurDataNode.ParentNode.FirstChild;
{$IFDEF Debug}DumpNode(CurDataNode, 'ResetValueCursor> ');{$ENDIF} {$IFDEF XMLRPCDebug}DumpNode(CurDataNode, 'ResetValueCursor> ');{$ENDIF}
end; end;
function TXMLRPCParser.GetNextInt: LongInt; function TXMLRPCParser.GetNextInt: LongInt;
@ -609,12 +609,12 @@ end;
procedure TXMLRPCParser.PrevNode; procedure TXMLRPCParser.PrevNode;
begin begin
{$IFDEF Debug}DumpNode(CurDataNode, 'PrevNode before> ');{$ENDIF} {$IFDEF XMLRPCDebug}DumpNode(CurDataNode, 'PrevNode before> ');{$ENDIF}
if Assigned(CurDataNode.PreviousSibling) then if Assigned(CurDataNode.PreviousSibling) then
CurDataNode := CurDataNode.PreviousSibling CurDataNode := CurDataNode.PreviousSibling
else else
CurDataNode := CurDataNode.ParentNode.LastChild; CurDataNode := CurDataNode.ParentNode.LastChild;
{$IFDEF Debug}DumpNode(CurDataNode, 'PrevNode result> ');{$ENDIF} {$IFDEF XMLRPCDebug}DumpNode(CurDataNode, 'PrevNode result> ');{$ENDIF}
end; end;
function TXMLRPCParser.GetValue: String; function TXMLRPCParser.GetValue: String;
@ -934,7 +934,11 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2003-11-22 12:10:27 sg Revision 1.4 2003-11-27 11:28:44 sg
* Debugging output is now enabled when the symbol "XMLRPCDebug" exists,
and not generally when compiled in debug mode
Revision 1.3 2003/11/22 12:10:27 sg
* Just a small adaption to chages in HTTP unit * Just a small adaption to chages in HTTP unit
Revision 1.2 2003/06/25 08:49:21 sg Revision 1.2 2003/06/25 08:49:21 sg