#include "wx/intl.h"
#include <ctype.h>
-#include <direct.h>
+#ifdef __EMX__
+#include <dirent.h>
+#endif
#include "wx/log.h"
#include <errno.h>
#include <stdarg.h>
-#define INCL_DOS
-#define INCL_PM
-#define INCL_GPI
-#include <os2.h>
#define PURE_32
+
+#ifndef __EMX__
#include <upm.h>
#include <netcons.h>
#include <netbios.h>
+#endif
static const wxChar WX_SECTION[] = _T("wxWindows");
static const wxChar eHOSTNAME[] = _T("HostName");
, int nType
)
{
+#ifndef __EMX__
long lrc;
// UPM procs return 0 on success
lrc = U32ELOCU((unsigned char*)zBuf, (unsigned long *)&nType);
if (lrc == 0) return TRUE;
+#endif
return FALSE;
}
unsigned long ulMilliseconds
)
{
- ::DosSleep(ulMilliseconds);
+ ::DosSleep(ulMilliseconds/1000l);
}
void wxSleep(
wxString sUser1(rUser);
wxBuffer = new wxChar[256];
+#ifndef __EMX__
if (sUser1 != _T(""))
{
wxChar zTmp[64];
sUser1 = _T("");
}
}
+#endif
if (sUser1 == _T(""))
{
if ((zHome = wxGetenv(_T("HOME"))) != NULL)
return ::WinQueryWindowUShort((HWND)hWnd, QWS_ID);
}
+wxString WXDLLEXPORT wxPMErrorToStr(
+ ERRORID vError
+)
+{
+ wxString sError;
+
+ //
+ // Remove the high order byte -- it is useless
+ //
+ vError &= 0x0000ffff;
+ switch(vError)
+ {
+ case PMERR_INVALID_HWND:
+ sError = wxT("Invalid window handle specified");
+ break;
+
+ case PMERR_INVALID_FLAG:
+ sError = wxT("Invalid flag bit set");
+ break;
+
+ case PMERR_NO_MSG_QUEUE:
+ sError = wxT("No message queue available");
+ break;
+
+ case PMERR_INVALID_PARM:
+ sError = wxT("Parameter contained invalid data");
+ break;
+
+ case PMERR_INVALID_PARAMETERS:
+ sError = wxT("Parameter value is out of range");
+ break;
+
+ case PMERR_PARAMETER_OUT_OF_RANGE:
+ sError = wxT("Parameter value is out of range");
+ break;
+
+ case PMERR_INVALID_INTEGER_ATOM:
+ sError = wxT("Not a valid atom");
+ break;
+
+ case PMERR_INVALID_HATOMTBL:
+ sError = wxT("Atom table handle is invalid");
+ break;
+
+ case PMERR_INVALID_ATOM_NAME:
+ sError = wxT("Not a valid atom name");
+ break;
+
+ case PMERR_ATOM_NAME_NOT_FOUND:
+ sError = wxT("Valid name format, but cannot find name in atom table");
+ break;
+
+ default:
+ sError = wxT("Unknown error");
+ }
+ return(sError);
+} // end of wxPMErrorToStr
+
+