1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: Assorted wxLogXXX functions, and wxLog (sink for logs)
4 // Author: Vadim Zeitlin
8 // Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
12 // ============================================================================
14 // ============================================================================
16 // ----------------------------------------------------------------------------
18 // ----------------------------------------------------------------------------
20 #pragma implementation "log.h"
23 // For compilers that support precompilation, includes "wx.h".
24 #include "wx/wxprec.h"
33 #include <wx/string.h>
38 #include <wx/generic/msgdlgg.h>
39 #include <wx/filedlg.h>
40 #include <wx/textctrl.h>
44 #include <wx/textfile.h>
48 // other standard headers
59 // ----------------------------------------------------------------------------
60 // non member functions
61 // ----------------------------------------------------------------------------
63 // define this to enable wrapping of log messages
64 //#define LOG_PRETTY_WRAP
66 #ifdef LOG_PRETTY_WRAP
67 static void wxLogWrap(FILE *f
, const char *pszPrefix
, const char *psz
);
70 // ----------------------------------------------------------------------------
72 // ----------------------------------------------------------------------------
74 // we use a global variable to store the frame pointer for wxLogStatus - bad,
75 // but it's he easiest way
76 static wxFrame
*gs_pFrame
;
78 // ============================================================================
80 // ============================================================================
82 // ----------------------------------------------------------------------------
83 // implementation of Log functions
85 // NB: unfortunately we need all these distinct functions, we can't make them
86 // macros and not all compilers inline vararg functions.
87 // ----------------------------------------------------------------------------
89 // log functions can't allocate memory (LogError("out of memory...") should
90 // work!), so we use a static buffer for all log messages
91 #define LOG_BUFFER_SIZE (4096)
93 // static buffer for error messages (@@@ MT-unsafe)
94 static char s_szBuf
[LOG_BUFFER_SIZE
];
96 // generic log function
97 void wxLogGeneric(wxLogLevel level
, const char *szFormat
, ...)
99 if ( wxLog::GetActiveTarget() != NULL
) {
101 va_start(argptr
, szFormat
);
102 vsprintf(s_szBuf
, szFormat
, argptr
);
105 wxLog::OnLog(level
, s_szBuf
);
109 #define IMPLEMENT_LOG_FUNCTION(level) \
110 void wxLog##level(const char *szFormat, ...) \
112 if ( wxLog::GetActiveTarget() != NULL ) { \
114 va_start(argptr, szFormat); \
115 vsprintf(s_szBuf, szFormat, argptr); \
118 wxLog::OnLog(wxLOG_##level, s_szBuf); \
122 IMPLEMENT_LOG_FUNCTION(FatalError
)
123 IMPLEMENT_LOG_FUNCTION(Error
)
124 IMPLEMENT_LOG_FUNCTION(Warning
)
125 IMPLEMENT_LOG_FUNCTION(Message
)
126 IMPLEMENT_LOG_FUNCTION(Info
)
127 IMPLEMENT_LOG_FUNCTION(Status
)
129 // accepts an additional argument which tells to which frame the output should
131 void wxLogStatus(wxFrame
*pFrame
, const char *szFormat
, ...)
133 wxLog
*pLog
= wxLog::GetActiveTarget();
134 if ( pLog
!= NULL
) {
136 va_start(argptr
, szFormat
);
137 vsprintf(s_szBuf
, szFormat
, argptr
);
140 wxASSERT( gs_pFrame
== NULL
); // should be reset!
142 wxLog::OnLog(wxLOG_Status
, s_szBuf
);
143 gs_pFrame
= (wxFrame
*) NULL
;
147 // same as info, but only if 'verbose' mode is on
148 void wxLogVerbose(const char *szFormat
, ...)
150 wxLog
*pLog
= wxLog::GetActiveTarget();
151 if ( pLog
!= NULL
&& pLog
->GetVerbose() ) {
153 va_start(argptr
, szFormat
);
154 vsprintf(s_szBuf
, szFormat
, argptr
);
157 wxLog::OnLog(wxLOG_Info
, s_szBuf
);
163 #define IMPLEMENT_LOG_DEBUG_FUNCTION(level) \
164 void wxLog##level(const char *szFormat, ...) \
166 if ( wxLog::GetActiveTarget() != NULL ) { \
168 va_start(argptr, szFormat); \
169 vsprintf(s_szBuf, szFormat, argptr); \
172 wxLog::OnLog(wxLOG_##level, s_szBuf); \
176 void wxLogTrace(wxTraceMask mask
, const char *szFormat
, ...)
178 wxLog
*pLog
= wxLog::GetActiveTarget();
180 // we check that all of mask bits are set in the current mask, so
181 // that wxLogTrace(wxTraceRefCount | wxTraceOle) will only do something
182 // if both bits are set.
183 if ( pLog
!= NULL
&& ((pLog
->GetTraceMask() & mask
) == mask
) ) {
185 va_start(argptr
, szFormat
);
186 vsprintf(s_szBuf
, szFormat
, argptr
);
189 wxLog::OnLog(wxLOG_Trace
, s_szBuf
);
194 #define IMPLEMENT_LOG_DEBUG_FUNCTION(level)
197 IMPLEMENT_LOG_DEBUG_FUNCTION(Debug
)
198 IMPLEMENT_LOG_DEBUG_FUNCTION(Trace
)
200 // wxLogSysError: one uses the last error code, for other you must give it
203 // common part of both wxLogSysError
204 void wxLogSysErrorHelper(long lErrCode
)
206 char szErrMsg
[LOG_BUFFER_SIZE
/ 2];
207 sprintf(szErrMsg
, _(" (error %ld: %s)"), lErrCode
, wxSysErrorMsg(lErrCode
));
208 strncat(s_szBuf
, szErrMsg
, WXSIZEOF(s_szBuf
) - strlen(s_szBuf
));
210 wxLog::OnLog(wxLOG_Error
, s_szBuf
);
213 void WXDLLEXPORT
wxLogSysError(const char *szFormat
, ...)
216 va_start(argptr
, szFormat
);
217 vsprintf(s_szBuf
, szFormat
, argptr
);
220 wxLogSysErrorHelper(wxSysErrorCode());
223 void WXDLLEXPORT
wxLogSysError(long lErrCode
, const char *szFormat
, ...)
226 va_start(argptr
, szFormat
);
227 vsprintf(s_szBuf
, szFormat
, argptr
);
230 wxLogSysErrorHelper(lErrCode
);
233 // ----------------------------------------------------------------------------
234 // wxLog class implementation
235 // ----------------------------------------------------------------------------
239 m_bHasMessages
= FALSE
;
241 m_szTimeFormat
= "[%d/%b/%y %H:%M:%S] ";
244 wxLog
*wxLog::GetActiveTarget()
246 if ( ms_bAutoCreate
&& ms_pLogger
== NULL
) {
247 // prevent infinite recursion if someone calls wxLogXXX() from
248 // wxApp::CreateLogTarget()
249 static bool s_bInGetActiveTarget
= FALSE
;
250 if ( !s_bInGetActiveTarget
) {
251 s_bInGetActiveTarget
= TRUE
;
254 ms_pLogger
= new wxLogStderr
;
256 // ask the application to create a log target for us
257 if ( wxTheApp
!= NULL
)
258 ms_pLogger
= wxTheApp
->CreateLogTarget();
261 s_bInGetActiveTarget
= FALSE
;
263 // do nothing if it fails - what can we do?
270 wxLog
*wxLog::SetActiveTarget(wxLog
*pLogger
)
272 if ( ms_pLogger
!= NULL
) {
273 // flush the old messages before changing because otherwise they might
274 // get lost later if this target is not restored
278 wxLog
*pOldLogger
= ms_pLogger
;
279 ms_pLogger
= pLogger
;
284 wxString
wxLog::TimeStamp() const
288 if ( !IsEmpty(m_szTimeFormat
) ) {
294 ptmNow
= localtime(&timeNow
);
296 strftime(szBuf
, WXSIZEOF(szBuf
), m_szTimeFormat
, ptmNow
);
303 void wxLog::DoLog(wxLogLevel level
, const char *szString
)
305 // prepend a timestamp if not disabled
306 wxString str
= TimeStamp();
309 case wxLOG_FatalError
:
310 DoLogString(str
<< _("Fatal error: ") << szString
);
311 DoLogString(_("Program aborted."));
317 DoLogString(str
<< _("Error: ") << szString
);
321 DoLogString(str
<< _("Warning: ") << szString
);
327 DoLogString(str
+ szString
);
337 DoLogString(str
<< (level
== wxLOG_Trace
? _("Trace") : _("Debug"))
338 << ": " << szString
);
344 wxFAIL_MSG(_("unknown log level in wxLog::DoLog"));
348 void wxLog::DoLogString(const char *WXUNUSED(szString
))
350 wxFAIL_MSG(_("DoLogString must be overrided if it's called."));
358 // ----------------------------------------------------------------------------
359 // wxLogStderr class implementation
360 // ----------------------------------------------------------------------------
362 wxLogStderr::wxLogStderr(FILE *fp
)
370 void wxLogStderr::DoLogString(const char *szString
)
372 fputs(szString
, m_fp
);
377 // ----------------------------------------------------------------------------
378 // wxLogStream implementation
379 // ----------------------------------------------------------------------------
381 wxLogStream::wxLogStream(ostream
*ostr
)
389 void wxLogStream::DoLogString(const char *szString
)
391 (*m_ostr
) << szString
<< endl
<< flush
;
395 // ----------------------------------------------------------------------------
396 // wxLogTextCtrl implementation
397 // ----------------------------------------------------------------------------
398 wxLogTextCtrl::wxLogTextCtrl(wxTextCtrl
*pTextCtrl
)
399 // @@@ TODO: in wxGTK wxTextCtrl doesn't derive from streambuf
401 // Also, in DLL mode in wxMSW, can't use it.
402 #if defined(NO_TEXT_WINDOW_STREAM)
404 : wxLogStream(new ostream(pTextCtrl
))
409 wxLogTextCtrl::~wxLogTextCtrl()
414 // ----------------------------------------------------------------------------
415 // wxLogGui implementation
416 // ----------------------------------------------------------------------------
423 void wxLogGui::Flush()
425 if ( !m_bHasMessages
)
428 // do it right now to block any new calls to Flush() while we're here
429 m_bHasMessages
= FALSE
;
433 // concatenate all strings (but not too many to not overfill the msg box)
436 nMsgCount
= m_aMessages
.Count();
438 // start from the most recent message
439 for ( size_t n
= nMsgCount
; n
> 0; n
-- ) {
440 // for Windows strings longer than this value are wrapped (NT 4.0)
441 const size_t nMsgLineWidth
= 156;
443 nLines
+= (m_aMessages
[n
- 1].Len() + nMsgLineWidth
- 1) / nMsgLineWidth
;
445 if ( nLines
> 25 ) // don't put too many lines in message box
448 str
<< m_aMessages
[n
- 1] << "\n";
452 wxMessageBox(str
, _("Error"), wxOK
| wxICON_EXCLAMATION
);
455 wxMessageBox(str
, _("Information"), wxOK
| wxICON_INFORMATION
);
458 // no undisplayed messages whatsoever
463 // the default behaviour is to discard all informational messages if there
464 // are any errors/warnings.
465 void wxLogGui::DoLog(wxLogLevel level
, const char *szString
)
472 m_aMessages
.Add(szString
);
473 m_bHasMessages
= TRUE
;
479 // find the top window and set it's status text if it has any
480 wxFrame
*pFrame
= gs_pFrame
;
481 if ( pFrame
== NULL
) {
482 wxWindow
*pWin
= wxTheApp
->GetTopWindow();
483 if ( pWin
!= NULL
&& pWin
->IsKindOf(CLASSINFO(wxFrame
)) ) {
484 pFrame
= (wxFrame
*)pWin
;
488 if ( pFrame
!= NULL
)
489 pFrame
->SetStatusText(szString
);
497 wxString strTime
= TimeStamp();
499 #if defined(__WIN32__) && !defined(__WXSTUBS__)
500 // don't prepend debug/trace here: it goes to the debug window
501 // anyhow, but do put a timestamp
502 OutputDebugString(strTime
+ szString
+ "\n\r");
504 // send them to stderr
505 fprintf(stderr
, "%s %s: %s\n",
507 level
== wxLOG_Trace
? _("Trace") : _("Debug"),
515 case wxLOG_FatalError
:
516 // show this one immediately
517 wxMessageBox(szString
, _("Fatal error"), wxICON_HAND
);
522 // discard earlier informational messages if this is the 1st error
525 m_bHasMessages
= TRUE
;
529 m_aMessages
.Add(szString
);
533 wxFAIL_MSG(_("unknown log level in wxLogGui::DoLog"));
537 // ----------------------------------------------------------------------------
538 // wxLogWindow and wxLogFrame implementation
539 // ----------------------------------------------------------------------------
543 class wxLogFrame
: public wxFrame
547 wxLogFrame(wxFrame
*pParent
, wxLogWindow
*log
, const char *szTitle
);
548 virtual ~wxLogFrame();
551 void OnClose(wxCommandEvent
& event
);
552 void OnCloseWindow(wxCloseEvent
& event
);
553 void OnSave (wxCommandEvent
& event
);
554 void OnClear(wxCommandEvent
& event
);
556 void OnIdle(wxIdleEvent
&);
559 wxTextCtrl
*TextCtrl() const { return m_pTextCtrl
; }
569 // instead of closing just hide the window to be able to Show() it later
570 void DoClose() { Show(FALSE
); }
572 wxTextCtrl
*m_pTextCtrl
;
575 DECLARE_EVENT_TABLE()
578 BEGIN_EVENT_TABLE(wxLogFrame
, wxFrame
)
579 // wxLogWindow menu events
580 EVT_MENU(Menu_Close
, wxLogFrame::OnClose
)
581 EVT_MENU(Menu_Save
, wxLogFrame::OnSave
)
582 EVT_MENU(Menu_Clear
, wxLogFrame::OnClear
)
584 EVT_CLOSE(wxLogFrame::OnCloseWindow
)
587 wxLogFrame::wxLogFrame(wxFrame
*pParent
, wxLogWindow
*log
, const char *szTitle
)
588 : wxFrame(pParent
, -1, szTitle
)
592 // @@ kludge: wxSIMPLE_BORDER is simply to prevent wxWindows from creating
593 // a rich edit control instead of a normal one we want in wxMSW
594 m_pTextCtrl
= new wxTextCtrl(this, -1, wxEmptyString
, wxDefaultPosition
,
602 wxMenuBar
*pMenuBar
= new wxMenuBar
;
603 wxMenu
*pMenu
= new wxMenu
;
604 pMenu
->Append(Menu_Save
, _("&Save..."), _("Save log contents to file"));
605 pMenu
->Append(Menu_Clear
, _("C&lear"), _("Clear the log contents"));
606 pMenu
->AppendSeparator();
607 pMenu
->Append(Menu_Close
, _("&Close"), _("Close this window"));
608 pMenuBar
->Append(pMenu
, _("&Log"));
609 SetMenuBar(pMenuBar
);
611 // status bar for menu prompts
614 m_log
->OnFrameCreate(this);
617 void wxLogFrame::OnClose(wxCommandEvent
& WXUNUSED(event
))
622 void wxLogFrame::OnCloseWindow(wxCloseEvent
& WXUNUSED(event
))
627 void wxLogFrame::OnSave(wxCommandEvent
& WXUNUSED(event
))
631 const char *szFileName
= wxSaveFileSelector("log", "txt", "log.txt");
632 if ( szFileName
== NULL
) {
641 if ( wxFile::Exists(szFileName
) ) {
642 bool bAppend
= FALSE
;
644 strMsg
.Printf(_("Append log to file '%s' "
645 "(choosing [No] will overwrite it)?"), szFileName
);
646 switch ( wxMessageBox(strMsg
, _("Question"), wxYES_NO
| wxCANCEL
) ) {
659 wxFAIL_MSG(_("invalid message box return value"));
663 bOk
= file
.Open(szFileName
, wxFile::write_append
);
666 bOk
= file
.Create(szFileName
, TRUE
/* overwrite */);
670 bOk
= file
.Create(szFileName
);
673 // retrieve text and save it
674 // -------------------------
676 // @@@@ TODO: no GetNumberOfLines and GetLineText in wxGTK yet
677 wxLogError(_("Sorry, this function is not implemented under GTK"));
679 int nLines
= m_pTextCtrl
->GetNumberOfLines();
680 for ( int nLine
= 0; bOk
&& nLine
< nLines
; nLine
++ ) {
681 bOk
= file
.Write(m_pTextCtrl
->GetLineText(nLine
) + wxTextFile::GetEOL());
689 wxLogError(_("Can't save log contents to file."));
694 void wxLogFrame::OnClear(wxCommandEvent
& WXUNUSED(event
))
696 m_pTextCtrl
->Clear();
699 wxLogFrame::~wxLogFrame()
701 m_log
->OnFrameDelete(this);
706 wxLogWindow::wxLogWindow(wxFrame
*pParent
,
711 m_bPassMessages
= bDoPass
;
713 m_pLogFrame
= new wxLogFrame(pParent
, this, szTitle
);
714 m_pOldLog
= wxLog::SetActiveTarget(this);
717 m_pLogFrame
->Show(TRUE
);
720 void wxLogWindow::Show(bool bShow
)
722 m_pLogFrame
->Show(bShow
);
725 void wxLogWindow::Flush()
727 if ( m_pOldLog
!= NULL
)
730 m_bHasMessages
= FALSE
;
733 void wxLogWindow::DoLog(wxLogLevel level
, const char *szString
)
735 // first let the previous logger show it
736 if ( m_pOldLog
!= NULL
&& m_bPassMessages
) {
737 // @@@ why can't we access protected wxLog method from here (we derive
738 // from wxLog)? gcc gives "DoLog is protected in this context", what
739 // does this mean? Anyhow, the cast is harmless and let's us do what
741 ((wxLogWindow
*)m_pOldLog
)->DoLog(level
, szString
);
747 // by default, these messages are ignored by wxLog, so process
750 wxString str
= TimeStamp();
751 str
<< _("Status: ") << szString
;
756 // don't put trace messages in the text window for 2 reasons:
757 // 1) there are too many of them
758 // 2) they may provoke other trace messages thus sending a program
759 // into an infinite loop
764 // and this will format it nicely and call our DoLogString()
765 wxLog::DoLog(level
, szString
);
769 m_bHasMessages
= TRUE
;
772 void wxLogWindow::DoLogString(const char *szString
)
774 // put the text into our window
775 wxTextCtrl
*pText
= m_pLogFrame
->TextCtrl();
777 // remove selection (WriteText is in fact ReplaceSelection)
779 long nLen
= pText
->GetLastPosition();
780 pText
->SetSelection(nLen
, nLen
);
783 pText
->WriteText(szString
);
784 pText
->WriteText("\n"); // "\n" ok here (_not_ "\r\n")
786 // TODO ensure that the line can be seen
789 wxFrame
*wxLogWindow::GetFrame() const
794 void wxLogWindow::OnFrameCreate(wxFrame
*WXUNUSED(frame
))
798 void wxLogWindow::OnFrameDelete(wxFrame
*WXUNUSED(frame
))
800 m_pLogFrame
= (wxLogFrame
*)NULL
;
803 wxLogWindow::~wxLogWindow()
807 // may be NULL if log frame already auto destroyed itself
813 // ============================================================================
814 // Global functions/variables
815 // ============================================================================
817 // ----------------------------------------------------------------------------
819 // ----------------------------------------------------------------------------
820 wxLog
*wxLog::ms_pLogger
= (wxLog
*) NULL
;
821 bool wxLog::ms_doLog
= TRUE
;
822 bool wxLog::ms_bAutoCreate
= TRUE
;
823 wxTraceMask
wxLog::ms_ulTraceMask
= (wxTraceMask
)0;
825 // ----------------------------------------------------------------------------
826 // stdout error logging helper
827 // ----------------------------------------------------------------------------
829 // helper function: wraps the message and justifies it under given position
830 // (looks more pretty on the terminal). Also adds newline at the end.
832 // @@ this is now disabled until I find a portable way of determining the
833 // terminal window size (ok, I found it but does anybody really cares?)
834 #ifdef LOG_PRETTY_WRAP
835 static void wxLogWrap(FILE *f
, const char *pszPrefix
, const char *psz
)
837 size_t nMax
= 80; // @@@@
838 size_t nStart
= strlen(pszPrefix
);
842 while ( *psz
!= '\0' ) {
843 for ( n
= nStart
; (n
< nMax
) && (*psz
!= '\0'); n
++ )
847 if ( *psz
!= '\0' ) {
849 for ( n
= 0; n
< nStart
; n
++ )
852 // as we wrapped, squeeze all white space
853 while ( isspace(*psz
) )
860 #endif //LOG_PRETTY_WRAP
862 // ----------------------------------------------------------------------------
863 // error code/error message retrieval functions
864 // ----------------------------------------------------------------------------
866 // get error code from syste
867 unsigned long wxSysErrorCode()
871 return ::GetLastError();
873 // @@@@ what to do on Windows 3.1?
881 // get error message from system
882 const char *wxSysErrorMsg(unsigned long nErrCode
)
885 nErrCode
= wxSysErrorCode();
889 static char s_szBuf
[LOG_BUFFER_SIZE
/ 2];
891 // get error message from system
893 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER
| FORMAT_MESSAGE_FROM_SYSTEM
,
895 MAKELANGID(LANG_NEUTRAL
, SUBLANG_DEFAULT
),
899 // copy it to our buffer and free memory
900 strncpy(s_szBuf
, (const char *)lpMsgBuf
, WXSIZEOF(s_szBuf
) - 1);
901 s_szBuf
[WXSIZEOF(s_szBuf
) - 1] = '\0';
904 // returned string is capitalized and ended with '\r\n' - bad
905 s_szBuf
[0] = (char)wxToLower(s_szBuf
[0]);
906 size_t len
= strlen(s_szBuf
);
909 if ( s_szBuf
[len
- 2] == '\r' )
910 s_szBuf
[len
- 2] = '\0';
919 return strerror(nErrCode
);
923 // ----------------------------------------------------------------------------
925 // ----------------------------------------------------------------------------
933 #elif defined(__WXSTUBS__)
940 // this function is called when an assert fails
941 void wxOnAssert(const char *szFile
, int nLine
, const char *szMsg
)
943 // this variable can be set to true to suppress "assert failure" messages
944 static bool s_bNoAsserts
= FALSE
;
945 static bool s_bInAssert
= FALSE
;
948 // He-e-e-e-elp!! we're trapped in endless loop
956 char szBuf
[LOG_BUFFER_SIZE
];
957 sprintf(szBuf
, _("Assert failed in file %s at line %d"), szFile
, nLine
);
958 if ( szMsg
!= NULL
) {
960 strcat(szBuf
, szMsg
);
966 if ( !s_bNoAsserts
) {
967 // send it to the normal log destination
973 strcat(szBuf
, _("\nDo you want to stop the program?"
974 "\nYou can also choose [Cancel] to suppress "
975 "further warnings."));
977 switch ( wxMessageBox(szBuf
, _("Debug"),
978 wxYES_NO
| wxCANCEL
| wxICON_STOP
) ) {
987 //case wxNO: nothing to do