]> git.saurik.com Git - wxWidgets.git/blame - src/os2/utils.cpp
wxMSWUniv wxWindowMSW vs. wxWindow fix.
[wxWidgets.git] / src / os2 / utils.cpp
CommitLineData
0e320a79
DW
1/////////////////////////////////////////////////////////////////////////////
2// Name: utils.cpp
3// Purpose: Various utilities
45fcbf3b 4// Author: David Webster
0e320a79 5// Modified by:
45fcbf3b 6// Created: 09/17/99
0e320a79 7// RCS-ID: $Id$
45fcbf3b 8// Copyright: (c) David Webster
65571936 9// Licence: wxWindows licence
0e320a79
DW
10/////////////////////////////////////////////////////////////////////////////
11
45fcbf3b
DW
12// For compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#ifndef WX_PRECOMP
16 #include "wx/setup.h"
17 #include "wx/utils.h"
18 #include "wx/app.h"
45fcbf3b
DW
19#endif //WX_PRECOMP
20
21#include "wx/os2/private.h"
45fcbf3b 22#include "wx/intl.h"
cd478a95 23#include "wx/apptrait.h"
45fcbf3b 24
0e320a79 25#include <ctype.h>
06298235
SN
26#ifdef __EMX__
27#include <dirent.h>
06298235 28#endif
45fcbf3b
DW
29
30#include "wx/log.h"
31
32#include <io.h>
0e320a79
DW
33
34#include <stdio.h>
35#include <stdlib.h>
36#include <string.h>
45fcbf3b 37#include <errno.h>
0e320a79
DW
38#include <stdarg.h>
39
d90895ac 40#define PURE_32
468e327a 41
06298235 42#ifndef __EMX__
7cdc2f1e
DW
43#include <upm.h>
44#include <netcons.h>
45#include <netbios.h>
06298235 46#endif
45fcbf3b 47
77ffb593 48static const wxChar WX_SECTION[] = _T("wxWidgets");
86de7616
DW
49static const wxChar eHOSTNAME[] = _T("HostName");
50static const wxChar eUSERID[] = _T("UserId");
51static const wxChar eUSERNAME[] = _T("UserName");
45fcbf3b
DW
52
53// For the following functions we SHOULD fill in support
54// for Windows-NT (which I don't know) as I assume it begin
55// a POSIX Unix (so claims MS) that it has some special
56// functions beyond those provided by WinSock
57
0e320a79 58// Get full hostname (eg. DoDo.BSn-Germany.crg.de)
10e5b930
DW
59bool wxGetHostName(
60 wxChar* zBuf
61, int nMaxSize
62)
0e320a79 63{
d90895ac 64#if wxUSE_NET_API
10e5b930
DW
65 char zServer[256];
66 char zComputer[256];
909b4f08 67 unsigned long ulLevel = 0;
9dea36ef
DW
68 unsigned char* zBuffer = NULL;
69 unsigned long ulBuffer = 256;
70 unsigned long* pulTotalAvail = NULL;
10e5b930 71
dde11e60
DW
72 NetBios32GetInfo( (const unsigned char*)zServer
73 ,(const unsigned char*)zComputer
909b4f08 74 ,ulLevel
dde11e60 75 ,zBuffer
909b4f08
DW
76 ,ulBuffer
77 ,pulTotalAvail
dde11e60 78 );
10e5b930 79 strcpy(zBuf, zServer);
45fcbf3b 80#else
10e5b930
DW
81 wxChar* zSysname;
82 const wxChar* zDefaultHost = _T("noname");
45fcbf3b 83
10e5b930
DW
84 if ((zSysname = wxGetenv(_T("SYSTEM_NAME"))) == NULL)
85 {
9923c37d
DW
86 ::PrfQueryProfileString( HINI_PROFILE
87 ,(PSZ)WX_SECTION
88 ,(PSZ)eHOSTNAME
89 ,(PSZ)zDefaultHost
90 ,(void*)zBuf
91 ,(ULONG)nMaxSize - 1
92 );
10e5b930
DW
93 }
94 else
95 wxStrncpy(zBuf, zSysname, nMaxSize - 1);
96 zBuf[nMaxSize] = _T('\0');
45fcbf3b 97#endif
9d8aca48 98 return *zBuf ? true : false;
0e320a79
DW
99}
100
101// Get user ID e.g. jacs
10e5b930
DW
102bool wxGetUserId(
103 wxChar* zBuf
2bd5bbc9 104, int nType
10e5b930 105)
0e320a79 106{
19193a2c 107#if defined(__VISAGECPP__)
2bd5bbc9
DW
108 long lrc;
109 // UPM procs return 0 on success
110 lrc = U32ELOCU((unsigned char*)zBuf, (unsigned long *)&nType);
9d8aca48 111 if (lrc == 0) return true;
06298235 112#endif
9d8aca48 113 return false;
0e320a79
DW
114}
115
10e5b930
DW
116bool wxGetUserName(
117 wxChar* zBuf
118, int nMaxSize
119)
0e320a79 120{
45fcbf3b 121#ifdef USE_NET_API
10e5b930
DW
122 wxGetUserId( zBuf
123 ,nMaxSize
124 );
45fcbf3b 125#else
10e5b930 126 wxStrncpy(zBuf, _T("Unknown User"), nMaxSize);
45fcbf3b 127#endif
9d8aca48 128 return true;
0e320a79
DW
129}
130
10e5b930
DW
131int wxKill(
132 long lPid
2004cad1
DW
133, wxSignal eSig
134, wxKillError* peError
e0f6b731 135, int flags
10e5b930 136)
0e320a79 137{
10e5b930 138 return((int)::DosKillProcess(0, (PID)lPid));
0e320a79
DW
139}
140
141//
142// Execute a program in an Interactive Shell
143//
10e5b930
DW
144bool wxShell(
145 const wxString& rCommand
146)
0e320a79 147{
c5fb56c0
DW
148 wxChar* zShell = _T("CMD.EXE");
149 wxString sInputs;
c5fb56c0
DW
150 STARTDATA SData = {0};
151 PSZ PgmTitle = "Command Shell";
152 APIRET rc;
153 PID vPid = 0;
154 ULONG ulSessID = 0;
155 UCHAR achObjBuf[256] = {0}; //error data if DosStart fails
156 RESULTCODES vResult;
157
158 SData.Length = sizeof(STARTDATA);
159 SData.Related = SSF_RELATED_INDEPENDENT;
160 SData.FgBg = SSF_FGBG_FORE;
161 SData.TraceOpt = SSF_TRACEOPT_NONE;
162 SData.PgmTitle = PgmTitle;
163 SData.PgmName = zShell;
164
909b4f08 165 sInputs = "/C " + rCommand;
9ac6ff7b 166 SData.PgmInputs = (BYTE*)sInputs.c_str();
c5fb56c0
DW
167 SData.TermQ = 0;
168 SData.Environment = 0;
169 SData.InheritOpt = SSF_INHERTOPT_SHELL;
170 SData.SessionType = SSF_TYPE_WINDOWABLEVIO;
171 SData.IconFile = 0;
172 SData.PgmHandle = 0;
173 SData.PgmControl = SSF_CONTROL_VISIBLE | SSF_CONTROL_MAXIMIZE;
174 SData.InitXPos = 30;
175 SData.InitYPos = 40;
176 SData.InitXSize = 200;
177 SData.InitYSize = 140;
178 SData.Reserved = 0;
179 SData.ObjectBuffer = (char*)achObjBuf;
180 SData.ObjectBuffLen = (ULONG)sizeof(achObjBuf);
181
182 rc = ::DosStartSession(&SData, &ulSessID, &vPid);
9ac6ff7b 183 if (rc == 0 || rc == 457) // NO_ERROR or SMG_START_IN_BACKGROUND
c5fb56c0
DW
184 {
185 PTIB ptib;
186 PPIB ppib;
10e5b930 187
c5fb56c0 188 ::DosGetInfoBlocks(&ptib, &ppib);
10e5b930 189
c5fb56c0
DW
190 ::DosWaitChild( DCWA_PROCESS
191 ,DCWW_WAIT
192 ,&vResult
193 ,&ppib->pib_ulpid
194 ,vPid
195 );
196 }
197 return (rc != 0);
0e320a79
DW
198}
199
a23692f0 200// Shutdown or reboot the PC
f6ba47d9
VZ
201bool wxShutdown(wxShutdownFlags wFlags)
202{
203 // TODO
9d8aca48 204 return false;
f6ba47d9
VZ
205}
206
0e320a79 207// Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
9d8aca48 208wxMemorySize wxGetFreeMemory()
0e320a79 209{
9dea36ef 210 void* pMemptr = NULL;
78d50441
DW
211 ULONG lSize;
212 ULONG lMemFlags;
213 APIRET rc;
214
215 lMemFlags = PAG_FREE;
10e5b930 216 rc = ::DosQueryMem(pMemptr, &lSize, &lMemFlags);
78d50441 217 if (rc != 0)
9d8aca48
WS
218 lSize = -1L;
219 return (wxMemorySize)lSize;
45fcbf3b
DW
220}
221
8269a903
SN
222// ----------------------------------------------------------------------------
223// env vars
224// ----------------------------------------------------------------------------
225
226bool wxGetEnv(const wxString& var, wxString *value)
227{
228 // wxGetenv is defined as getenv()
229 wxChar *p = wxGetenv(var);
230 if ( !p )
9d8aca48 231 return false;
8269a903
SN
232
233 if ( value )
234 {
235 *value = p;
236 }
237
9d8aca48 238 return true;
8269a903
SN
239}
240
241bool wxSetEnv(const wxString& variable, const wxChar *value)
242{
243#if defined(HAVE_SETENV)
244 return setenv(variable.mb_str(), value ? wxString(value).mb_str().data()
245 : NULL, 1 /* overwrite */) == 0;
246#elif defined(HAVE_PUTENV)
247 wxString s = variable;
248 if ( value )
249 s << _T('=') << value;
250
251 // transform to ANSI
252 const char *p = s.mb_str();
253
254 // the string will be free()d by libc
255 char *buf = (char *)malloc(strlen(p) + 1);
256 strcpy(buf, p);
257
258 return putenv(buf) == 0;
259#else // no way to set an env var
9d8aca48 260 return false;
8269a903
SN
261#endif
262}
263
d3a919bd 264void wxMilliSleep(
10e5b930
DW
265 unsigned long ulMilliseconds
266)
45fcbf3b 267{
f53a0d32 268 ::DosSleep(ulMilliseconds);
0e320a79
DW
269}
270
d3a919bd
SN
271void wxMicroSleep(
272 unsigned long ulMicroseconds
273)
274{
275 ::DosSleep(ulMicroseconds/1000);
276}
277
10e5b930
DW
278void wxSleep(
279 int nSecs
280)
0e320a79 281{
10e5b930 282 ::DosSleep(1000 * nSecs);
0e320a79
DW
283}
284
285// Consume all events until no more left
286void wxFlushEvents()
287{
45fcbf3b 288// wxYield();
0e320a79
DW
289}
290
73deed44
VZ
291#if WXWIN_COMPATIBILITY_2_2
292
45fcbf3b 293// Output a debug mess., in a system dependent fashion.
10e5b930
DW
294void wxDebugMsg(
295 const wxChar* zFmt ...
296)
297{
298 va_list vAp;
299 static wxChar zBuffer[512];
300
301 if (!wxTheApp->GetWantDebugOutput())
302 return ;
303 va_start(vAp, zFmt);
304 sprintf(zBuffer, zFmt, vAp) ;
305 va_end(vAp);
0e320a79
DW
306}
307
308// Non-fatal error: pop up message box and (possibly) continue
10e5b930
DW
309void wxError(
310 const wxString& rMsg
311, const wxString& rTitle
312)
313{
bed67b7f 314 wxChar *wxBuffer = new wxChar[256];
10e5b930
DW
315 wxSprintf(wxBuffer, "%s\nContinue?", WXSTRINGCAST rMsg);
316 if (::WinMessageBox( HWND_DESKTOP
317 ,NULL
318 ,(PSZ)wxBuffer
319 ,(PSZ)WXSTRINGCAST rTitle
320 ,0
321 ,MB_ICONEXCLAMATION | MB_YESNO
322 ) == MBID_YES)
13a4ea8d 323 delete[] wxBuffer;
0e320a79
DW
324 wxExit();
325}
326
327// Fatal error: pop up message box and abort
10e5b930
DW
328void wxFatalError(
329 const wxString& rMsg
330, const wxString& rTitle
331)
332{
333 unsigned long ulRc;
334
335 ulRc = ::WinMessageBox( HWND_DESKTOP
336 ,NULL
337 ,WXSTRINGCAST rMsg
338 ,WXSTRINGCAST rTitle
339 ,0
340 ,MB_NOICON | MB_OK
341 );
342 DosExit(EXIT_PROCESS, ulRc);
0e320a79
DW
343}
344
73deed44
VZ
345#endif // WXWIN_COMPATIBILITY_2_2
346
0e320a79
DW
347// Emit a beeeeeep
348void wxBell()
349{
45fcbf3b 350 DosBeep(1000,1000); // 1kHz during 1 sec.
0e320a79 351}
621ccd8a 352
8329e6c7
SN
353
354void wxAppTraits::InitializeGui(unsigned long &ulHab)
355{
356}
357
358void wxAppTraits::TerminateGui(unsigned long ulHab)
359{
360}
361
621ccd8a 362wxToolkitInfo & wxConsoleAppTraits::GetToolkitInfo()
10e5b930 363{
9d8aca48
WS
364 static wxToolkitInfo vInfo;
365 ULONG ulSysInfo[QSV_MAX] = {0};
366 APIRET ulrc;
5d4b632b 367
621ccd8a 368 vInfo.name = _T("wxBase");
5d4b632b
DW
369 ulrc = ::DosQuerySysInfo( 1L
370 ,QSV_MAX
371 ,(PVOID)ulSysInfo
372 ,sizeof(ULONG) * QSV_MAX
373 );
374 if (ulrc == 0L)
10e5b930 375 {
621ccd8a
SN
376 vInfo.versionMajor = ulSysInfo[QSV_VERSION_MAJOR] / 10;
377 vInfo.versionMinor = ulSysInfo[QSV_VERSION_MINOR];
10e5b930 378 }
621ccd8a
SN
379 vInfo.os = wxOS2_PM;
380 return vInfo;
0e320a79 381}
621ccd8a 382
45fcbf3b 383// ---------------------------------------------------------------------------
1be7f92a
DW
384const wxChar* wxGetHomeDir(
385 wxString* pStr
386)
45fcbf3b 387{
1be7f92a 388 wxString& rStrDir = *pStr;
0e320a79 389
1be7f92a 390 // OS/2 has no idea about home,
b08c90ca
SN
391 // so use the working directory instead.
392 // However, we might have a valid HOME directory,
393 // as is used on many machines that have unix utilities
394 // on them, so we should use that, if available.
45fcbf3b 395
1be7f92a 396 // 256 was taken from os2def.h
45fcbf3b
DW
397#ifndef MAX_PATH
398# define MAX_PATH 256
399#endif
400
b08c90ca
SN
401 const wxChar *szHome = wxGetenv("HOME");
402 if ( szHome == NULL ) {
403 // we're homeless, use current directory.
404 rStrDir = wxT(".");
405 }
406 else
407 rStrDir = szHome;
45fcbf3b 408
1be7f92a 409 return rStrDir.c_str();
45fcbf3b
DW
410}
411
10e5b930 412// Hack for OS/2
1be7f92a
DW
413wxChar* wxGetUserHome (
414 const wxString& rUser
415)
416{
417 wxChar* zHome;
418 wxString sUser1(rUser);
419
bed67b7f 420 char *wxBuffer = new wxChar[256];
06298235 421#ifndef __EMX__
1be7f92a 422 if (sUser1 != _T(""))
45fcbf3b 423 {
1be7f92a
DW
424 wxChar zTmp[64];
425
426 if (wxGetUserId( zTmp
427 ,sizeof(zTmp)/sizeof(char)
428 ))
429 {
430 // Guests belong in the temp dir
431 if (wxStricmp(zTmp, _T("annonymous")) == 0)
432 {
433 if ((zHome = wxGetenv(_T("TMP"))) != NULL ||
434 (zHome = wxGetenv(_T("TMPDIR"))) != NULL ||
435 (zHome = wxGetenv(_T("TEMP"))) != NULL)
13a4ea8d 436 delete[] wxBuffer;
1be7f92a
DW
437 return *zHome ? zHome : (wxChar*)_T("\\");
438 }
439 if (wxStricmp(zTmp, WXSTRINGCAST sUser1) == 0)
440 sUser1 = _T("");
441 }
45fcbf3b 442 }
06298235 443#endif
1be7f92a 444 if (sUser1 == _T(""))
13a4ea8d 445 {
1be7f92a
DW
446 if ((zHome = wxGetenv(_T("HOME"))) != NULL)
447 {
448 wxStrcpy(wxBuffer, zHome);
2b5f62a0 449 wxUnix2DosFilename(wxBuffer);
13a4ea8d
DW
450 wxStrcpy(zHome, wxBuffer);
451 delete[] wxBuffer;
452 return zHome;
1be7f92a 453 }
13a4ea8d
DW
454 }
455 delete[] wxBuffer;
456 return NULL; // No home known!
0e320a79
DW
457}
458
1be7f92a
DW
459bool wxDirExists(
460 const wxString& rDir
461)
45fcbf3b 462{
1be7f92a 463 return (::DosSetCurrentDir(WXSTRINGCAST rDir));
45fcbf3b
DW
464}
465
914589c2
DW
466wxString WXDLLEXPORT wxPMErrorToStr(
467 ERRORID vError
468)
469{
470 wxString sError;
471
472 //
473 // Remove the high order byte -- it is useless
474 //
475 vError &= 0x0000ffff;
476 switch(vError)
477 {
478 case PMERR_INVALID_HWND:
479 sError = wxT("Invalid window handle specified");
480 break;
481
482 case PMERR_INVALID_FLAG:
483 sError = wxT("Invalid flag bit set");
484 break;
485
486 case PMERR_NO_MSG_QUEUE:
487 sError = wxT("No message queue available");
488 break;
489
490 case PMERR_INVALID_PARM:
491 sError = wxT("Parameter contained invalid data");
492 break;
493
494 case PMERR_INVALID_PARAMETERS:
495 sError = wxT("Parameter value is out of range");
496 break;
497
498 case PMERR_PARAMETER_OUT_OF_RANGE:
499 sError = wxT("Parameter value is out of range");
500 break;
501
502 case PMERR_INVALID_INTEGER_ATOM:
503 sError = wxT("Not a valid atom");
504 break;
505
506 case PMERR_INVALID_HATOMTBL:
507 sError = wxT("Atom table handle is invalid");
508 break;
509
510 case PMERR_INVALID_ATOM_NAME:
511 sError = wxT("Not a valid atom name");
512 break;
513
514 case PMERR_ATOM_NAME_NOT_FOUND:
515 sError = wxT("Valid name format, but cannot find name in atom table");
516 break;
517
518 default:
519 sError = wxT("Unknown error");
520 }
521 return(sError);
522} // end of wxPMErrorToStr
621ccd8a
SN
523
524// replacement for implementation in unix/utilsunx.cpp,
525// to be used by all X11 based ports.
526struct wxEndProcessData;
527
528void wxHandleProcessTermination(wxEndProcessData *proc_data)
529{
530 // For now, just do nothing. To be filled in as needed.
531}