src/common/log.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        log.cpp
// Purpose:     Assorted wxLogXXX functions, and wxLog (sink for logs)
// Author:      Vadim Zeitlin
// Modified by:
// Created:     29/01/98
// RCS-ID:      $Id$
// Copyright:   (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
// Licence:     wxWindows license
/////////////////////////////////////////////////////////////////////////////

// ============================================================================
// declarations
// ============================================================================

// ----------------------------------------------------------------------------
// headers
// ----------------------------------------------------------------------------

#ifdef __GNUG__
  #pragma implementation "log.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
  #pragma hdrstop
#endif

// wxWindows
#ifndef WX_PRECOMP
    #include "wx/string.h"
    #include "wx/intl.h"
    #include "wx/app.h"

    #if wxUSE_GUI
        #include "wx/window.h"
        #ifdef __WXMSW__
            #include "wx/msw/private.h"
        #endif
        #include "wx/msgdlg.h"
    #endif
#endif //WX_PRECOMP

#include  "wx/file.h"
#include  "wx/textfile.h"
#include  "wx/utils.h"
#include  "wx/wxchar.h"
#include  "wx/log.h"
#include  "wx/thread.h"

// other standard headers
#include  <errno.h>
#include  <stdlib.h>
#include  <time.h>

#ifdef  __WXMSW__
  #include  "wx/msw/private.h"      // includes windows.h for OutputDebugString
#else   //Unix
  #include  <signal.h>
#endif  //Win/Unix

// ----------------------------------------------------------------------------
// non member functions
// ----------------------------------------------------------------------------

// define this to enable wrapping of log messages
//#define LOG_PRETTY_WRAP

#ifdef  LOG_PRETTY_WRAP
  static void wxLogWrap(FILE *f, const char *pszPrefix, const char *psz);
#endif

// ============================================================================
// implementation
// ============================================================================

// ----------------------------------------------------------------------------
// globals
// ----------------------------------------------------------------------------

// log functions can't allocate memory (LogError("out of memory...") should
// work!), so we use a static buffer for all log messages
#define LOG_BUFFER_SIZE   (4096)

// static buffer for error messages
static wxChar s_szBuf[LOG_BUFFER_SIZE];

#if wxUSE_THREADS

// the critical section protecting the static buffer
static wxCriticalSection gs_csLogBuf;

#endif // wxUSE_THREADS

// ----------------------------------------------------------------------------
// implementation of Log functions
//
// NB: unfortunately we need all these distinct functions, we can't make them
//     macros and not all compilers inline vararg functions.
// ----------------------------------------------------------------------------

// generic log function
void wxLogGeneric(wxLogLevel level, const wxChar *szFormat, ...)
{
  if ( wxLog::GetActiveTarget() != NULL ) {
    wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);

    va_list argptr;
    va_start(argptr, szFormat);
    wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
    va_end(argptr);

    wxLog::OnLog(level, s_szBuf, time(NULL));
  }
}

#define IMPLEMENT_LOG_FUNCTION(level)                             \
  void wxLog##level(const wxChar *szFormat, ...)                  \
  {                                                               \
    if ( wxLog::GetActiveTarget() != NULL ) {                     \
      wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);                    \
                                                                  \
      va_list argptr;                                             \
      va_start(argptr, szFormat);                                 \
      wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);  \
      va_end(argptr);                                             \
                                                                  \
      wxLog::OnLog(wxLOG_##level, s_szBuf, time(NULL));           \
    }                                                             \
  }

IMPLEMENT_LOG_FUNCTION(FatalError)
IMPLEMENT_LOG_FUNCTION(Error)
IMPLEMENT_LOG_FUNCTION(Warning)
IMPLEMENT_LOG_FUNCTION(Message)
IMPLEMENT_LOG_FUNCTION(Info)
IMPLEMENT_LOG_FUNCTION(Status)

// same as info, but only if 'verbose' mode is on
void wxLogVerbose(const wxChar *szFormat, ...)
{
  wxLog *pLog = wxLog::GetActiveTarget();
  if ( pLog != NULL && pLog->GetVerbose() ) {
    wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);

    va_list argptr;
    va_start(argptr, szFormat);
    wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
    va_end(argptr);

    wxLog::OnLog(wxLOG_Info, s_szBuf, time(NULL));
  }
}

// debug functions
#ifdef __WXDEBUG__
#define IMPLEMENT_LOG_DEBUG_FUNCTION(level)                       \
  void wxLog##level(const wxChar *szFormat, ...)                  \
  {                                                               \
    if ( wxLog::GetActiveTarget() != NULL ) {                     \
      wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);                    \
                                                                  \
      va_list argptr;                                             \
      va_start(argptr, szFormat);                                 \
      wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);  \
      va_end(argptr);                                             \
                                                                  \
      wxLog::OnLog(wxLOG_##level, s_szBuf, time(NULL));           \
    }                                                             \
  }

  void wxLogTrace(const wxChar *mask, const wxChar *szFormat, ...)
  {
    wxLog *pLog = wxLog::GetActiveTarget();

    if ( pLog != NULL && wxLog::IsAllowedTraceMask(mask) ) {
      wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);

      wxChar *p = s_szBuf;
      size_t len = WXSIZEOF(s_szBuf);
      strncpy(s_szBuf, _T("Trace ("), len);
      len -= 7; // strlen("Trace (")
      p += 7;
      strncat(p, mask, len);
      size_t lenMask = wxStrlen(mask);
      len -= lenMask;
      p += lenMask;

      strncat(p, _T("): "), len);
      len -= 3;
      p += 3;

      va_list argptr;
      va_start(argptr, szFormat);
      wxVsnprintf(p, len, szFormat, argptr);
      va_end(argptr);

      wxLog::OnLog(wxLOG_Trace, s_szBuf, time(NULL));
    }
  }

  void wxLogTrace(wxTraceMask mask, const wxChar *szFormat, ...)
  {
    wxLog *pLog = wxLog::GetActiveTarget();

    // we check that all of mask bits are set in the current mask, so
    // that wxLogTrace(wxTraceRefCount | wxTraceOle) will only do something
    // if both bits are set.
    if ( pLog != NULL && ((pLog->GetTraceMask() & mask) == mask) ) {
      wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);

      va_list argptr;
      va_start(argptr, szFormat);
      wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
      va_end(argptr);

      wxLog::OnLog(wxLOG_Trace, s_szBuf, time(NULL));
    }
  }

