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