]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/os2/utils.cpp
projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
Bring through upstream version tagged PKGCONF_0_20.
[wxWidgets.git] / src / os2 / utils.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/os2/utils.cpp
3// Purpose: Various utilities
4// Author: David Webster
5// Modified by:
6// Created: 09/17/99
7// RCS-ID: $Id$
8// Copyright: (c) David Webster
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// For compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#include "wx/utils.h"
16
17#ifndef WX_PRECOMP
18 #include "wx/intl.h"
19 #include "wx/log.h"
20#endif //WX_PRECOMP
21
22#include "wx/os2/private.h"
23#include "wx/apptrait.h"
24
25#include <ctype.h>
26#ifdef __EMX__
27#include <dirent.h>
28#endif
29
30
31#include <io.h>
32
33#include <stdio.h>
34#include <stdlib.h>
35#include <string.h>
36#include <errno.h>
37#include <stdarg.h>
38
39#define PURE_32
40
41#if defined(__WATCOMC__)
42extern "C"
43{
44 #include <upm.h>
45}
46#elif !defined(__EMX__)
47 #include <upm.h>
48 #include <netcons.h>
49 #include <netbios.h>
50#endif
51
52static const wxChar WX_SECTION[] = _T("wxWidgets");
53static const wxChar eHOSTNAME[] = _T("HostName");
54
55// For the following functions we SHOULD fill in support
56// for Windows-NT (which I don't know) as I assume it begin
57// a POSIX Unix (so claims MS) that it has some special
58// functions beyond those provided by WinSock
59
60// Get full hostname (eg. DoDo.BSn-Germany.crg.de)
61bool wxGetHostName( wxChar* zBuf, int nMaxSize )
62{
63 if (!zBuf) return false;
64
65#if defined(wxUSE_NET_API) && wxUSE_NET_API
66 char zServer[256];
67 char zComputer[256];
68 unsigned long ulLevel = 0;
69 unsigned char* zBuffer = NULL;
70 unsigned long ulBuffer = 256;
71 unsigned long* pulTotalAvail = NULL;
72
73 NetBios32GetInfo( (const unsigned char*)zServer
74 ,(const unsigned char*)zComputer
75 ,ulLevel
76 ,zBuffer
77 ,ulBuffer
78 ,pulTotalAvail
79 );
80 strcpy(zBuf, zServer);
81#else
82 wxChar* zSysname;
83 const wxChar* zDefaultHost = _T("noname");
84
85 if ((zSysname = wxGetenv(_T("SYSTEM_NAME"))) == NULL)
86 {
87 ::PrfQueryProfileString( HINI_PROFILE
88 ,(PSZ)WX_SECTION
89 ,(PSZ)eHOSTNAME
90 ,(PSZ)zDefaultHost
91 ,(void*)zBuf
92 ,(ULONG)nMaxSize - 1
93 );
94 }
95 else
96 {
97 wxStrncpy(zBuf, zSysname, nMaxSize - 1);
98 }
99
100 zBuf[nMaxSize] = _T('\0');
101#endif
102
103 return *zBuf ? true : false;
104}
105
106// Get user ID e.g. jacs
107bool wxGetUserId(wxChar* zBuf, int nType)
108{
109#if defined(__VISAGECPP__) || defined(__WATCOMC__)
110 // UPM procs return 0 on success
111 long lrc = U32ELOCU((PUCHAR)zBuf, (PULONG)&nType);
112 if (lrc == 0) return true;
113#endif
114 return false;
115}
116
117bool wxGetUserName( wxChar* zBuf, int nMaxSize )
118{
119#ifdef USE_NET_API
120 wxGetUserId( zBuf, nMaxSize );
121#else
122 wxStrncpy(zBuf, _T("Unknown User"), nMaxSize);
123#endif
124 return true;
125}
126
127int wxKill(long lPid,
128 wxSignal WXUNUSED(eSig),
129 wxKillError* WXUNUSED(peError),
130 int WXUNUSED(flags))
131{
132 return((int)::DosKillProcess(0, (PID)lPid));
133}
134
135//
136// Execute a program in an Interactive Shell
137//
138bool wxShell( const wxString& rCommand )
139{
140 wxChar* zShell = _T("CMD.EXE");
141 wxString sInputs;
142 STARTDATA SData = {0};
143 PSZ PgmTitle = "Command Shell";
144 APIRET rc;
145 PID vPid = 0;
146 ULONG ulSessID = 0;
147 UCHAR achObjBuf[256] = {0}; //error data if DosStart fails
148 RESULTCODES vResult;
149
150 SData.Length = sizeof(STARTDATA);
151 SData.Related = SSF_RELATED_INDEPENDENT;
152 SData.FgBg = SSF_FGBG_FORE;
153 SData.TraceOpt = SSF_TRACEOPT_NONE;
154 SData.PgmTitle = PgmTitle;
155 SData.PgmName = (char*)zShell;
156
157 sInputs = _T("/C ") + rCommand;
158 SData.PgmInputs = (BYTE*)sInputs.c_str();
159 SData.TermQ = 0;
160 SData.Environment = 0;
161 SData.InheritOpt = SSF_INHERTOPT_SHELL;
162 SData.SessionType = SSF_TYPE_WINDOWABLEVIO;
163 SData.IconFile = 0;
164 SData.PgmHandle = 0;
165 SData.PgmControl = SSF_CONTROL_VISIBLE | SSF_CONTROL_MAXIMIZE;
166 SData.InitXPos = 30;
167 SData.InitYPos = 40;
168 SData.InitXSize = 200;
169 SData.InitYSize = 140;
170 SData.Reserved = 0;
171 SData.ObjectBuffer = (char*)achObjBuf;
172 SData.ObjectBuffLen = (ULONG)sizeof(achObjBuf);
173
174 rc = ::DosStartSession(&SData, &ulSessID, &vPid);
175 if (rc == 0 || rc == 457) // NO_ERROR or SMG_START_IN_BACKGROUND
176 {
177 PTIB ptib;
178 PPIB ppib;
179
180 ::DosGetInfoBlocks(&ptib, &ppib);
181
182 ::DosWaitChild( DCWA_PROCESS
183 ,DCWW_WAIT
184 ,&vResult
185 ,&ppib->pib_ulpid
186 ,vPid
187 );
188 }
189 return (rc != 0);
190}
191
192// Shutdown or reboot the PC
193bool wxShutdown(wxShutdownFlags WXUNUSED(wFlags))
194{
195 // TODO
196 return false;
197}
198
199// Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
200wxMemorySize wxGetFreeMemory()
201{
202 void* pMemptr = NULL;
203 LONG lSize;
204 ULONG lMemFlags;
205 APIRET rc;
206
207 lMemFlags = PAG_FREE;
208 rc = ::DosQueryMem(pMemptr, (PULONG)&lSize, &lMemFlags);
209 if (rc != 0)
210 lSize = -1L;
211 return (wxMemorySize)lSize;
212}
213
214// Get Process ID
215unsigned long wxGetProcessId()
216{
217 return (unsigned long)getpid();
218}
219
220// ----------------------------------------------------------------------------
221// env vars
222// ----------------------------------------------------------------------------
223
224bool wxGetEnv(const wxString& var, wxString *value)
225{
226 // wxGetenv is defined as getenv()
227 wxChar *p = wxGetenv(var);
228 if ( !p )
229 return false;
230
231 if ( value )
232 {
233 *value = p;
234 }
235
236 return true;
237}
238
239bool wxSetEnv(const wxString& variable, const wxChar *value)
240{
241#if defined(HAVE_SETENV)
242 return setenv(variable.mb_str(), value ? wxString(value).mb_str().data()
243 : NULL, 1 /* overwrite */) == 0;
244#elif defined(HAVE_PUTENV)
245 wxString s = variable;
246 if ( value )
247 s << _T('=') << value;
248
249 // transform to ANSI
250 const char *p = s.mb_str();
251
252 // the string will be free()d by libc
253 char *buf = (char *)malloc(strlen(p) + 1);
254 strcpy(buf, p);
255
256 return putenv(buf) == 0;
257#else // no way to set an env var
258 wxUnusedVar(variable);
259 wxUnusedVar(value);
260 return false;
261#endif
262}
263
264void wxMilliSleep(
265 unsigned long ulMilliseconds
266)
267{
268 ::DosSleep(ulMilliseconds);
269}
270
271void wxMicroSleep(
272 unsigned long ulMicroseconds
273)
274{
275 ::DosSleep(ulMicroseconds/1000);
276}
277
278void wxSleep(
279 int nSecs
280)
281{
282 ::DosSleep(1000 * nSecs);
283}
284
285// Consume all events until no more left
286void wxFlushEvents()
287{
288// wxYield();
289}
290
291// Emit a beeeeeep
292void wxBell()
293{
294 DosBeep(1000,1000); // 1kHz during 1 sec.
295}
296
297wxString wxGetOsDescription()
298{
299 wxString strVer(_T("OS/2"));
300 ULONG ulSysInfo[QSV_MAX] = {0};
301
302 if (::DosQuerySysInfo( 1L,
303 QSV_MAX,
304 (PVOID)ulSysInfo,
305 sizeof(ULONG) * QSV_MAX
306 ) == 0L )
307 {
308 wxString ver;
309 ver.Printf( _T(" ver. %d.%d rev. %c"),
310 int(ulSysInfo[QSV_VERSION_MAJOR] / 10),
311 int(ulSysInfo[QSV_VERSION_MINOR]),
312 char(ulSysInfo[QSV_VERSION_REVISION])
313 );
314 strVer += ver;
315 }
316
317 return strVer;
318}
319
320void wxAppTraits::InitializeGui(unsigned long &WXUNUSED(ulHab))
321{
322}
323
324void wxAppTraits::TerminateGui(unsigned long WXUNUSED(ulHab))
325{
326}
327
328wxOperatingSystemId wxGetOsVersion(int *verMaj, int *verMin)
329{
330 ULONG ulSysInfo[QSV_MAX] = {0};
331 APIRET ulrc;
332
333 ulrc = ::DosQuerySysInfo( 1L
334 ,QSV_MAX
335 ,(PVOID)ulSysInfo
336 ,sizeof(ULONG) * QSV_MAX
337 );
338
339 if (ulrc == 0L)
340 {
341 if ( verMaj )
342 *verMaj = ulSysInfo[QSV_VERSION_MAJOR] / 10;
343 if ( verMin )
344 *verMin = ulSysInfo[QSV_VERSION_MINOR];
345 }
346
347 return wxOS_OS2;
348}
349
350
351// ---------------------------------------------------------------------------
352const wxChar* wxGetHomeDir(
353 wxString* pStr
354)
355{
356 wxString& rStrDir = *pStr;
357
358 // OS/2 has no idea about home,
359 // so use the working directory instead.
360 // However, we might have a valid HOME directory,
361 // as is used on many machines that have unix utilities
362 // on them, so we should use that, if available.
363
364 // 256 was taken from os2def.h
365#ifndef MAX_PATH
366# define MAX_PATH 256
367#endif
368
369 const wxChar *szHome = wxGetenv((wxChar*)"HOME");
370 if ( szHome == NULL ) {
371 // we're homeless, use current directory.
372 rStrDir = wxT(".");
373 }
374 else
375 rStrDir = szHome;
376
377 return rStrDir.c_str();
378}
379
380// Hack for OS/2
381#if wxUSE_UNICODE
382const wxMB2WXbuf wxGetUserHome( const wxString &rUser )
383#else // just for binary compatibility -- there is no 'const' here
384wxChar* wxGetUserHome ( const wxString &rUser )
385#endif
386{
387 wxChar* zHome;
388 wxString sUser1(rUser);
389
390 wxChar *wxBuffer = new wxChar[256];
391#ifndef __EMX__
392 if (!sUser1.empty())
393 {
394 wxChar zTmp[64];
395
396 if (wxGetUserId( zTmp
397 ,sizeof(zTmp)/sizeof(char)
398 ))
399 {
400 // Guests belong in the temp dir
401 if (wxStricmp(zTmp, _T("annonymous")) == 0)
402 {
403 if ((zHome = wxGetenv(_T("TMP"))) != NULL ||
404 (zHome = wxGetenv(_T("TMPDIR"))) != NULL ||
405 (zHome = wxGetenv(_T("TEMP"))) != NULL)
406 delete[] wxBuffer;
407 return *zHome ? zHome : (wxChar*)_T("\\");
408 }
409 if (wxStricmp(zTmp, WXSTRINGCAST sUser1) == 0)
410 sUser1 = wxEmptyString;
411 }
412 }
413#endif
414 if (sUser1.empty())
415 {
416 if ((zHome = wxGetenv(_T("HOME"))) != NULL)
417 {
418 wxStrcpy(wxBuffer, zHome);
419 wxUnix2DosFilename(wxBuffer);
420#if wxUSE_UNICODE
421 wxWCharBuffer retBuffer (wxBuffer);
422 delete[] wxBuffer;
423 return retBuffer;
424#else
425 wxStrcpy(zHome, wxBuffer);
426 delete[] wxBuffer;
427 return zHome;
428#endif
429 }
430 }
431 delete[] wxBuffer;
432 return (wxChar*)wxEmptyString; // No home known!
433}
434
435wxString wxPMErrorToStr(ERRORID vError)
436{
437 wxString sError;
438
439 //
440 // Remove the high order byte -- it is useless
441 //
442 vError &= 0x0000ffff;
443 switch(vError)
444 {
445 case PMERR_INVALID_HWND:
446 sError = wxT("Invalid window handle specified");
447 break;
448
449 case PMERR_INVALID_FLAG:
450 sError = wxT("Invalid flag bit set");
451 break;
452
453 case PMERR_NO_MSG_QUEUE:
454 sError = wxT("No message queue available");
455 break;
456
457 case PMERR_INVALID_PARM:
458 sError = wxT("Parameter contained invalid data");
459 break;
460
461 case PMERR_INVALID_PARAMETERS:
462 sError = wxT("Parameter value is out of range");
463 break;
464
465 case PMERR_PARAMETER_OUT_OF_RANGE:
466 sError = wxT("Parameter value is out of range");
467 break;
468
469 case PMERR_INVALID_INTEGER_ATOM:
470 sError = wxT("Not a valid atom");
471 break;
472
473 case PMERR_INVALID_HATOMTBL:
474 sError = wxT("Atom table handle is invalid");
475 break;
476
477 case PMERR_INVALID_ATOM_NAME:
478 sError = wxT("Not a valid atom name");
479 break;
480
481 case PMERR_ATOM_NAME_NOT_FOUND:
482 sError = wxT("Valid name format, but cannot find name in atom table");
483 break;
484
485 case PMERR_INV_HPS:
486 sError = wxT("PMERR_INV_HPS");
487 break;
488
489 case PMERR_PS_BUSY:
490 sError = wxT("PMERR_PS_BUSY");
491 break;
492
493 case PMERR_INV_PRIMITIVE_TYPE:
494 sError = wxT("PMERR_INV_PRIMITIVE_TYPE");
495 break;
496
497 case PMERR_UNSUPPORTED_ATTR:
498 sError = wxT("PMERR_UNSUPPORTED_ATTR");
499 break;
500
501 case PMERR_INV_COLOR_ATTR:
502 sError = wxT("PMERR_INV_COLOR_ATTR");
503 break;
504
505 case PMERR_INV_BACKGROUND_COL_ATTR:
506 sError = wxT("PMERR_INV_BACKGROUND_COL_ATTR");
507 break;
508
509 case PMERR_INV_MIX_ATTR:
510 sError = wxT("PMERR_INV_MIX_ATTR");
511 break;
512
513 case PMERR_INV_LINE_WIDTH_ATTR:
514 sError = wxT("PMERR_INV_LINE_WIDTH_ATTR");
515 break;
516
517 case PMERR_INV_GEOM_LINE_WIDTH_ATTR:
518 sError = wxT("PMERR_INV_GEOM_LINE_WIDTH_ATTR");
519 break;
520
521 case PMERR_INV_LINE_TYPE_ATTR:
522 sError = wxT("PMERR_INV_LINE_TYPE_ATTR");
523 break;
524
525 case PMERR_INV_LINE_END_ATTR:
526 sError = wxT("PMERR_INV_LINE_END_ATTR");
527 break;
528
529 case PMERR_INV_LINE_JOIN_ATTR:
530 sError = wxT("PMERR_INV_LINE_JOIN_ATTR");
531 break;
532
533 case PMERR_INV_CHAR_SET_ATTR:
534 sError = wxT("PMERR_INV_CHAR_SET_ATTR");
535 break;
536
537 case PMERR_INV_CHAR_MODE_ATTR:
538 sError = wxT("PMERR_INV_CHAR_MODE_ATTR");
539 break;
540
541 case PMERR_INV_CHAR_DIRECTION_ATTR:
542 sError = wxT("PMERR_INV_CHAR_DIRECTION_ATTR");
543 break;
544
545 case PMERR_INV_CHAR_SHEAR_ATTR:
546 sError = wxT("PMERR_INV_CHAR_SHEAR_ATTR");
547 break;
548
549 case PMERR_INV_CHAR_ANGLE_ATTR:
550 sError = wxT("PMERR_INV_CHAR_ANGLE_ATTR");
551 break;
552
553 case PMERR_INV_MARKER_SET_ATTR:
554 sError = wxT("PMERR_INV_MARKER_SET_ATTR");
555 break;
556
557 case PMERR_INV_MARKER_SYMBOL_ATTR:
558 sError = wxT("PMERR_INV_MARKER_SYMBOL_ATTR");
559 break;
560
561 case PMERR_INV_PATTERN_SET_ATTR:
562 sError = wxT("PMERR_INV_PATTERN_SET_ATTR");
563 break;
564
565 case PMERR_INV_PATTERN_ATTR:
566 sError = wxT("PMERR_INV_PATTERN_ATTR");
567 break;
568
569 case PMERR_INV_COORDINATE:
570 sError = wxT("PMERR_INV_COORDINATE");
571 break;
572
573 case PMERR_UNSUPPORTED_ATTR_VALUE:
574 sError = wxT("PMERR_UNSUPPORTED_ATTR_VALUE");
575 break;
576
577 case PMERR_INV_PATTERN_SET_FONT:
578 sError = wxT("PMERR_INV_PATTERN_SET_FONT");
579 break;
580
581 case PMERR_HUGE_FONTS_NOT_SUPPORTED:
582 sError = wxT("PMERR_HUGE_FONTS_NOT_SUPPORTED");
583 break;
584
585 default:
586 sError = wxT("Unknown error");
587 }
588 return sError;
589} // end of wxPMErrorToStr
590
591// replacement for implementation in unix/utilsunx.cpp,
592// to be used by all X11 based ports.
593struct wxEndProcessData;
594
595void wxHandleProcessTermination(wxEndProcessData *WXUNUSED(proc_data))
596{
597 // For now, just do nothing. To be filled in as needed.
598}
wxWidgets (Impactor)