diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4ed32e5b79..6b19399791 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,14 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-20 00:25 UTC+0200 Francesco Saverio Giudice (info fsgiudice com) + * contrib/hbdbgfx + * contrib/hbdbgfx/dbgfxc.c + * contrib/hbdbgfx/dbgfxc.prg + * contrib/hbdbgfx/hbdbgfx.h + * updated copyright year + minor corrections + 2008-10-20 00:15 UTC+0200 Francesco Saverio Giudice (info fsgiudice com) + contrib/hbdbgfx + contrib/hbdbgfx/dbgfxc.c diff --git a/harbour/contrib/hbdbgfx/dbgfx.prg b/harbour/contrib/hbdbgfx/dbgfx.prg index 51e1876745..fc8cfe8ce1 100644 --- a/harbour/contrib/hbdbgfx/dbgfx.prg +++ b/harbour/contrib/hbdbgfx/dbgfx.prg @@ -7,7 +7,7 @@ * Harbour Project source code: * Debug Functions * - * Copyright 2007 Francesco Saverio Giudice + * Copyright 2007-2008 Francesco Saverio Giudice * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify @@ -68,13 +68,9 @@ FUNCTION HB_ToOutDebugOnOff( lOnOff ) RETURN lOld PROCEDURE HB_ToOutDebug( ... ) - //LOCAL cString - IF !s_lToOutDebug - RETURN + IF s_lToOutDebug + hb_OutDebug( hb_sprintf( ... ) ) ENDIF - - //cString := HB_ExecFromArray( "HB_SPRINTF", hb_aParams() ) - hb_OutDebug( hb_sprintf( ... ) ) RETURN FUNCTION HB_ToLogFileOnOff( lOnOff ) @@ -107,13 +103,11 @@ PROCEDURE HB_ToLogFile( cLogFile, ... ) ELSE nHandle := FCreate( cLogFile ) s_lEmptyLogFile := FALSE - // Dopo che lo creato, lo richiudo immediatamente e lo riapro in modo condiviso - // nel caso arrivasse una nuova scrittura + // After I have create it I have to close and open in shared way IF Ferror() == 0 .AND. nHandle > 0 FClose( nHandle ) nHandle := FOpen( cLogFile, FO_READWRITE + FO_SHARED) ENDIF - //__OutDebug( "Create ", nHandle ) ENDIF // Writing diff --git a/harbour/contrib/hbdbgfx/dbgfxc.c b/harbour/contrib/hbdbgfx/dbgfxc.c index f29388480d..e1ef302db0 100644 --- a/harbour/contrib/hbdbgfx/dbgfxc.c +++ b/harbour/contrib/hbdbgfx/dbgfxc.c @@ -7,7 +7,7 @@ * Harbour Project source code: * Debug Functions * - * Copyright 2007 Francesco Saverio Giudice + * Copyright 2007-2008 Francesco Saverio Giudice * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify @@ -57,10 +57,6 @@ #include "hbvm.h" #include "item.api" -#ifndef __XHARBOUR__ - #include "hbapicls.h" -#endif - static BOOL s_bToOutputDebug = TRUE; static BOOL s_bToLogFile = TRUE; @@ -75,8 +71,6 @@ HB_EXPORT BOOL hb_ToOutDebugOnOff( BOOL bOnOff ) HB_EXPORT void hb_ToOutDebug( const char * sTraceMsg, ... ) { - //BOOL bExec = TRUE; //FALSE; - if ( s_bToOutputDebug ) { char buffer[ 1024 ]; diff --git a/harbour/contrib/hbdbgfx/hbdbgfx.h b/harbour/contrib/hbdbgfx/hbdbgfx.h index 6fd5a64e9a..d936d55dce 100644 --- a/harbour/contrib/hbdbgfx/hbdbgfx.h +++ b/harbour/contrib/hbdbgfx/hbdbgfx.h @@ -6,7 +6,7 @@ * Harbour Project source code: * Header file for Debug Functions API * - * Copyright 2007 Francesco Saverio Giudice + * Copyright 2007-2008 Francesco Saverio Giudice * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify