+// flag telling us whether the application wants to handle exceptions at all
+static bool gs_handleExceptions = false;
+
+static void wxFatalExit()
+{
+ // use the same exit code as abort()
+ ::ExitProcess(3);
+}
+
+unsigned long wxGlobalSEHandler(EXCEPTION_POINTERS *pExcPtrs)
+{
+ if ( gs_handleExceptions && wxTheApp )
+ {
+ // store the pointer to exception info
+ wxGlobalSEInformation = pExcPtrs;
+
+ // give the user a chance to do something special about this
+ __try
+ {
+ wxTheApp->OnFatalException();
+ }
+ __except ( EXCEPTION_EXECUTE_HANDLER )
+ {
+ // nothing to do here, just ignore the exception inside the
+ // exception handler
+ ;
+ }
+
+ wxGlobalSEInformation = NULL;
+
+ // this will execute our handler and terminate the process
+ return EXCEPTION_EXECUTE_HANDLER;
+ }
+
+ return EXCEPTION_CONTINUE_SEARCH;
+}
+
+#ifdef __VISUALC__
+
+static void wxSETranslator(unsigned int WXUNUSED(code), EXCEPTION_POINTERS *ep)
+{
+ switch ( wxGlobalSEHandler(ep) )
+ {
+ default:
+ wxFAIL_MSG( _T("unexpected wxGlobalSEHandler() return value") );
+ // fall through
+
+ case EXCEPTION_EXECUTE_HANDLER:
+ // if wxApp::OnFatalException() had been called we should exit the
+ // application -- but we shouldn't kill our host when we're a DLL
+#ifndef WXMAKINGDLL
+ wxFatalExit();
+#endif // not a DLL
+ break;
+
+ case EXCEPTION_CONTINUE_SEARCH:
+ // we're called for each "catch ( ... )" and if we (re)throw from
+ // here, the catch handler body is not executed, so the effect is
+ // as if had inhibited translation of SE to C++ ones because the
+ // handler will never see any structured exceptions
+ throw;
+ }
+}
+
+#endif // __VISUALC__
+
+bool wxHandleFatalExceptions(bool doit)
+{
+ // assume this can only be called from the main thread
+ gs_handleExceptions = doit;
+
+#if wxUSE_CRASHREPORT
+ if ( doit )
+ {
+ // try to find a place where we can put out report file later
+ wxChar fullname[MAX_PATH];
+ if ( !::GetTempPath(WXSIZEOF(fullname), fullname) )
+ {
+ wxLogLastError(_T("GetTempPath"));
+
+ // when all else fails...
+ wxStrcpy(fullname, _T("c:\\"));
+ }
+
+ // use PID and date to make the report file name more unique
+ wxString name = wxString::Format
+ (
+ _T("%s_%s_%lu.dmp"),
+ wxTheApp ? wxTheApp->GetAppName().c_str()
+ : _T("wxwindows"),
+ wxDateTime::Now().Format(_T("%Y%m%dT%H%M%S")).c_str(),
+ ::GetCurrentProcessId()
+ );
+
+ wxStrncat(fullname, name, WXSIZEOF(fullname) - wxStrlen(fullname) - 1);
+
+ wxCrashReport::SetFileName(fullname);
+ }
+#endif // wxUSE_CRASHREPORT
+
+ return true;
+}
+
+int wxEntry(int& argc, wxChar **argv)
+{
+ DisableAutomaticSETranslator();
+
+ __try
+ {
+ return wxEntryReal(argc, argv);
+ }
+ __except ( wxGlobalSEHandler(GetExceptionInformation()) )
+ {
+ wxFatalExit();
+
+#if !defined(_MSC_VER) || defined(__WXDEBUG__) || (defined(_MSC_VER) && _MSC_VER <= 1200)
+ // this code is unreachable but put it here to suppress warnings in some compilers
+ // and disable for others to supress warnings too
+ return -1;
+#endif // !__VISUALC__ in release build
+ }
+}
+
+#else // !wxUSE_ON_FATAL_EXCEPTION
+
+#if defined(__VISUALC__) && !defined(__WXWINCE__)
+
+static void
+wxSETranslator(unsigned int WXUNUSED(code), EXCEPTION_POINTERS * WXUNUSED(ep))
+{
+ // see wxSETranslator() version for wxUSE_ON_FATAL_EXCEPTION above
+ throw;
+}
+
+#endif // __VISUALC__
+
+int wxEntry(int& argc, wxChar **argv)
+{
+ DisableAutomaticSETranslator();
+
+ return wxEntryReal(argc, argv);
+}
+
+#endif // wxUSE_ON_FATAL_EXCEPTION/!wxUSE_ON_FATAL_EXCEPTION
+
+#endif // wxUSE_BASE
+
+#if wxUSE_GUI && defined(__WXMSW__)
+
+#if wxUSE_UNICODE && !defined(__WXWINCE__)
+ #define NEED_UNICODE_CHECK
+#endif
+
+#ifdef NEED_UNICODE_CHECK
+
+// check whether Unicode is available
+static bool wxIsUnicodeAvailable()
+{
+ static const wchar_t *ERROR_STRING = L"wxWidgets Fatal Error";
+
+ if ( wxGetOsVersion() != wxWINDOWS_NT )
+ {
+ // we need to be built with MSLU support
+#if !wxUSE_UNICODE_MSLU
+ // note that we can use MessageBoxW() as it's implemented even under
+ // Win9x - OTOH, we can't use wxGetTranslation() because the file APIs
+ // used by wxLocale are not
+ ::MessageBox
+ (
+ NULL,
+ L"This program uses Unicode and requires Windows NT/2000/XP.\n"
+ L"\n"
+ L"Program aborted.",
+ ERROR_STRING,
+ MB_ICONERROR | MB_OK
+ );
+
+ return false;
+#else // wxUSE_UNICODE_MSLU
+ // and the MSLU DLL must also be available
+ HMODULE hmod = ::LoadLibraryA("unicows.dll");
+ if ( !hmod )
+ {
+ ::MessageBox
+ (
+ NULL,
+ L"This program uses Unicode and requires unicows.dll to work "
+ L"under current operating system.\n"
+ L"\n"
+ L"Please install unicows.dll and relaunch the program.",
+ ERROR_STRING,
+ MB_ICONERROR | MB_OK
+ );
+ return false;
+ }
+
+ // this is not really necessary but be tidy
+ ::FreeLibrary(hmod);
+
+ // finally do the last check: has unicows.lib initialized correctly?
+ hmod = ::LoadLibraryW(L"unicows.dll");
+ if ( !hmod )
+ {
+ ::MessageBox
+ (
+ NULL,
+ L"This program uses Unicode but is not using unicows.dll\n"
+ L"correctly and so cannot work under current operating system.\n"
+ L"Please contact the program author for an updated version.\n"
+ L"\n"
+ L"Program aborted.",
+ ERROR_STRING,
+ MB_ICONERROR | MB_OK
+ );
+
+ return false;
+ }
+
+ ::FreeLibrary(hmod);
+#endif // !wxUSE_UNICODE_MSLU
+ }
+
+ return true;
+}
+
+#endif // NEED_UNICODE_CHECK