From 1c32c0e67a65891bb56ffa5a7d8030ba40dee3f3 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 23 Mar 2012 16:38:36 +0000
Subject: [PATCH] DBG: more lazlogger

git-svn-id: trunk@36281 -
---
 debugger/cmdlinedebugger.pp | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/debugger/cmdlinedebugger.pp b/debugger/cmdlinedebugger.pp
index c207e2f640..0129391c67 100644
--- a/debugger/cmdlinedebugger.pp
+++ b/debugger/cmdlinedebugger.pp
@@ -39,7 +39,7 @@ unit CmdLineDebugger;
 interface
 
 uses
-  Classes, Types, Process, FileUtil, Debugger, LCLProc, Forms, DebugUtils;
+  Classes, Types, Process, FileUtil, Debugger, LCLProc, LazLoggerBase, Forms, DebugUtils;
 
 type
 
@@ -97,6 +97,9 @@ uses
 {$ENDIF}
   SysUtils;
 
+var
+  DBG_CMD_ECHO, DBG_CMD_ECHO_FULL: PLazLoggerLogGroup;
+
 {------------------------------------------------------------------------------
   Function: WaitForHandles
   Params:  AHandles:              A set of handles to wait for (max 32)
@@ -466,25 +469,20 @@ begin
   if FFlushAfterRead 
   then FOutputBuf := '';
   FFlushAfterRead := False;
-  //writeln('TCmdLineDebugger.ReadLine returns ', result);
-  {$IFDEF DBG_VERBOSE}
-  {$IFnDEF DBG_VERBOSE_FULL_DATA} if length(Result) < 300 then  {$ENDIF}
-  debugln('<< TCmdLineDebugger.ReadLn "',Result,'"')
-  {$IFnDEF DBG_VERBOSE_FULL_DATA}
-  else  debugln(['<< TCmdLineDebugger.ReadLn "',copy(Result, 1, 200), '" ..(',length(Result)-250,').. "',copy(Result, length(Result)-99, 100),'"'])
-  {$ENDIF}
-  ;
-  {$ENDIF}
+
+  if ((DBG_CMD_ECHO_FULL <> nil) and (DBG_CMD_ECHO_FULL^.Enabled)) or (length(Result) < 300)
+  then debugln(DBG_CMD_ECHO_FULL, '<< TCmdLineDebugger.ReadLn "',Result,'"')
+  else debugln(DBG_CMD_ECHO, ['<< TCmdLineDebugger.ReadLn "',copy(Result, 1, 200), '" ..(',length(Result)-250,').. "',copy(Result, length(Result)-99, 100),'"']);
 end;
 
 procedure TCmdLineDebugger.SendCmdLn(const ACommand: String); overload;
 var
   LE: string[2];
 begin
-  //writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"');
-  {$IFDEF DBG_VERBOSE}
-  debugln('>> TCmdLineDebugger.SendCmdLn "',ACommand,'"');
-  {$ENDIF}
+  if (DBG_CMD_ECHO_FULL <> nil) and (DBG_CMD_ECHO_FULL^.Enabled)
+  then debugln(DBG_CMD_ECHO_FULL, '>> TCmdLineDebugger.SendCmdLn "',ACommand,'"')
+  else debugln(DBG_CMD_ECHO,      '>> TCmdLineDebugger.SendCmdLn "',ACommand,'"');
+
   if DebugProcessRunning
   then begin
     DoDbgOutput('<' + ACommand + '>');
@@ -522,4 +520,7 @@ begin
 end;
 
 initialization
+  DBG_CMD_ECHO      := DebugLogger.RegisterLogGroup('DBG_CMD_ECHO' {$IF defined(DBG_VERBOSE) or defined(DBG_CMD_ECHO)} , True {$ENDIF} );
+  DBG_CMD_ECHO_FULL := DebugLogger.RegisterLogGroup('DBG_CMD_ECHO_FULL' {$IF defined(DBG_VERBOSE_FULL_DATA) or defined(DBG_CMD_ECHO_FULL)} , True {$ENDIF} );
+
 end.