src/msw/utils.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        utils.cpp
   3 // Purpose:     Various utilities
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart and Markus Holzem
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 // #pragma implementation "utils.h"   // Note: this is done in utilscmn.cpp now.
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __BORLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24 #include "wx/setup.h"
  25 #include "wx/utils.h"
  26 #include "wx/app.h"
  27 #include "wx/cursor.h"
  28 #endif  //WX_PRECOMP
  29
  30 #include "wx/msw/private.h"
  31 #include "wx/timer.h"
  32 #include "wx/intl.h"
  33
  34 #include <windows.h>
  35
  36 #include <ctype.h>
  37
  38 #if !defined(__GNUWIN32__) && !defined(__WXWINE__) && !defined(__SALFORDC__)
  39 #include <direct.h>
  40
  41 #ifndef __MWERKS__
  42 #include <dos.h>
  43 #endif
  44 #endif  //GNUWIN32
  45
  46 #if defined(__GNUWIN32__) && !defined(__TWIN32__)
  47 #include <sys/unistd.h>
  48 #include <sys/stat.h>
  49 #endif  //GNUWIN32
  50
  51 #include "wx/log.h"
  52
  53 #ifdef __BORLANDC__ // Please someone tell me which version of Borland needs
  54                     // this (3.1 I believe) and how to test for it.
  55                     // If this works for Borland 4.0 as well, then no worries.
  56 #include <dir.h>
  57 #endif
  58
  59 #if defined(__WIN32__) && !defined(__WXWINE__)
  60 #include <io.h>
  61
  62 #ifndef __GNUWIN32__
  63 #include <shellapi.h>
  64 #endif
  65 #endif
  66
  67 #include <stdio.h>
  68 #include <stdlib.h>
  69 #include <string.h>
  70 #ifndef __WATCOMC__
  71     #if !(defined(_MSC_VER) && (_MSC_VER > 800))
  72         #include <errno.h>
  73     #endif
  74 #endif
  75 #include <stdarg.h>
  76
  77 //// BEGIN for console support: VC++ only
  78 #ifdef __VISUALC__
  79
  80 #include "wx/msw/msvcrt.h"
  81
  82 #include <fcntl.h>
  83
  84 #include "wx/ioswrap.h"
  85
  86 #if wxUSE_IOSTREAMH
  87 // N.B. BC++ doesn't have istream.h, ostream.h
  88 #  include <io.h>
  89 #  include <fstream.h>
  90 #else
  91 #  include <fstream>
  92 #endif
  93
  94 /* Need to undef new if including crtdbg.h */
  95 #  ifdef new
  96 #  undef new
  97 #  endif
  98
  99 #ifndef __WIN16__
 100 #  include <crtdbg.h>
 101 #endif
 102
 103 #  if defined(__WXDEBUG__) && wxUSE_GLOBAL_MEMORY_OPERATORS && wxUSE_DEBUG_NEW_ALWAYS
 104 #  define new new(__FILE__,__LINE__)
 105 #  endif
 106
 107 #endif
 108   // __VISUALC__
 109 /// END for console support
 110
 111 // In the WIN.INI file
 112 static const wxChar WX_SECTION[] = _T("wxWindows");
 113 static const wxChar eHOSTNAME[]  = _T("HostName");
 114 static const wxChar eUSERID[]    = _T("UserId");
 115 static const wxChar eUSERNAME[]  = _T("UserName");
 116
 117 // For the following functions we SHOULD fill in support
 118 // for Windows-NT (which I don't know) as I assume it begin
 119 // a POSIX Unix (so claims MS) that it has some special
 120 // functions beyond those provided by WinSock
 121
 122 // Get full hostname (eg. DoDo.BSn-Germany.crg.de)
 123 bool wxGetHostName(wxChar *buf, int maxSize)
 124 {
 125 #if defined(__WIN32__) && !defined(__TWIN32__)
 126   DWORD nSize = maxSize;
 127   return (::GetComputerName(buf, &nSize) != 0);
 128 #else
 129   wxChar *sysname;
 130   const wxChar *default_host = _T("noname");
 131
 132   if ((sysname = wxGetenv(_T("SYSTEM_NAME"))) == NULL) {
 133      GetProfileString(WX_SECTION, eHOSTNAME, default_host, buf, maxSize - 1);
 134   } else
 135     wxStrncpy(buf, sysname, maxSize - 1);
 136   buf[maxSize] = _T('\0');
 137   return *buf ? TRUE : FALSE;
 138 #endif
 139 }
 140
 141 // Get user ID e.g. jacs
 142 bool wxGetUserId(wxChar *buf, int maxSize)
 143 {
 144 #if defined(__WIN32__) && !defined(__win32s__) && !defined(__TWIN32__)
 145
 146     // VZ: why should it be so complicated??
 147 #if 0
 148   // Gets the current user's full name according to the MS article PSS ID
 149   // Number: Q119670
 150   // Seems to be the same as the login name for me?
 151   char *UserName = new char[256];
 152   char *Domain = new char[256];
 153   DWORD maxCharacters = 255;
 154   GetUserName( UserName, &maxCharacters );
 155   GetComputerName( Domain, &maxCharacters );
 156
 157   WCHAR  wszUserName[256];           // Unicode user name
 158   WCHAR  wszDomain[256];
 159   LPBYTE ComputerName;
 160
 161   struct _SERVER_INFO_100 *si100;   // Server structure
 162   struct _USER_INFO_2 *ui;          // User structure
 163
 164   // Convert ASCII user name and domain to Unicode.
 165
 166   MultiByteToWideChar( CP_ACP, 0, UserName,
 167      strlen(UserName)+1, wszUserName, sizeof(wszUserName) );
 168   MultiByteToWideChar( CP_ACP, 0, Domain,
 169      strlen(Domain)+1, wszDomain, sizeof(wszDomain) );
 170
 171   // Get the computer name of a DC for the specified domain.
 172   // >If you get a link error on this, include netapi32.lib<
 173
 174   NetGetDCName( NULL, wszDomain, &ComputerName );
 175
 176   // Look up the user on the DC.
 177
 178   if(NetUserGetInfo( (LPWSTR) ComputerName,
 179      (LPWSTR) &wszUserName, 2, (LPBYTE *) &ui))
 180   {
 181      printf( "Error getting user information.\n" );
 182      return( FALSE );
 183   }
 184
 185   // Convert the Unicode full name to ASCII.
 186
 187   WideCharToMultiByte( CP_ACP, 0, ui->usri2_full_name,
 188      -1, buf, 256, NULL, NULL );
 189   }
 190   return( TRUE );
 191 #else   // 1
 192     DWORD nSize = maxSize;
 193     if ( ::GetUserName(buf, &nSize) == 0 )
 194     {
 195         wxLogSysError(_T("Can not get user name"));
 196
 197         return FALSE;
 198     }
 199
 200     return TRUE;
 201 #endif  // 0/1
 202
 203 #else   // Win16 or Win32s
 204   wxChar *user;
 205   const wxChar *default_id = _T("anonymous");
 206
 207   // Can't assume we have NIS (PC-NFS) or some other ID daemon
 208   // So we ...
 209   if (  (user = wxGetenv(_T("USER"))) == NULL &&
 210   (user = wxGetenv(_T("LOGNAME"))) == NULL ) {
 211      // Use wxWindows configuration data (comming soon)
 212      GetProfileString(WX_SECTION, eUSERID, default_id, buf, maxSize - 1);
 213   } else
 214     wxStrncpy(buf, user, maxSize - 1);
 215   return *buf ? TRUE : FALSE;
 216 #endif
 217 }
 218
 219 // Get user name e.g. Julian Smart
 220 bool wxGetUserName(wxChar *buf, int maxSize)
 221 {
 222 #if wxUSE_PENWINDOWS && !defined(__WATCOMC__) && !defined(__GNUWIN32__)
 223   extern HANDLE g_hPenWin; // PenWindows Running?
 224   if (g_hPenWin)
 225   {
 226     // PenWindows Does have a user concept!
 227     // Get the current owner of the recognizer
 228     GetPrivateProfileString("Current", "User", default_name, wxBuffer, maxSize - 1, "PENWIN.INI");
 229     strncpy(buf, wxBuffer, maxSize - 1);
 230   }
 231   else
 232 #endif
 233   {
 234     // Could use NIS, MS-Mail or other site specific programs
 235     // Use wxWindows configuration data
 236     bool ok = GetProfileString(WX_SECTION, eUSERNAME, _T(""), buf, maxSize - 1) != 0;
 237     if ( !ok )
 238     {
 239         ok = wxGetUserId(buf, maxSize);
 240     }
 241
 242     if ( !ok )
 243     {
 244         wxStrncpy(buf, _T("Unknown User"), maxSize);
 245     }
 246   }
 247
 248   return TRUE;
 249 }
 250
 251 int wxKill(long pid, int sig)
 252 {
 253   return 0;
 254 }
 255
 256 //
 257 // Execute a program in an Interactive Shell
 258 //
 259 bool
 260 wxShell(const wxString& command)
 261 {
 262   wxChar *shell;
 263   if ((shell = wxGetenv(_T("COMSPEC"))) == NULL)
 264     shell = _T("\\COMMAND.COM");
 265
 266   wxChar tmp[255];
 267   if (command != _T(""))
 268     wxSprintf(tmp, _T("%s /c %s"), shell, WXSTRINGCAST command);
 269   else
 270     wxStrcpy(tmp, shell);
 271
 272   return (wxExecute((wxChar *)tmp, FALSE) != 0);
 273 }
 274
 275 // Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
 276 long wxGetFreeMemory()
 277 {
 278 #if defined(__WIN32__) && !defined(__BORLANDC__) && !defined(__TWIN32__)
 279   MEMORYSTATUS memStatus;
 280   memStatus.dwLength = sizeof(MEMORYSTATUS);
 281   GlobalMemoryStatus(&memStatus);
 282   return memStatus.dwAvailPhys;
 283 #else
 284   return (long)GetFreeSpace(0);
 285 #endif
 286 }
 287
 288 // Sleep for nSecs seconds. Attempt a Windows implementation using timers.
 289 static bool inTimer = FALSE;
 290 class wxSleepTimer: public wxTimer
 291 {
 292  public:
 293   inline void Notify()
 294   {
 295     inTimer = FALSE;
 296     Stop();
 297   }
 298 };
 299
 300 static wxTimer *wxTheSleepTimer = NULL;
 301
 302 void wxUsleep(unsigned long milliseconds)
 303 {
 304 #ifdef __WIN32__
 305     ::Sleep(milliseconds);
 306 #else
 307   if (inTimer)
 308     return;
 309
 310   wxTheSleepTimer = new wxSleepTimer;
 311   inTimer = TRUE;
 312   wxTheSleepTimer->Start(milliseconds);
 313   while (inTimer)
 314   {
 315     if (wxTheApp->Pending())
 316       wxTheApp->Dispatch();
 317   }
 318   delete wxTheSleepTimer;
 319   wxTheSleepTimer = NULL;
 320 #endif
 321 }
 322
 323 void wxSleep(int nSecs)
 324 {
 325 #if 0 // WIN32 hangs app
 326   Sleep( 1000*nSecs );
 327 #else
 328   if (inTimer)
 329     return;
 330
 331   wxTheSleepTimer = new wxSleepTimer;
 332   inTimer = TRUE;
 333   wxTheSleepTimer->Start(nSecs*1000);
 334   while (inTimer)
 335   {
 336     if (wxTheApp->Pending())
 337       wxTheApp->Dispatch();
 338   }
 339   delete wxTheSleepTimer;
 340   wxTheSleepTimer = NULL;
 341 #endif
 342 }
 343
 344 // Consume all events until no more left
 345 void wxFlushEvents()
 346 {
 347 //  wxYield();
 348 }
 349
 350 // Output a debug mess., in a system dependent fashion.
 351 void wxDebugMsg(const wxChar *fmt ...)
 352 {
 353   va_list ap;
 354   static wxChar buffer[512];
 355
 356   if (!wxTheApp->GetWantDebugOutput())
 357     return ;
 358
 359   va_start(ap, fmt);
 360
 361   wvsprintf(buffer,fmt,ap) ;
 362   OutputDebugString((LPCTSTR)buffer) ;
 363
 364   va_end(ap);
 365 }
 366
 367 // Non-fatal error: pop up message box and (possibly) continue
 368 void wxError(const wxString& msg, const wxString& title)
 369 {
 370   wxSprintf(wxBuffer, _T("%s\nContinue?"), WXSTRINGCAST msg);
 371   if (MessageBox(NULL, (LPCTSTR)wxBuffer, (LPCTSTR)WXSTRINGCAST title,
 372              MB_ICONSTOP | MB_YESNO) == IDNO)
 373     wxExit();
 374 }
 375
 376 // Fatal error: pop up message box and abort
 377 void wxFatalError(const wxString& msg, const wxString& title)
 378 {
 379   wxSprintf(wxBuffer, _T("%s: %s"), WXSTRINGCAST title, WXSTRINGCAST msg);
 380   FatalAppExit(0, (LPCTSTR)wxBuffer);
 381 }
 382
 383 // Emit a beeeeeep
 384 void wxBell()
 385 {
 386     // Removed by RD because IHMO syncronous sound is a Bad Thing.  MessageBeep
 387     // will do a similar thing anyway if there is no sound card...
 388 //#ifdef __WIN32__
 389 //  Beep(1000,1000) ; // 1kHz during 1 sec.
 390 //#else
 391   MessageBeep((UINT)-1) ;
 392 //#endif
 393 }
 394
 395 // Chris Breeze 27/5/98: revised WIN32 code to
 396 // detect WindowsNT correctly
 397 int wxGetOsVersion(int *majorVsn, int *minorVsn)
 398 {
 399   extern char *wxOsVersion;
 400   if (majorVsn) *majorVsn = 0;
 401   if (minorVsn) *minorVsn = 0;
 402
 403 #if defined(__WIN32__) && !defined(__SC__)
 404   OSVERSIONINFO info;
 405   memset(&info, 0, sizeof(OSVERSIONINFO));
 406   info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
 407   if (GetVersionEx(&info))
 408   {
 409     if (majorVsn) *majorVsn = info.dwMajorVersion;
 410     if (minorVsn) *minorVsn = info.dwMinorVersion;
 411     switch (info.dwPlatformId)
 412   {
 413   case VER_PLATFORM_WIN32s:
 414     return wxWIN32S;
 415     break;
 416   case VER_PLATFORM_WIN32_WINDOWS:
 417     return wxWIN95;
 418     break;
 419   case VER_PLATFORM_WIN32_NT:
 420     return wxWINDOWS_NT;
 421     break;
 422   }
 423   }
 424   return wxWINDOWS; // error if we get here, return generic value
 425 #else
 426   // Win16 code...
 427   int retValue = 0;
 428 #  ifdef __WINDOWS_386__
 429   retValue = wxWIN386;
 430 #  else
 431 #    if !defined(__WATCOMC__) && !defined(GNUWIN32) && wxUSE_PENWINDOWS
 432   extern HANDLE g_hPenWin;
 433   retValue = g_hPenWin ? wxPENWINDOWS : wxWINDOWS ;
 434 #    endif
 435 #  endif
 436   // @@@@ To be completed. I don't have the manual here...
 437   if (majorVsn) *majorVsn = 3 ;
 438   if (minorVsn) *minorVsn = 1 ;
 439   return retValue ;
 440 #endif
 441 }
 442
 443 // Reading and writing resources (eg WIN.INI, .Xdefaults)
 444 #if wxUSE_RESOURCES
 445 bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file)
 446 {
 447   if (file != _T(""))
 448     return (WritePrivateProfileString((LPCTSTR)WXSTRINGCAST section, (LPCTSTR)WXSTRINGCAST entry, (LPCTSTR)value, (LPCTSTR)WXSTRINGCAST file) != 0);
 449   else
 450     return (WriteProfileString((LPCTSTR)WXSTRINGCAST section, (LPCTSTR)WXSTRINGCAST entry, (LPCTSTR)WXSTRINGCAST value) != 0);
 451 }
 452
 453 bool wxWriteResource(const wxString& section, const wxString& entry, float value, const wxString& file)
 454 {
 455   wxChar buf[50];
 456   wxSprintf(buf, _T("%.4f"), value);
 457   return wxWriteResource(section, entry, buf, file);
 458 }
 459
 460 bool wxWriteResource(const wxString& section, const wxString& entry, long value, const wxString& file)
 461 {
 462   wxChar buf[50];
 463   wxSprintf(buf, _T("%ld"), value);
 464   return wxWriteResource(section, entry, buf, file);
 465 }
 466
 467 bool wxWriteResource(const wxString& section, const wxString& entry, int value, const wxString& file)
 468 {
 469   wxChar buf[50];
 470   wxSprintf(buf, _T("%d"), value);
 471   return wxWriteResource(section, entry, buf, file);
 472 }
 473
 474 bool wxGetResource(const wxString& section, const wxString& entry, wxChar **value, const wxString& file)
 475 {
 476   static const wxChar defunkt[] = _T("$$default");
 477   if (file != _T(""))
 478   {
 479     int n = GetPrivateProfileString((LPCTSTR)WXSTRINGCAST section, (LPCTSTR)WXSTRINGCAST entry, (LPCTSTR)defunkt,
 480                                     (LPTSTR)wxBuffer, 1000, (LPCTSTR)WXSTRINGCAST file);
 481     if (n == 0 || wxStrcmp(wxBuffer, defunkt) == 0)
 482      return FALSE;
 483   }
 484   else
 485   {
 486     int n = GetProfileString((LPCTSTR)WXSTRINGCAST section, (LPCTSTR)WXSTRINGCAST entry, (LPCTSTR)defunkt,
 487                                     (LPTSTR)wxBuffer, 1000);
 488     if (n == 0 || wxStrcmp(wxBuffer, defunkt) == 0)
 489       return FALSE;
 490   }
 491   if (*value) delete[] (*value);
 492       *value = copystring(wxBuffer);
 493       return TRUE;
 494     }
 495
 496 bool wxGetResource(const wxString& section, const wxString& entry, float *value, const wxString& file)
 497 {
 498   wxChar *s = NULL;
 499   bool succ = wxGetResource(section, entry, (wxChar **)&s, file);
 500   if (succ)
 501   {
 502     *value = (float)wxStrtod(s, NULL);
 503     delete[] s;
 504     return TRUE;
 505   }
 506   else return FALSE;
 507 }
 508
 509 bool wxGetResource(const wxString& section, const wxString& entry, long *value, const wxString& file)
 510 {
 511   wxChar *s = NULL;
 512   bool succ = wxGetResource(section, entry, (wxChar **)&s, file);
 513   if (succ)
 514   {
 515     *value = wxStrtol(s, NULL, 10);
 516     delete[] s;
 517     return TRUE;
 518   }
 519   else return FALSE;
 520 }
 521
 522 bool wxGetResource(const wxString& section, const wxString& entry, int *value, const wxString& file)
 523 {
 524   wxChar *s = NULL;
 525   bool succ = wxGetResource(section, entry, (wxChar **)&s, file);
 526   if (succ)
 527   {
 528     *value = (int)wxStrtol(s, NULL, 10);
 529     delete[] s;
 530     return TRUE;
 531   }
 532   else return FALSE;
 533 }
 534 #endif // wxUSE_RESOURCES
 535
 536 // ---------------------------------------------------------------------------
 537 // helper functions for showing a "busy" cursor
 538 // ---------------------------------------------------------------------------
 539
 540 HCURSOR gs_wxBusyCursor = 0;     // new, busy cursor
 541 HCURSOR gs_wxBusyCursorOld = 0;  // old cursor
 542 static int gs_wxBusyCursorCount = 0;
 543
 544 // Set the cursor to the busy cursor for all windows
 545 void wxBeginBusyCursor(wxCursor *cursor)
 546 {
 547     if ( gs_wxBusyCursorCount++ == 0 )
 548     {
 549         gs_wxBusyCursor = (HCURSOR)cursor->GetHCURSOR();
 550         gs_wxBusyCursorOld = ::SetCursor(gs_wxBusyCursor);
 551     }
 552     //else: nothing to do, already set
 553 }
 554
 555 // Restore cursor to normal
 556 void wxEndBusyCursor()
 557 {
 558     wxCHECK_RET( gs_wxBusyCursorCount > 0,
 559                  _T("no matching wxBeginBusyCursor() for wxEndBusyCursor()") );
 560
 561     if ( --gs_wxBusyCursorCount == 0 )
 562     {
 563         ::SetCursor(gs_wxBusyCursorOld);
 564
 565         gs_wxBusyCursorOld = 0;
 566     }
 567 }
 568
 569 // TRUE if we're between the above two calls
 570 bool wxIsBusy()
 571 {
 572   return (gs_wxBusyCursorCount > 0);
 573 }
 574
 575 // ---------------------------------------------------------------------------
 576 const wxChar* wxGetHomeDir(wxString *pstr)
 577 {
 578   wxString& strDir = *pstr;
 579
 580   #if defined(__UNIX__) && !defined(__TWIN32__)
 581     const wxChar *szHome = wxGetenv("HOME");
 582     if ( szHome == NULL ) {
 583       // we're homeless...
 584       wxLogWarning(_("can't find user's HOME, using current directory."));
 585       strDir = _T(".");
 586     }
 587     else
 588        strDir = szHome;
 589
 590     // add a trailing slash if needed
 591     if ( strDir.Last() != _T('/') )
 592       strDir << _T('/');
 593   #else   // Windows
 594     #ifdef  __WIN32__
 595       const wxChar *szHome = wxGetenv(_T("HOMEDRIVE"));
 596       if ( szHome != NULL )
 597         strDir << szHome;
 598       szHome = wxGetenv(_T("HOMEPATH"));
 599       if ( szHome != NULL ) {
 600         strDir << szHome;
 601
 602         // the idea is that under NT these variables have default values
 603         // of "%systemdrive%:" and "\\". As we don't want to create our
 604         // config files in the root directory of the system drive, we will
 605         // create it in our program's dir. However, if the user took care
 606         // to set HOMEPATH to something other than "\\", we suppose that he
 607         // knows what he is doing and use the supplied value.
 608         if ( wxStrcmp(szHome, _T("\\")) != 0 )
 609           return strDir.c_str();
 610       }
 611
 612     #else   // Win16
 613       // Win16 has no idea about home, so use the working directory instead
 614     #endif  // WIN16/32
 615
 616     // 260 was taken from windef.h
 617     #ifndef MAX_PATH
 618       #define MAX_PATH  260
 619     #endif
 620
 621     wxString strPath;
 622     ::GetModuleFileName(::GetModuleHandle(NULL),
 623                         strPath.GetWriteBuf(MAX_PATH), MAX_PATH);
 624     strPath.UngetWriteBuf();
 625
 626     // extract the dir name
 627     wxSplitPath(strPath, &strDir, NULL, NULL);
 628
 629   #endif  // UNIX/Win
 630
 631   return strDir.c_str();
 632 }
 633
 634 // Hack for MS-DOS
 635 wxChar *wxGetUserHome (const wxString& user)
 636 {
 637   wxChar *home;
 638   wxString user1(user);
 639
 640   if (user1 != _T("")) {
 641     wxChar tmp[64];
 642     if (wxGetUserId(tmp, sizeof(tmp)/sizeof(char))) {
 643       // Guests belong in the temp dir
 644       if (wxStricmp(tmp, _T("annonymous")) == 0) {
 645         if ((home = wxGetenv(_T("TMP"))) != NULL ||
 646             (home = wxGetenv(_T("TMPDIR"))) != NULL ||
 647             (home = wxGetenv(_T("TEMP"))) != NULL)
 648             return *home ? home : (wxChar*)_T("\\");
 649       }
 650       if (wxStricmp(tmp, WXSTRINGCAST user1) == 0)
 651         user1 = _T("");
 652     }
 653   }
 654   if (user1 == _T(""))
 655     if ((home = wxGetenv(_T("HOME"))) != NULL)
 656     {
 657       wxStrcpy(wxBuffer, home);
 658       Unix2DosFilename(wxBuffer);
 659       return wxBuffer;
 660     }
 661   return NULL; // No home known!
 662 }
 663
 664 // Check whether this window wants to process messages, e.g. Stop button
 665 // in long calculations.
 666 bool wxCheckForInterrupt(wxWindow *wnd)
 667 {
 668   if(wnd){
 669     MSG msg;
 670     HWND win= (HWND) wnd->GetHWND();
 671     while(PeekMessage(&msg,win,0,0,PM_REMOVE)){
 672       TranslateMessage(&msg);
 673       DispatchMessage(&msg);
 674     }
 675     return TRUE;//*** temporary?
 676   }
 677   else{
 678     wxFAIL_MSG(_T("wnd==NULL !!!"));
 679
 680     return FALSE;//*** temporary?
 681   }
 682 }
 683
 684 // MSW only: get user-defined resource from the .res file.
 685 // Returns NULL or newly-allocated memory, so use delete[] to clean up.
 686
 687 #ifdef __WXMSW__
 688 wxChar *wxLoadUserResource(const wxString& resourceName, const wxString& resourceType)
 689 {
 690   wxChar *s = NULL;
 691 #if !defined(__WIN32__) || defined(__TWIN32__)
 692   HRSRC hResource = ::FindResource(wxGetInstance(), WXSTRINGCAST resourceName, WXSTRINGCAST resourceType);
 693 #else
 694 #ifdef UNICODE
 695   HRSRC hResource = ::FindResourceW(wxGetInstance(), WXSTRINGCAST resourceName, WXSTRINGCAST resourceType);
 696 #else
 697   HRSRC hResource = ::FindResourceA(wxGetInstance(), WXSTRINGCAST resourceName, WXSTRINGCAST resourceType);
 698 #endif
 699 #endif
 700
 701   if (hResource == 0)
 702     return NULL;
 703   HGLOBAL hData = ::LoadResource(wxGetInstance(), hResource);
 704   if (hData == 0)
 705     return NULL;
 706   wxChar *theText = (wxChar *)LockResource(hData);
 707   if (!theText)
 708     return NULL;
 709
 710   s = copystring(theText);
 711
 712   // Obsolete in WIN32
 713 #ifndef __WIN32__
 714   UnlockResource(hData);
 715 #endif
 716
 717   // No need??
 718 //  GlobalFree(hData);
 719
 720   return s;
 721 }
 722 #endif
 723
 724 void wxGetMousePosition( int* x, int* y )
 725 {
 726   POINT pt;
 727   GetCursorPos( & pt );
 728   *x = pt.x;
 729   *y = pt.y;
 730 };
 731
 732 // Return TRUE if we have a colour display
 733 bool wxColourDisplay()
 734 {
 735   HDC dc = ::GetDC((HWND) NULL);
 736   bool flag;
 737   int noCols = GetDeviceCaps(dc, NUMCOLORS);
 738   if ((noCols == -1) || (noCols > 2))
 739     flag = TRUE;
 740   else
 741     flag = FALSE;
 742   ReleaseDC((HWND) NULL, dc);
 743   return flag;
 744 }
 745
 746 // Returns depth of screen
 747 int wxDisplayDepth()
 748 {
 749   HDC dc = ::GetDC((HWND) NULL);
 750   int planes = GetDeviceCaps(dc, PLANES);
 751   int bitsPerPixel = GetDeviceCaps(dc, BITSPIXEL);
 752   int depth = planes*bitsPerPixel;
 753   ReleaseDC((HWND) NULL, dc);
 754   return depth;
 755 }
 756
 757 // Get size of display
 758 void wxDisplaySize(int *width, int *height)
 759 {
 760   HDC dc = ::GetDC((HWND) NULL);
 761   *width = GetDeviceCaps(dc, HORZRES); *height = GetDeviceCaps(dc, VERTRES);
 762   ReleaseDC((HWND) NULL, dc);
 763 }
 764
 765 bool wxDirExists(const wxString& dir)
 766 {
 767   /* MATTHEW: [6] Always use same code for Win32, call FindClose */
 768 #if defined(__WIN32__)
 769   WIN32_FIND_DATA fileInfo;
 770 #else
 771 #ifdef __BORLANDC__
 772   struct ffblk fileInfo;
 773 #else
 774   struct find_t fileInfo;
 775 #endif
 776 #endif
 777
 778 #if defined(__WIN32__)
 779   HANDLE h = FindFirstFile((LPTSTR) WXSTRINGCAST dir,(LPWIN32_FIND_DATA)&fileInfo);
 780
 781   if (h==INVALID_HANDLE_VALUE)
 782    return FALSE;
 783   else {
 784    FindClose(h);
 785    return ((fileInfo.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) == FILE_ATTRIBUTE_DIRECTORY);
 786   }
 787 #else
 788   // In Borland findfirst has a different argument
 789   // ordering from _dos_findfirst. But _dos_findfirst
 790   // _should_ be ok in both MS and Borland... why not?
 791 #ifdef __BORLANDC__
 792   return ((findfirst(WXSTRINGCAST dir, &fileInfo, _A_SUBDIR) == 0  && (fileInfo.ff_attrib & _A_SUBDIR) != 0));
 793 #else
 794   return (((_dos_findfirst(WXSTRINGCAST dir, _A_SUBDIR, &fileInfo) == 0) && (fileInfo.attrib & _A_SUBDIR)) != 0);
 795 #endif
 796 #endif
 797 }
 798
 799 // ---------------------------------------------------------------------------
 800 // window information functions
 801 // ---------------------------------------------------------------------------
 802
 803 wxString WXDLLEXPORT wxGetWindowText(WXHWND hWnd)
 804 {
 805     wxString str;
 806     int len = GetWindowTextLength((HWND)hWnd) + 1;
 807     GetWindowText((HWND)hWnd, str.GetWriteBuf(len), len);
 808     str.UngetWriteBuf();
 809
 810     return str;
 811 }
 812
 813 wxString WXDLLEXPORT wxGetWindowClass(WXHWND hWnd)
 814 {
 815     wxString str;
 816
 817     int len = 256; // some starting value
 818
 819     for ( ;; )
 820     {
 821         // as we've #undefined GetClassName we must now manually choose the
 822         // right function to call
 823         int count =
 824
 825         #ifndef __WIN32__
 826             GetClassName
 827         #else // Win32
 828             #ifdef UNICODE
 829                 GetClassNameW
 830             #else // !Unicode
 831                 #ifdef __TWIN32__
 832                     GetClassName
 833                 #else // !Twin32
 834                     GetClassNameA
 835                 #endif // Twin32/!Twin32
 836             #endif // Unicode/ANSI
 837         #endif // Win16/32
 838                                     ((HWND)hWnd, str.GetWriteBuf(len), len);
 839
 840         str.UngetWriteBuf();
 841         if ( count == len )
 842         {
 843             // the class name might have been truncated, retry with larger
 844             // buffer
 845             len *= 2;
 846         }
 847         else
 848         {
 849             break;
 850         }
 851     }
 852
 853     return str;
 854 }
 855
 856 WXWORD WXDLLEXPORT wxGetWindowId(WXHWND hWnd)
 857 {
 858 #ifndef __WIN32__
 859     return GetWindowWord((HWND)hWnd, GWW_ID);
 860 #else // Win32
 861     return GetWindowLong((HWND)hWnd, GWL_ID);
 862 #endif // Win16/32
 863 }
 864
 865 #if 0
 866 //------------------------------------------------------------------------
 867 // wild character routines
 868 //------------------------------------------------------------------------
 869
 870 bool wxIsWild( const wxString& pattern )
 871 {
 872   wxString tmp = pattern;
 873   char *pat = WXSTRINGCAST(tmp);
 874     while (*pat) {
 875   switch (*pat++) {
 876   case '?': case '*': case '[': case '{':
 877       return TRUE;
 878   case '\\':
 879       if (!*pat++)
 880     return FALSE;
 881   }
 882     }
 883     return FALSE;
 884 };
 885
 886
 887 bool wxMatchWild( const wxString& pat, const wxString& text, bool dot_special )
 888 {
 889   wxString tmp1 = pat;
 890   char *pattern = WXSTRINGCAST(tmp1);
 891   wxString tmp2 = text;
 892   char *str = WXSTRINGCAST(tmp2);
 893     char c;
 894     char *cp;
 895     bool done = FALSE, ret_code, ok;
 896     // Below is for vi fans
 897     const char OB = '{', CB = '}';
 898
 899     // dot_special means '.' only matches '.'
 900     if (dot_special && *str == '.' && *pattern != *str)
 901   return FALSE;
 902
 903     while ((*pattern != '\0') && (!done)
 904     && (((*str=='\0')&&((*pattern==OB)||(*pattern=='*')))||(*str!='\0'))) {
 905   switch (*pattern) {
 906   case '\\':
 907       pattern++;
 908       if (*pattern != '\0')
 909     pattern++;
 910       break;
 911   case '*':
 912       pattern++;
 913       ret_code = FALSE;
 914       while ((*str!='\0')
 915       && (!(ret_code=wxMatchWild(pattern, str++, FALSE))))
 916     /*loop*/;
 917       if (ret_code) {
 918     while (*str != '\0')
 919         str++;
 920     while (*pattern != '\0')
 921         pattern++;
 922       }
 923       break;
 924   case '[':
 925       pattern++;
 926     repeat:
 927       if ((*pattern == '\0') || (*pattern == ']')) {
 928     done = TRUE;
 929     break;
 930       }
 931       if (*pattern == '\\') {
 932     pattern++;
 933     if (*pattern == '\0') {
 934         done = TRUE;
 935         break;
 936     }
 937       }
 938       if (*(pattern + 1) == '-') {
 939     c = *pattern;
 940     pattern += 2;
 941     if (*pattern == ']') {
 942         done = TRUE;
 943         break;
 944     }
 945     if (*pattern == '\\') {
 946         pattern++;
 947         if (*pattern == '\0') {
 948       done = TRUE;
 949       break;
 950         }
 951     }
 952     if ((*str < c) || (*str > *pattern)) {
 953         pattern++;
 954         goto repeat;
 955     }
 956       } else if (*pattern != *str) {
 957     pattern++;
 958     goto repeat;
 959       }
 960       pattern++;
 961       while ((*pattern != ']') && (*pattern != '\0')) {
 962     if ((*pattern == '\\') && (*(pattern + 1) != '\0'))
 963         pattern++;
 964     pattern++;
 965       }
 966       if (*pattern != '\0') {
 967     pattern++, str++;
 968       }
 969       break;
 970   case '?':
 971       pattern++;
 972       str++;
 973       break;
 974   case OB:
 975       pattern++;
 976       while ((*pattern != CB) && (*pattern != '\0')) {
 977     cp = str;
 978     ok = TRUE;
 979     while (ok && (*cp != '\0') && (*pattern != '\0')
 980     &&  (*pattern != ',') && (*pattern != CB)) {
 981         if (*pattern == '\\')
 982       pattern++;
 983         ok = (*pattern++ == *cp++);
 984     }
 985     if (*pattern == '\0') {
 986         ok = FALSE;
 987         done = TRUE;
 988         break;
 989     } else if (ok) {
 990         str = cp;
 991         while ((*pattern != CB) && (*pattern != '\0')) {
 992       if (*++pattern == '\\') {
 993           if (*++pattern == CB)
 994         pattern++;
 995       }
 996         }
 997     } else {
 998         while (*pattern!=CB && *pattern!=',' && *pattern!='\0') {
 999       if (*++pattern == '\\') {
1000                             if (*++pattern == CB || *pattern == ',')
1001         pattern++;
1002       }
1003         }
1004     }
1005     if (*pattern != '\0')
1006         pattern++;
1007       }
1008       break;
1009   default:
1010       if (*str == *pattern) {
1011     str++, pattern++;
1012       } else {
1013     done = TRUE;
1014       }
1015   }
1016     }
1017     while (*pattern == '*')
1018   pattern++;
1019     return ((*str == '\0') && (*pattern == '\0'));
1020 };
1021
1022 #endif
1023
1024 #if defined(__WIN95__) && defined(__WXDEBUG__) && wxUSE_DBWIN32
1025
1026 /*
1027 When I started programming with Visual C++ v4.0, I missed one of my favorite
1028 tools -- DBWIN.  Finding the code for a simple debug trace utility, DBMON,
1029 on MSDN was a step in the right direction, but it is a console application
1030 and thus has limited features and extensibility.  DBWIN32 is my creation
1031 to solve this problem.
1032
1033 The code is essentially a merging of a stripped down version of the DBWIN code
1034 from VC 1.5 and DBMON.C with a few 32 bit changes.
1035
1036 As of version 1.2B, DBWIN32 supports both Win95 and NT.  The NT support is
1037 built into the operating system and works just by running DBWIN32.  The Win95
1038 team decided not to support this hook, so I have provided code that will do
1039 this for you.  See the file WIN95.TXT for instructions on installing this.
1040
1041 If you have questions, problems or suggestions about DBWIN32, I welcome your
1042 feedback and plan to actively maintain the code.
1043
1044 Andrew Tucker
1045 ast@halcyon.com
1046
1047 To download dbwin32, see e.g.:
1048
1049 http://ftp.digital.com/pub/micro/NT/WinSite/programr/dbwin32.zip
1050 */
1051
1052 #if !defined(__MWERKS__) && !defined(__SALFORDC__) && !defined(__TWIN32__)
1053 #include <process.h>
1054 #endif
1055
1056 void OutputDebugStringW95(const wxChar* lpOutputString, ...)
1057 {
1058     HANDLE heventDBWIN;  /* DBWIN32 synchronization object */
1059     HANDLE heventData;   /* data passing synch object */
1060     HANDLE hSharedFile;  /* memory mapped file shared data */
1061     LPSTR lpszSharedMem;
1062     wxChar achBuffer[500];
1063
1064     /* create the output buffer */
1065     va_list args;
1066     va_start(args, lpOutputString);
1067     wxVsprintf(achBuffer, lpOutputString, args);
1068     va_end(args);
1069
1070     /*
1071         Do a regular OutputDebugString so that the output is
1072         still seen in the debugger window if it exists.
1073
1074         This ifdef is necessary to avoid infinite recursion
1075         from the inclusion of W95TRACE.H
1076     */
1077 #ifdef _UNICODE
1078     ::OutputDebugStringW(achBuffer);
1079 #else
1080 #ifdef __TWIN32__
1081     ::OutputDebugString(achBuffer);
1082 #else
1083     ::OutputDebugStringA(achBuffer);
1084 #endif
1085 #endif
1086
1087     /* bail if it's not Win95 */
1088     {
1089         OSVERSIONINFO VerInfo;
1090         VerInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
1091         GetVersionEx(&VerInfo);
1092         if ( VerInfo.dwPlatformId != VER_PLATFORM_WIN32_WINDOWS )
1093             return;
1094     }
1095
1096     /* make sure DBWIN is open and waiting */
1097     heventDBWIN = OpenEvent(EVENT_MODIFY_STATE, FALSE, _T("DBWIN_BUFFER_READY"));
1098     if ( !heventDBWIN )
1099     {
1100         //MessageBox(NULL, _T("DBWIN_BUFFER_READY nonexistent"), NULL, MB_OK);
1101         return;
1102     }
1103
1104     /* get a handle to the data synch object */
1105     heventData = OpenEvent(EVENT_MODIFY_STATE, FALSE, _T("DBWIN_DATA_READY"));
1106     if ( !heventData )
1107     {
1108         // MessageBox(NULL, _T("DBWIN_DATA_READY nonexistent"), NULL, MB_OK);
1109         CloseHandle(heventDBWIN);
1110         return;
1111     }
1112
1113     hSharedFile = CreateFileMapping((HANDLE)-1, NULL, PAGE_READWRITE, 0, 4096, _T("DBWIN_BUFFER"));
1114     if (!hSharedFile)
1115     {
1116         //MessageBox(NULL, _T("DebugTrace: Unable to create file mapping object DBWIN_BUFFER"), _T("Error"), MB_OK);
1117         CloseHandle(heventDBWIN);
1118         CloseHandle(heventData);
1119         return;
1120     }
1121
1122     lpszSharedMem = (LPSTR)MapViewOfFile(hSharedFile, FILE_MAP_WRITE, 0, 0, 512);
1123     if (!lpszSharedMem)
1124     {
1125         //MessageBox(NULL, _T("DebugTrace: Unable to map shared memory"), _T("Error"), MB_OK);
1126         CloseHandle(heventDBWIN);
1127         CloseHandle(heventData);
1128         return;
1129     }
1130
1131     /* wait for buffer event */
1132     WaitForSingleObject(heventDBWIN, INFINITE);
1133
1134     /* write it to the shared memory */
1135 #if defined( __BORLANDC__ ) || defined( __MWERKS__ ) || defined(__SALFORDC__)
1136     *((LPDWORD)lpszSharedMem) = getpid();
1137 #else
1138     *((LPDWORD)lpszSharedMem) = _getpid();
1139 #endif
1140
1141     wsprintf((LPTSTR)(lpszSharedMem + sizeof(DWORD)), _T("%s"), achBuffer);
1142
1143     /* signal data ready event */
1144     SetEvent(heventData);
1145
1146     /* clean up handles */
1147     CloseHandle(hSharedFile);
1148     CloseHandle(heventData);
1149     CloseHandle(heventDBWIN);
1150
1151     return;
1152 }
1153
1154
1155 #endif
1156
1157
1158 #if 0
1159
1160 // maximum mumber of lines the output console should have
1161 static const WORD MAX_CONSOLE_LINES = 500;
1162
1163 BOOL WINAPI MyConsoleHandler( DWORD dwCtrlType ) {   //  control signal type
1164   FreeConsole();
1165   return TRUE;
1166 }
1167
1168 void wxRedirectIOToConsole()
1169 {
1170     int                        hConHandle;
1171     long                       lStdHandle;
1172     CONSOLE_SCREEN_BUFFER_INFO coninfo;
1173     FILE                       *fp;
1174
1175     // allocate a console for this app
1176     AllocConsole();
1177
1178     // set the screen buffer to be big enough to let us scroll text
1179     GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
1180                                &coninfo);
1181     coninfo.dwSize.Y = MAX_CONSOLE_LINES;
1182     SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE),
1183                                coninfo.dwSize);
1184
1185     // redirect unbuffered STDOUT to the console
1186     lStdHandle = (long)GetStdHandle(STD_OUTPUT_HANDLE);
1187     hConHandle = _open_osfhandle(lStdHandle, _O_TEXT);
1188     if(hConHandle <= 0) return;
1189     fp = _fdopen( hConHandle, "w" );
1190     *stdout = *fp;
1191     setvbuf( stdout, NULL, _IONBF, 0 );
1192
1193     // redirect unbuffered STDIN to the console
1194     lStdHandle = (long)GetStdHandle(STD_INPUT_HANDLE);
1195     hConHandle = _open_osfhandle(lStdHandle, _O_TEXT);
1196     if(hConHandle <= 0) return;
1197     fp = _fdopen( hConHandle, "r" );
1198     *stdin = *fp;
1199     setvbuf( stdin, NULL, _IONBF, 0 );
1200
1201     // redirect unbuffered STDERR to the console
1202     lStdHandle = (long)GetStdHandle(STD_ERROR_HANDLE);
1203     hConHandle = _open_osfhandle(lStdHandle, _O_TEXT);
1204     if(hConHandle <= 0) return;
1205     fp = _fdopen( hConHandle, "w" );
1206     *stderr = *fp;
1207     setvbuf( stderr, NULL, _IONBF, 0 );
1208
1209     // make cout, wcout, cin, wcin, wcerr, cerr, wclog and clog
1210     // point to console as well
1211     ios::sync_with_stdio();
1212
1213     SetConsoleCtrlHandler(MyConsoleHandler, TRUE);
1214 }
1215 #else
1216 // Not supported
1217 void wxRedirectIOToConsole()
1218 {
1219 }
1220 #endif
1221
1222