#else // release
  #define IMPLEMENT_LOG_DEBUG_FUNCTION(level)
#endif

IMPLEMENT_LOG_DEBUG_FUNCTION(Debug)
IMPLEMENT_LOG_DEBUG_FUNCTION(Trace)

// wxLogSysError: one uses the last error code, for other  you must give it
// explicitly

// common part of both wxLogSysError
void wxLogSysErrorHelper(long lErrCode)
{
    wxChar szErrMsg[LOG_BUFFER_SIZE / 2];
    wxSnprintf(szErrMsg, WXSIZEOF(szErrMsg),
               _(" (error %ld: %s)"), lErrCode, wxSysErrorMsg(lErrCode));
    wxStrncat(s_szBuf, szErrMsg, WXSIZEOF(s_szBuf) - wxStrlen(s_szBuf));

    wxLog::OnLog(wxLOG_Error, s_szBuf, time(NULL));
}

void WXDLLEXPORT wxLogSysError(const wxChar *szFormat, ...)
{
    wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);

    va_list argptr;
    va_start(argptr, szFormat);
    wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
    va_end(argptr);

    wxLogSysErrorHelper(wxSysErrorCode());
}

void WXDLLEXPORT wxLogSysError(long lErrCode, const wxChar *szFormat, ...)
{
    wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);

    va_list argptr;
    va_start(argptr, szFormat);
    wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
    va_end(argptr);

    wxLogSysErrorHelper(lErrCode);
}

// ----------------------------------------------------------------------------
// wxLog class implementation
// ----------------------------------------------------------------------------

wxLog::wxLog()
{
    m_bHasMessages = FALSE;

    // enable verbose messages by default in the debug builds
#ifdef __WXDEBUG__
    m_bVerbose = TRUE;
#else // release
    m_bVerbose = FALSE;
#endif // debug/release
}

wxLog *wxLog::GetActiveTarget()
{
    if ( ms_bAutoCreate && ms_pLogger == NULL ) {
        // prevent infinite recursion if someone calls wxLogXXX() from
        // wxApp::CreateLogTarget()
        static bool s_bInGetActiveTarget = FALSE;
        if ( !s_bInGetActiveTarget ) {
            s_bInGetActiveTarget = TRUE;

            // ask the application to create a log target for us
            if ( wxTheApp != NULL )
                ms_pLogger = wxTheApp->CreateLogTarget();
            else
                ms_pLogger = new wxLogStderr;

            s_bInGetActiveTarget = FALSE;

            // do nothing if it fails - what can we do?
        }
    }

    return ms_pLogger;
}

wxLog *wxLog::SetActiveTarget(wxLog *pLogger)
{
    if ( ms_pLogger != NULL ) {
        // flush the old messages before changing because otherwise they might
        // get lost later if this target is not restored
        ms_pLogger->Flush();
    }

    wxLog *pOldLogger = ms_pLogger;
    ms_pLogger = pLogger;

    return pOldLogger;
}

void wxLog::RemoveTraceMask(const wxString& str)
{
    int index = ms_aTraceMasks.Index(str);
    if ( index != wxNOT_FOUND )
        ms_aTraceMasks.Remove((size_t)index);
}

void wxLog::TimeStamp(wxString *str)
{
    if ( ms_timestamp )
    {
        wxChar buf[256];
        time_t timeNow;
        (void)time(&timeNow);
        wxStrftime(buf, WXSIZEOF(buf), ms_timestamp, localtime(&timeNow));

        str->Empty();
        *str << buf << wxT(": ");
    }
}

void wxLog::DoLog(wxLogLevel level, const wxChar *szString, time_t t)
{
    switch ( level ) {
        case wxLOG_FatalError:
            DoLogString(wxString(_("Fatal error: ")) + szString, t);
            DoLogString(_("Program aborted."), t);
            Flush();
            abort();
            break;

        case wxLOG_Error:
            DoLogString(wxString(_("Error: ")) + szString, t);
            break;

        case wxLOG_Warning:
            DoLogString(wxString(_("Warning: ")) + szString, t);
            break;

        case wxLOG_Info:
            if ( GetVerbose() )
        case wxLOG_Message:
        case wxLOG_Status:
        default:    // log unknown log levels too
                DoLogString(szString, t);
            break;

        case wxLOG_Trace:
        case wxLOG_Debug:
#ifdef __WXDEBUG__
            DoLogString(szString, t);
#endif
            break;
    }
}

