]> git.saurik.com Git - wxWidgets.git/blob - src/os2/utils.cpp
document On{Open,Save}Document()
[wxWidgets.git] / src / os2 / utils.cpp
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__)
43 extern "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
53 static const wxChar WX_SECTION[] = _T("wxWidgets");
54 static 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)
62 bool 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
109 bool 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
119 bool 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
129 int 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 //
140 bool 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
195 bool 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)
202 wxMemorySize 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
217 unsigned long wxGetProcessId()
218 {
219 return (unsigned long)getpid();
220 }
221
222 // ----------------------------------------------------------------------------
223 // env vars
224 // ----------------------------------------------------------------------------
225
226 bool 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
241 static 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
265 bool wxSetEnv(const wxString& variable, const wxString& value)
266 {
267 return wxDoSetEnv(variable, value.mb_str());
268 }
269
270 bool wxUnsetEnv(const wxString& variable)
271 {
272 return wxDoSetEnv(variable, NULL);
273 }
274
275 void wxMilliSleep(
276 unsigned long ulMilliseconds
277 )
278 {
279 ::DosSleep(ulMilliseconds);
280 }
281
282 void wxMicroSleep(
283 unsigned long ulMicroseconds
284 )
285 {
286 ::DosSleep(ulMicroseconds/1000);
287 }
288
289 void wxSleep(
290 int nSecs
291 )
292 {
293 ::DosSleep(1000 * nSecs);
294 }
295
296 // Consume all events until no more left
297 void wxFlushEvents()
298 {
299 // wxYield();
300 }
301
302 // Emit a beeeeeep
303 void wxBell()
304 {
305 DosBeep(1000,1000); // 1kHz during 1 sec.
306 }
307
308 wxString 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
330 bool wxIsPlatform64Bit()
331 {
332 // FIXME: No idea how to test for 64 bit processor
333 // (Probably irrelevant anyhow, though).
334 return false;
335 }
336
337 void wxAppTraits::InitializeGui(unsigned long &WXUNUSED(ulHab))
338 {
339 }
340
341 void wxAppTraits::TerminateGui(unsigned long WXUNUSED(ulHab))
342 {
343 }
344
345 wxOperatingSystemId 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 // ---------------------------------------------------------------------------
369 const 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
397 wxString 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
438 bool 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
483 wxString 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.
641 struct wxEndProcessData;
642
643 void wxHandleProcessTermination(wxEndProcessData *WXUNUSED(proc_data))
644 {
645 // For now, just do nothing. To be filled in as needed.
646 }