void wxLog::DoLogString(const wxChar *WXUNUSED(szString), time_t WXUNUSED(t))
{
    wxFAIL_MSG(wxT("DoLogString must be overriden if it's called."));
}

void wxLog::Flush()
{
    // do nothing
}

// ----------------------------------------------------------------------------
// wxLogStderr class implementation
// ----------------------------------------------------------------------------

wxLogStderr::wxLogStderr(FILE *fp)
{
    if ( fp == NULL )
        m_fp = stderr;
    else
        m_fp = fp;
}

void wxLogStderr::DoLogString(const wxChar *szString, time_t WXUNUSED(t))
{
    wxString str;
    TimeStamp(&str);
    str << szString;

    fputs(str.mb_str(), m_fp);
    fputc(_T('\n'), m_fp);
    fflush(m_fp);

    // under Windows, programs usually don't have stderr at all, so show the
    // messages also under debugger - unless it's a console program
#if defined(__WXMSW__) && wxUSE_GUI
    OutputDebugString(str + wxT("\r\n"));
#endif // MSW
#if defined(__WXMAC__) && wxUSE_GUI
    debugstr(str + wxT("\r\n"));
#endif // MSW
}

// ----------------------------------------------------------------------------
// wxLogStream implementation
// ----------------------------------------------------------------------------

#if wxUSE_STD_IOSTREAM
wxLogStream::wxLogStream(ostream *ostr)
{
    if ( ostr == NULL )
        m_ostr = &cerr;
    else
        m_ostr = ostr;
}

void wxLogStream::DoLogString(const wxChar *szString, time_t WXUNUSED(t))
{
    (*m_ostr) << wxConvertWX2MB(szString) << endl;
}
#endif // wxUSE_STD_IOSTREAM

// ============================================================================
// Global functions/variables
// ============================================================================

// ----------------------------------------------------------------------------
// static variables
// ----------------------------------------------------------------------------

wxLog          *wxLog::ms_pLogger      = (wxLog *)NULL;
bool            wxLog::ms_doLog        = TRUE;
bool            wxLog::ms_bAutoCreate  = TRUE;

#if wxUSE_GUI
    const wxChar *wxLog::ms_timestamp  = wxT("%X");  // time only, no date
#else
    const wxChar *wxLog::ms_timestamp  = NULL;       // save space
#endif

wxTraceMask     wxLog::ms_ulTraceMask  = (wxTraceMask)0;
wxArrayString   wxLog::ms_aTraceMasks;

// ----------------------------------------------------------------------------
// stdout error logging helper
// ----------------------------------------------------------------------------

// helper function: wraps the message and justifies it under given position
// (looks more pretty on the terminal). Also adds newline at the end.
//
// TODO this is now disabled until I find a portable way of determining the
//      terminal window size (ok, I found it but does anybody really cares?)
#ifdef LOG_PRETTY_WRAP
static void wxLogWrap(FILE *f, const char *pszPrefix, const char *psz)
{
    size_t nMax = 80; // FIXME
    size_t nStart = strlen(pszPrefix);
    fputs(pszPrefix, f);

    size_t n;
    while ( *psz != '\0' ) {
        for ( n = nStart; (n < nMax) && (*psz != '\0'); n++ )
            putc(*psz++, f);

        // wrapped?
        if ( *psz != '\0' ) {
            /*putc('\n', f);*/
            for ( n = 0; n < nStart; n++ )
                putc(' ', f);

            // as we wrapped, squeeze all white space
            while ( isspace(*psz) )
                psz++;
        }
    }

    putc('\n', f);
}
#endif  //LOG_PRETTY_WRAP

// ----------------------------------------------------------------------------
// error code/error message retrieval functions
// ----------------------------------------------------------------------------

// get error code from syste
unsigned long wxSysErrorCode()
{
#ifdef  __WXMSW__
#ifdef  __WIN32__
    return ::GetLastError();
#else   //WIN16
    // TODO what to do on Windows 3.1?
    return 0;
#endif  //WIN16/32
#else   //Unix
    return errno;
#endif  //Win/Unix
}

// get error message from system
const wxChar *wxSysErrorMsg(unsigned long nErrCode)
{
    if ( nErrCode == 0 )
        nErrCode = wxSysErrorCode();

#ifdef  __WXMSW__
#ifdef  __WIN32__
    static wxChar s_szBuf[LOG_BUFFER_SIZE / 2];

    // get error message from system
    LPVOID lpMsgBuf;
    FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
            NULL, nErrCode,
            MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
            (LPTSTR)&lpMsgBuf,
            0, NULL);

    // copy it to our buffer and free memory
    wxStrncpy(s_szBuf, (const wxChar *)lpMsgBuf, WXSIZEOF(s_szBuf) - 1);
    s_szBuf[WXSIZEOF(s_szBuf) - 1] = wxT('\0');
    LocalFree(lpMsgBuf);

    // returned string is capitalized and ended with '\r\n' - bad
    s_szBuf[0] = (wxChar)wxTolower(s_szBuf[0]);
    size_t len = wxStrlen(s_szBuf);
    if ( len > 0 ) {
        // truncate string
        if ( s_szBuf[len - 2] == wxT('\r') )
            s_szBuf[len - 2] = wxT('\0');
    }

    return s_szBuf;
#else   //Win16
    // TODO
    return NULL;
#endif // Win16/32
#else   // Unix
#if wxUSE_UNICODE
    static wxChar s_szBuf[LOG_BUFFER_SIZE / 2];
    wxConvCurrent->MB2WC(s_szBuf, strerror(nErrCode), WXSIZEOF(s_szBuf) -1);
    return s_szBuf;
#else
    return strerror((int)nErrCode);
#endif
#endif  // Win/Unix
}

// ----------------------------------------------------------------------------
// debug helper
// ----------------------------------------------------------------------------

#ifdef  __WXDEBUG__

// break into the debugger
void Trap()
{
#ifdef __WXMSW__
    DebugBreak();
#elif defined(__WXMAC__)
#if __powerc
    Debugger();
#else
    SysBreak();
#endif
#elif defined(__UNIX__)
    raise(SIGTRAP);
#else
    // TODO
#endif // Win/Unix
}

// this function is called when an assert fails
void wxOnAssert(const wxChar *szFile, int nLine, const wxChar *szMsg)
{
    // this variable can be set to true to suppress "assert failure" messages
    static bool s_bNoAsserts = FALSE;
    static bool s_bInAssert = FALSE;        // FIXME MT-unsafe

    if ( s_bInAssert ) {
        // He-e-e-e-elp!! we're trapped in endless loop
        Trap();

        s_bInAssert = FALSE;

        return;
    }

    s_bInAssert = TRUE;

    wxChar szBuf[LOG_BUFFER_SIZE];

    // make life easier for people using VC++ IDE: clicking on the message
    // will take us immediately to the place of the failed assert
    wxSnprintf(szBuf, WXSIZEOF(szBuf),
#ifdef __VISUALC__
               wxT("%s(%d): assert failed"),
#else  // !VC++
    // make the error message more clear for all the others
               wxT("Assert failed in file %s at line %d"),
#endif // VC/!VC
               szFile, nLine);

    if ( szMsg != NULL ) {
        wxStrcat(szBuf, wxT(": "));
        wxStrcat(szBuf, szMsg);
    }
    else {
        wxStrcat(szBuf, wxT("."));
    }

    if ( !s_bNoAsserts ) {
        // send it to the normal log destination
        wxLogDebug(szBuf);

#if wxUSE_GUI || defined(__WXMSW__)
        // this message is intentionally not translated - it is for
        // developpers only
        wxStrcat(szBuf, wxT("\nDo you want to stop the program?"
                            "\nYou can also choose [Cancel] to suppress "
                            "further warnings."));

#if wxUSE_GUI
        switch ( wxMessageBox(szBuf, "Debug",
                              wxYES_NO | wxCANCEL | wxICON_STOP ) ) {
            case wxYES:
                Trap();
                break;

            case wxCANCEL:
                s_bNoAsserts = TRUE;
                break;

            //case wxNO: nothing to do
        }
#else // !GUI, but MSW
        switch ( ::MessageBox(NULL, szBuf, "Debug",
                              MB_YESNOCANCEL | MB_ICONSTOP ) ) {
            case IDYES:
                Trap();
                break;

            case IDCANCEL:
                s_bNoAsserts = TRUE;
                break;

            //case IDNO: nothing to do
        }
#endif // GUI or MSW

#else // !GUI
        Trap();
#endif // GUI/!GUI
    }

    s_bInAssert = FALSE;
}

#endif  //WXDEBUG
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: log.cpp
	3	// Purpose: Assorted wxLogXXX functions, and wxLog (sink for logs)
	4	// Author: Vadim Zeitlin
	5	// Modified by:
	6	// Created: 29/01/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
	9	// Licence: wxWindows license
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	// ============================================================================
	13	// declarations
	14	// ============================================================================
	15
	16	// ----------------------------------------------------------------------------
	17	// headers
	18	// ----------------------------------------------------------------------------
	19
	20	#ifdef __GNUG__
	21	#pragma implementation "log.h"
	22	#endif
	23
	24	// For compilers that support precompilation, includes "wx.h".
	25	#include "wx/wxprec.h"
	26
	27	#ifdef __BORLANDC__
	28	#pragma hdrstop
	29	#endif
	30
	31	// wxWindows
	32	#ifndef WX_PRECOMP
	33	#include "wx/string.h"
	34	#include "wx/intl.h"
	35	#include "wx/app.h"
	36
	37	#if wxUSE_GUI
	38	#include "wx/window.h"
	39	#ifdef __WXMSW__
	40	#include "wx/msw/private.h"
	41	#endif
	42	#include "wx/msgdlg.h"
	43	#endif
	44	#endif //WX_PRECOMP
	45
	46	#include "wx/file.h"
	47	#include "wx/textfile.h"
	48	#include "wx/utils.h"
	49	#include "wx/wxchar.h"
	50	#include "wx/log.h"
	51	#include "wx/thread.h"
	52
	53	// other standard headers
	54	#include <errno.h>
	55	#include <stdlib.h>
	56	#include <time.h>
	57
	58	#ifdef __WXMSW__
	59	#include "wx/msw/private.h" // includes windows.h for OutputDebugString
	60	#else //Unix
	61	#include <signal.h>
	62	#endif //Win/Unix
	63
	64	// ----------------------------------------------------------------------------
	65	// non member functions
	66	// ----------------------------------------------------------------------------
	67
	68	// define this to enable wrapping of log messages
	69	//#define LOG_PRETTY_WRAP
	70
	71	#ifdef LOG_PRETTY_WRAP
	72	static void wxLogWrap(FILE f, const char pszPrefix, const char *psz);
	73	#endif
	74
	75	// ============================================================================
	76	// implementation
	77	// ============================================================================
	78
	79	// ----------------------------------------------------------------------------
	80	// globals
	81	// ----------------------------------------------------------------------------
	82
	83	// log functions can't allocate memory (LogError("out of memory...") should
	84	// work!), so we use a static buffer for all log messages
	85	#define LOG_BUFFER_SIZE (4096)
	86
	87	// static buffer for error messages
	88	static wxChar s_szBuf[LOG_BUFFER_SIZE];
	89
	90	#if wxUSE_THREADS
	91
	92	// the critical section protecting the static buffer
	93	static wxCriticalSection gs_csLogBuf;
	94
	95	#endif // wxUSE_THREADS
	96
	97	// ----------------------------------------------------------------------------
	98	// implementation of Log functions
	99	//
	100	// NB: unfortunately we need all these distinct functions, we can't make them
	101	// macros and not all compilers inline vararg functions.
	102	// ----------------------------------------------------------------------------
	103
	104	// generic log function
	105	void wxLogGeneric(wxLogLevel level, const wxChar *szFormat, ...)
	106	{
	107	if ( wxLog::GetActiveTarget() != NULL ) {
	108	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);
	109
	110	va_list argptr;
	111	va_start(argptr, szFormat);
	112	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
	113	va_end(argptr);
	114
	115	wxLog::OnLog(level, s_szBuf, time(NULL));
	116	}
	117	}
	118
	119	#define IMPLEMENT_LOG_FUNCTION(level) \
	120	void wxLog##level(const wxChar *szFormat, ...) \
	121	{ \
	122	if ( wxLog::GetActiveTarget() != NULL ) { \
	123	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf); \
	124	\
	125	va_list argptr; \
	126	va_start(argptr, szFormat); \
	127	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr); \
	128	va_end(argptr); \
	129	\
	130	wxLog::OnLog(wxLOG_##level, s_szBuf, time(NULL)); \
	131	} \
	132	}
	133
	134	IMPLEMENT_LOG_FUNCTION(FatalError)
	135	IMPLEMENT_LOG_FUNCTION(Error)
	136	IMPLEMENT_LOG_FUNCTION(Warning)
	137	IMPLEMENT_LOG_FUNCTION(Message)
	138	IMPLEMENT_LOG_FUNCTION(Info)
	139	IMPLEMENT_LOG_FUNCTION(Status)
	140
	141	// same as info, but only if 'verbose' mode is on
	142	void wxLogVerbose(const wxChar *szFormat, ...)
	143	{
	144	wxLog *pLog = wxLog::GetActiveTarget();
	145	if ( pLog != NULL && pLog->GetVerbose() ) {
	146	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);
	147
	148	va_list argptr;
	149	va_start(argptr, szFormat);
	150	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
	151	va_end(argptr);
	152
	153	wxLog::OnLog(wxLOG_Info, s_szBuf, time(NULL));
	154	}
	155	}
	156
	157	// debug functions
	158	#ifdef __WXDEBUG__
	159	#define IMPLEMENT_LOG_DEBUG_FUNCTION(level) \
	160	void wxLog##level(const wxChar *szFormat, ...) \
	161	{ \
	162	if ( wxLog::GetActiveTarget() != NULL ) { \
	163	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf); \
	164	\
	165	va_list argptr; \
	166	va_start(argptr, szFormat); \
	167	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr); \
	168	va_end(argptr); \
	169	\
	170	wxLog::OnLog(wxLOG_##level, s_szBuf, time(NULL)); \
	171	} \
	172	}
	173
	174	void wxLogTrace(const wxChar mask, const wxChar szFormat, ...)
	175	{
	176	wxLog *pLog = wxLog::GetActiveTarget();
	177
	178	if ( pLog != NULL && wxLog::IsAllowedTraceMask(mask) ) {
	179	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);
	180
	181	wxChar *p = s_szBuf;
	182	size_t len = WXSIZEOF(s_szBuf);
	183	strncpy(s_szBuf, _T("Trace ("), len);
	184	len -= 7; // strlen("Trace (")
	185	p += 7;
	186	strncat(p, mask, len);
	187	size_t lenMask = wxStrlen(mask);
	188	len -= lenMask;
	189	p += lenMask;
	190
	191	strncat(p, _T("): "), len);
	192	len -= 3;
	193	p += 3;
	194
	195	va_list argptr;
	196	va_start(argptr, szFormat);
	197	wxVsnprintf(p, len, szFormat, argptr);
	198	va_end(argptr);
	199
	200	wxLog::OnLog(wxLOG_Trace, s_szBuf, time(NULL));
	201	}
	202	}
	203
	204	void wxLogTrace(wxTraceMask mask, const wxChar *szFormat, ...)
	205	{
	206	wxLog *pLog = wxLog::GetActiveTarget();
	207
	208	// we check that all of mask bits are set in the current mask, so
	209	// that wxLogTrace(wxTraceRefCount \| wxTraceOle) will only do something
	210	// if both bits are set.
	211	if ( pLog != NULL && ((pLog->GetTraceMask() & mask) == mask) ) {
	212	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);
	213
	214	va_list argptr;
	215	va_start(argptr, szFormat);
	216	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
	217	va_end(argptr);
	218
	219	wxLog::OnLog(wxLOG_Trace, s_szBuf, time(NULL));
	220	}
	221	}
	222
	223	#else // release
	224	#define IMPLEMENT_LOG_DEBUG_FUNCTION(level)
	225	#endif
	226
	227	IMPLEMENT_LOG_DEBUG_FUNCTION(Debug)
	228	IMPLEMENT_LOG_DEBUG_FUNCTION(Trace)
	229
	230	// wxLogSysError: one uses the last error code, for other you must give it
	231	// explicitly
	232
	233	// common part of both wxLogSysError
	234	void wxLogSysErrorHelper(long lErrCode)
	235	{
	236	wxChar szErrMsg[LOG_BUFFER_SIZE / 2];
	237	wxSnprintf(szErrMsg, WXSIZEOF(szErrMsg),
	238	_(" (error %ld: %s)"), lErrCode, wxSysErrorMsg(lErrCode));
	239	wxStrncat(s_szBuf, szErrMsg, WXSIZEOF(s_szBuf) - wxStrlen(s_szBuf));
	240
	241	wxLog::OnLog(wxLOG_Error, s_szBuf, time(NULL));
	242	}
	243
	244	void WXDLLEXPORT wxLogSysError(const wxChar *szFormat, ...)
	245	{
	246	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);
	247
	248	va_list argptr;
	249	va_start(argptr, szFormat);
	250	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
	251	va_end(argptr);
	252
	253	wxLogSysErrorHelper(wxSysErrorCode());
	254	}
	255
	256	void WXDLLEXPORT wxLogSysError(long lErrCode, const wxChar *szFormat, ...)
	257	{
	258	wxCRIT_SECT_LOCKER(locker, gs_csLogBuf);
	259
	260	va_list argptr;
	261	va_start(argptr, szFormat);
	262	wxVsnprintf(s_szBuf, WXSIZEOF(s_szBuf), szFormat, argptr);
	263	va_end(argptr);
	264
	265	wxLogSysErrorHelper(lErrCode);
	266	}
	267
	268	// ----------------------------------------------------------------------------
	269	// wxLog class implementation
	270	// ----------------------------------------------------------------------------
	271
	272	wxLog::wxLog()
	273	{
	274	m_bHasMessages = FALSE;
	275
	276	// enable verbose messages by default in the debug builds
	277	#ifdef __WXDEBUG__
	278	m_bVerbose = TRUE;
	279	#else // release
	280	m_bVerbose = FALSE;
	281	#endif // debug/release
	282	}
	283
	284	wxLog *wxLog::GetActiveTarget()
	285	{
	286	if ( ms_bAutoCreate && ms_pLogger == NULL ) {
	287	// prevent infinite recursion if someone calls wxLogXXX() from
	288	// wxApp::CreateLogTarget()
	289	static bool s_bInGetActiveTarget = FALSE;
	290	if ( !s_bInGetActiveTarget ) {
	291	s_bInGetActiveTarget = TRUE;
	292
	293	// ask the application to create a log target for us
	294	if ( wxTheApp != NULL )
	295	ms_pLogger = wxTheApp->CreateLogTarget();
	296	else
	297	ms_pLogger = new wxLogStderr;
	298
	299	s_bInGetActiveTarget = FALSE;
	300
	301	// do nothing if it fails - what can we do?
	302	}
	303	}
	304
	305	return ms_pLogger;
	306	}
	307
	308	wxLog wxLog::SetActiveTarget(wxLog pLogger)
	309	{
	310	if ( ms_pLogger != NULL ) {
	311	// flush the old messages before changing because otherwise they might
	312	// get lost later if this target is not restored
	313	ms_pLogger->Flush();
	314	}
	315
	316	wxLog *pOldLogger = ms_pLogger;
	317	ms_pLogger = pLogger;
	318
	319	return pOldLogger;
	320	}
	321
	322	void wxLog::RemoveTraceMask(const wxString& str)
	323	{
	324	int index = ms_aTraceMasks.Index(str);
	325	if ( index != wxNOT_FOUND )
	326	ms_aTraceMasks.Remove((size_t)index);
	327	}
	328
	329	void wxLog::TimeStamp(wxString *str)
	330	{
	331	if ( ms_timestamp )
	332	{
	333	wxChar buf[256];
	334	time_t timeNow;
	335	(void)time(&timeNow);
	336	wxStrftime(buf, WXSIZEOF(buf), ms_timestamp, localtime(&timeNow));
	337
	338	str->Empty();
	339	*str << buf << wxT(": ");
	340	}
	341	}
	342
	343	void wxLog::DoLog(wxLogLevel level, const wxChar *szString, time_t t)
	344	{
	345	switch ( level ) {
	346	case wxLOG_FatalError:
	347	DoLogString(wxString(_("Fatal error: ")) + szString, t);
	348	DoLogString(_("Program aborted."), t);
	349	Flush();
	350	abort();
	351	break;
	352
	353	case wxLOG_Error:
	354	DoLogString(wxString(_("Error: ")) + szString, t);
	355	break;
	356
	357	case wxLOG_Warning:
	358	DoLogString(wxString(_("Warning: ")) + szString, t);
	359	break;
	360
	361	case wxLOG_Info:
	362	if ( GetVerbose() )
	363	case wxLOG_Message:
	364	case wxLOG_Status:
	365	default: // log unknown log levels too
	366	DoLogString(szString, t);
	367	break;
	368
	369	case wxLOG_Trace:
	370	case wxLOG_Debug:
	371	#ifdef __WXDEBUG__
	372	DoLogString(szString, t);
	373	#endif
	374	break;
	375	}
	376	}
	377
	378	void wxLog::DoLogString(const wxChar *WXUNUSED(szString), time_t WXUNUSED(t))
	379	{
	380	wxFAIL_MSG(wxT("DoLogString must be overriden if it's called."));
	381	}
	382
	383	void wxLog::Flush()
	384	{
	385	// do nothing
	386	}
	387
	388	// ----------------------------------------------------------------------------
	389	// wxLogStderr class implementation
	390	// ----------------------------------------------------------------------------
	391
	392	wxLogStderr::wxLogStderr(FILE *fp)
	393	{
	394	if ( fp == NULL )
	395	m_fp = stderr;
	396	else
	397	m_fp = fp;
	398	}
	399
	400	void wxLogStderr::DoLogString(const wxChar *szString, time_t WXUNUSED(t))
	401	{
	402	wxString str;
	403	TimeStamp(&str);
	404	str << szString;
	405
	406	fputs(str.mb_str(), m_fp);
	407	fputc(_T('\n'), m_fp);
	408	fflush(m_fp);
	409
	410	// under Windows, programs usually don't have stderr at all, so show the
	411	// messages also under debugger - unless it's a console program
	412	#if defined(__WXMSW__) && wxUSE_GUI
	413	OutputDebugString(str + wxT("\r\n"));
	414	#endif // MSW
	415	#if defined(__WXMAC__) && wxUSE_GUI
	416	debugstr(str + wxT("\r\n"));
	417	#endif // MSW
	418	}
	419
	420	// ----------------------------------------------------------------------------
	421	// wxLogStream implementation
	422	// ----------------------------------------------------------------------------
	423
	424	#if wxUSE_STD_IOSTREAM
	425	wxLogStream::wxLogStream(ostream *ostr)
	426	{
	427	if ( ostr == NULL )
	428	m_ostr = &cerr;
	429	else
	430	m_ostr = ostr;
	431	}
	432
	433	void wxLogStream::DoLogString(const wxChar *szString, time_t WXUNUSED(t))
	434	{
	435	(*m_ostr) << wxConvertWX2MB(szString) << endl;
	436	}
	437	#endif // wxUSE_STD_IOSTREAM
	438
	439	// ============================================================================
	440	// Global functions/variables
	441	// ============================================================================
	442
	443	// ----------------------------------------------------------------------------
	444	// static variables
	445	// ----------------------------------------------------------------------------
	446
	447	wxLog wxLog::ms_pLogger = (wxLog )NULL;
	448	bool wxLog::ms_doLog = TRUE;
	449	bool wxLog::ms_bAutoCreate = TRUE;
	450
	451	#if wxUSE_GUI
	452	const wxChar *wxLog::ms_timestamp = wxT("%X"); // time only, no date
	453	#else
	454	const wxChar *wxLog::ms_timestamp = NULL; // save space
	455	#endif
	456
	457	wxTraceMask wxLog::ms_ulTraceMask = (wxTraceMask)0;
	458	wxArrayString wxLog::ms_aTraceMasks;
	459
	460	// ----------------------------------------------------------------------------
	461	// stdout error logging helper
	462	// ----------------------------------------------------------------------------
	463
	464	// helper function: wraps the message and justifies it under given position
	465	// (looks more pretty on the terminal). Also adds newline at the end.
	466	//
	467	// TODO this is now disabled until I find a portable way of determining the
	468	// terminal window size (ok, I found it but does anybody really cares?)
	469	#ifdef LOG_PRETTY_WRAP
	470	static void wxLogWrap(FILE f, const char pszPrefix, const char *psz)
	471	{
	472	size_t nMax = 80; // FIXME
	473	size_t nStart = strlen(pszPrefix);
	474	fputs(pszPrefix, f);
	475
	476	size_t n;
	477	while ( *psz != '\0' ) {
	478	for ( n = nStart; (n < nMax) && (*psz != '\0'); n++ )
	479	putc(*psz++, f);
	480
	481	// wrapped?
	482	if ( *psz != '\0' ) {
	483	/putc('\n', f);/
	484	for ( n = 0; n < nStart; n++ )
	485	putc(' ', f);
	486
	487	// as we wrapped, squeeze all white space
	488	while ( isspace(*psz) )
	489	psz++;
	490	}
	491	}
	492
	493	putc('\n', f);
	494	}
	495	#endif //LOG_PRETTY_WRAP
	496
	497	// ----------------------------------------------------------------------------
	498	// error code/error message retrieval functions
	499	// ----------------------------------------------------------------------------
	500
	501	// get error code from syste
	502	unsigned long wxSysErrorCode()
	503	{
	504	#ifdef __WXMSW__
	505	#ifdef __WIN32__
	506	return ::GetLastError();
	507	#else //WIN16
	508	// TODO what to do on Windows 3.1?
	509	return 0;
	510	#endif //WIN16/32
	511	#else //Unix
	512	return errno;
	513	#endif //Win/Unix
	514	}
	515
	516	// get error message from system
	517	const wxChar *wxSysErrorMsg(unsigned long nErrCode)
	518	{
	519	if ( nErrCode == 0 )
	520	nErrCode = wxSysErrorCode();
	521
	522	#ifdef __WXMSW__
	523	#ifdef __WIN32__
	524	static wxChar s_szBuf[LOG_BUFFER_SIZE / 2];
	525
	526	// get error message from system
	527	LPVOID lpMsgBuf;
	528	FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER \| FORMAT_MESSAGE_FROM_SYSTEM,
	529	NULL, nErrCode,
	530	MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
	531	(LPTSTR)&lpMsgBuf,
	532	0, NULL);
	533
	534	// copy it to our buffer and free memory
	535	wxStrncpy(s_szBuf, (const wxChar *)lpMsgBuf, WXSIZEOF(s_szBuf) - 1);
	536	s_szBuf[WXSIZEOF(s_szBuf) - 1] = wxT('\0');
	537	LocalFree(lpMsgBuf);
	538
	539	// returned string is capitalized and ended with '\r\n' - bad
	540	s_szBuf[0] = (wxChar)wxTolower(s_szBuf[0]);
	541	size_t len = wxStrlen(s_szBuf);
	542	if ( len > 0 ) {
	543	// truncate string
	544	if ( s_szBuf[len - 2] == wxT('\r') )
	545	s_szBuf[len - 2] = wxT('\0');
	546	}
	547
	548	return s_szBuf;
	549	#else //Win16
	550	// TODO
	551	return NULL;
	552	#endif // Win16/32
	553	#else // Unix
	554	#if wxUSE_UNICODE
	555	static wxChar s_szBuf[LOG_BUFFER_SIZE / 2];
	556	wxConvCurrent->MB2WC(s_szBuf, strerror(nErrCode), WXSIZEOF(s_szBuf) -1);
	557	return s_szBuf;
	558	#else
	559	return strerror((int)nErrCode);
	560	#endif
	561	#endif // Win/Unix
	562	}
	563
	564	// ----------------------------------------------------------------------------
	565	// debug helper
	566	// ----------------------------------------------------------------------------
	567
	568	#ifdef __WXDEBUG__
	569
	570	// break into the debugger
	571	void Trap()
	572	{
	573	#ifdef __WXMSW__
	574	DebugBreak();
	575	#elif defined(__WXMAC__)
	576	#if __powerc
	577	Debugger();
	578	#else
	579	SysBreak();
	580	#endif
	581	#elif defined(__UNIX__)
	582	raise(SIGTRAP);
	583	#else
	584	// TODO
	585	#endif // Win/Unix
	586	}
	587
	588	// this function is called when an assert fails
	589	void wxOnAssert(const wxChar szFile, int nLine, const wxChar szMsg)
	590	{
	591	// this variable can be set to true to suppress "assert failure" messages
	592	static bool s_bNoAsserts = FALSE;
	593	static bool s_bInAssert = FALSE; // FIXME MT-unsafe
	594
	595	if ( s_bInAssert ) {
	596	// He-e-e-e-elp!! we're trapped in endless loop
	597	Trap();
	598
	599	s_bInAssert = FALSE;
	600
	601	return;
	602	}
	603
	604	s_bInAssert = TRUE;
	605
	606	wxChar szBuf[LOG_BUFFER_SIZE];
	607
	608	// make life easier for people using VC++ IDE: clicking on the message
	609	// will take us immediately to the place of the failed assert
	610	wxSnprintf(szBuf, WXSIZEOF(szBuf),
	611	#ifdef __VISUALC__
	612	wxT("%s(%d): assert failed"),
	613	#else // !VC++
	614	// make the error message more clear for all the others
	615	wxT("Assert failed in file %s at line %d"),
	616	#endif // VC/!VC
	617	szFile, nLine);
	618
	619	if ( szMsg != NULL ) {
	620	wxStrcat(szBuf, wxT(": "));
	621	wxStrcat(szBuf, szMsg);
	622	}
	623	else {
	624	wxStrcat(szBuf, wxT("."));
	625	}
	626
	627	if ( !s_bNoAsserts ) {
	628	// send it to the normal log destination
	629	wxLogDebug(szBuf);
	630
	631	#if wxUSE_GUI \|\| defined(__WXMSW__)
	632	// this message is intentionally not translated - it is for
	633	// developpers only
	634	wxStrcat(szBuf, wxT("\nDo you want to stop the program?"
	635	"\nYou can also choose [Cancel] to suppress "
	636	"further warnings."));
	637
	638	#if wxUSE_GUI
	639	switch ( wxMessageBox(szBuf, "Debug",
	640	wxYES_NO \| wxCANCEL \| wxICON_STOP ) ) {
	641	case wxYES:
	642	Trap();
	643	break;
	644
	645	case wxCANCEL:
	646	s_bNoAsserts = TRUE;
	647	break;
	648
	649	//case wxNO: nothing to do
	650	}
	651	#else // !GUI, but MSW
	652	switch ( ::MessageBox(NULL, szBuf, "Debug",
	653	MB_YESNOCANCEL \| MB_ICONSTOP ) ) {
	654	case IDYES:
	655	Trap();
	656	break;
	657
	658	case IDCANCEL:
	659	s_bNoAsserts = TRUE;
	660	break;
	661
	662	//case IDNO: nothing to do
	663	}
	664	#endif // GUI or MSW
	665
	666	#else // !GUI
	667	Trap();
	668	#endif // GUI/!GUI
	669	}
	670
	671	s_bInAssert = FALSE;
	672	}
	673
	674	#endif //WXDEBUG
	675