projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
perlfunc.pod grammar fixes
[p5sagit/p5-mst-13.2.git] / os2 / OS2 / Process / Process.xs
CommitLineData
760ac839 1#include <process.h>
7f61b687 2#define INCL_DOS
3#define INCL_DOSERRORS
35bc1fdc 4#define INCL_DOSNLS
5#define INCL_WINSWITCHLIST
6#define INCL_WINWINDOWMGR
7#define INCL_WININPUT
8#define INCL_VIO
9#define INCL_KBD
622913ab 10#define INCL_WINCLIPBOARD
11#define INCL_WINATOM
7f61b687 12#include <os2.h>
760ac839 13
35bc1fdc 14#include "EXTERN.h"
15#include "perl.h"
16#include "XSUB.h"
17
760ac839 18static unsigned long
41cd3736 19constant(char *name, int arg)
760ac839 20{
21 errno = 0;
22 if (name[0] == 'P' && name[1] == '_') {
23 if (strEQ(name, "P_BACKGROUND"))
24#ifdef P_BACKGROUND
25 return P_BACKGROUND;
26#else
27 goto not_there;
28#endif
29 if (strEQ(name, "P_DEBUG"))
30#ifdef P_DEBUG
31 return P_DEBUG;
32#else
33 goto not_there;
34#endif
35 if (strEQ(name, "P_DEFAULT"))
36#ifdef P_DEFAULT
37 return P_DEFAULT;
38#else
39 goto not_there;
40#endif
41 if (strEQ(name, "P_DETACH"))
42#ifdef P_DETACH
43 return P_DETACH;
44#else
45 goto not_there;
46#endif
47 if (strEQ(name, "P_FOREGROUND"))
48#ifdef P_FOREGROUND
49 return P_FOREGROUND;
50#else
51 goto not_there;
52#endif
53 if (strEQ(name, "P_FULLSCREEN"))
54#ifdef P_FULLSCREEN
55 return P_FULLSCREEN;
56#else
57 goto not_there;
58#endif
59 if (strEQ(name, "P_MAXIMIZE"))
60#ifdef P_MAXIMIZE
61 return P_MAXIMIZE;
62#else
63 goto not_there;
64#endif
65 if (strEQ(name, "P_MINIMIZE"))
66#ifdef P_MINIMIZE
67 return P_MINIMIZE;
68#else
69 goto not_there;
70#endif
71 if (strEQ(name, "P_NOCLOSE"))
72#ifdef P_NOCLOSE
73 return P_NOCLOSE;
74#else
75 goto not_there;
76#endif
77 if (strEQ(name, "P_NOSESSION"))
78#ifdef P_NOSESSION
79 return P_NOSESSION;
80#else
81 goto not_there;
82#endif
83 if (strEQ(name, "P_NOWAIT"))
84#ifdef P_NOWAIT
85 return P_NOWAIT;
86#else
87 goto not_there;
88#endif
89 if (strEQ(name, "P_OVERLAY"))
90#ifdef P_OVERLAY
91 return P_OVERLAY;
92#else
93 goto not_there;
94#endif
95 if (strEQ(name, "P_PM"))
96#ifdef P_PM
97 return P_PM;
98#else
99 goto not_there;
100#endif
101 if (strEQ(name, "P_QUOTE"))
102#ifdef P_QUOTE
103 return P_QUOTE;
104#else
105 goto not_there;
106#endif
107 if (strEQ(name, "P_SESSION"))
108#ifdef P_SESSION
109 return P_SESSION;
110#else
111 goto not_there;
112#endif
113 if (strEQ(name, "P_TILDE"))
114#ifdef P_TILDE
115 return P_TILDE;
116#else
117 goto not_there;
118#endif
119 if (strEQ(name, "P_UNRELATED"))
120#ifdef P_UNRELATED
121 return P_UNRELATED;
122#else
123 goto not_there;
124#endif
125 if (strEQ(name, "P_WAIT"))
126#ifdef P_WAIT
127 return P_WAIT;
128#else
129 goto not_there;
130#endif
131 if (strEQ(name, "P_WINDOWED"))
132#ifdef P_WINDOWED
133 return P_WINDOWED;
134#else
135 goto not_there;
136#endif
7f61b687 137 } else if (name[0] == 'T' && name[1] == '_') {
138 if (strEQ(name, "FAPPTYP_NOTSPEC"))
139#ifdef FAPPTYP_NOTSPEC
140 return FAPPTYP_NOTSPEC;
141#else
142 goto not_there;
143#endif
144 if (strEQ(name, "T_NOTWINDOWCOMPAT"))
145#ifdef FAPPTYP_NOTWINDOWCOMPAT
146 return FAPPTYP_NOTWINDOWCOMPAT;
147#else
148 goto not_there;
149#endif
150 if (strEQ(name, "T_WINDOWCOMPAT"))
151#ifdef FAPPTYP_WINDOWCOMPAT
152 return FAPPTYP_WINDOWCOMPAT;
153#else
154 goto not_there;
155#endif
156 if (strEQ(name, "T_WINDOWAPI"))
157#ifdef FAPPTYP_WINDOWAPI
158 return FAPPTYP_WINDOWAPI;
159#else
160 goto not_there;
161#endif
162 if (strEQ(name, "T_BOUND"))
163#ifdef FAPPTYP_BOUND
164 return FAPPTYP_BOUND;
165#else
166 goto not_there;
167#endif
168 if (strEQ(name, "T_DLL"))
169#ifdef FAPPTYP_DLL
170 return FAPPTYP_DLL;
171#else
172 goto not_there;
173#endif
174 if (strEQ(name, "T_DOS"))
175#ifdef FAPPTYP_DOS
176 return FAPPTYP_DOS;
177#else
178 goto not_there;
179#endif
180 if (strEQ(name, "T_PHYSDRV"))
181#ifdef FAPPTYP_PHYSDRV
182 return FAPPTYP_PHYSDRV;
183#else
184 goto not_there;
185#endif
186 if (strEQ(name, "T_VIRTDRV"))
187#ifdef FAPPTYP_VIRTDRV
188 return FAPPTYP_VIRTDRV;
189#else
190 goto not_there;
191#endif
192 if (strEQ(name, "T_PROTDLL"))
193#ifdef FAPPTYP_PROTDLL
194 return FAPPTYP_PROTDLL;
195#else
196 goto not_there;
197#endif
198 if (strEQ(name, "T_32BIT"))
199#ifdef FAPPTYP_32BIT
200 return FAPPTYP_32BIT;
201#else
202 goto not_there;
203#endif
760ac839 204 }
205
206 errno = EINVAL;
207 return 0;
208
209not_there:
210 errno = ENOENT;
211 return 0;
212}
213
7f61b687 214const char* const ptypes[] = { "FS", "DOS", "VIO", "PM", "DETACH" };
215
216static char *
217my_type()
218{
219 int rc;
220 TIB *tib;
221 PIB *pib;
222
223 if (!(_emx_env & 0x200)) return (char*)ptypes[1]; /* not OS/2. */
224 if (CheckOSError(DosGetInfoBlocks(&tib, &pib)))
225 return NULL;
226
227 return (pib->pib_ultype <= 4 ? (char*)ptypes[pib->pib_ultype] : "UNKNOWN");
228}
229
230static ULONG
231file_type(char *path)
232{
233 int rc;
234 ULONG apptype;
235
236 if (!(_emx_env & 0x200))
237 croak("file_type not implemented on DOS"); /* not OS/2. */
238 if (CheckOSError(DosQueryAppType(path, &apptype))) {
622913ab 239#if 0
7f61b687 240 if (rc == ERROR_INVALID_EXE_SIGNATURE)
241 croak("Invalid EXE signature");
242 else if (rc == ERROR_EXE_MARKED_INVALID) {
243 croak("EXE marked invalid");
244 }
622913ab 245#endif
246 croak_with_os2error("DosQueryAppType");
7f61b687 247 }
248
249 return apptype;
250}
251
30500b05 252/* These use different type of wrapper. Good to check wrappers. ;-) */
253/* XXXX This assumes DOS type return type, without SEVERITY?! */
35bc1fdc 254DeclFuncByORD(HSWITCH, myWinQuerySwitchHandle, ORD_WinQuerySwitchHandle,
255 (HWND hwnd, PID pid), (hwnd, pid))
256DeclFuncByORD(ULONG, myWinQuerySwitchEntry, ORD_WinQuerySwitchEntry,
257 (HSWITCH hsw, PSWCNTRL pswctl), (hsw, pswctl))
258DeclFuncByORD(ULONG, myWinSetWindowText, ORD_WinSetWindowText,
259 (HWND hwnd, char* text), (hwnd, text))
260DeclFuncByORD(BOOL, myWinQueryWindowProcess, ORD_WinQueryWindowProcess,
261 (HWND hwnd, PPID ppid, PTID ptid), (hwnd, ppid, ptid))
35bc1fdc 262DeclFuncByORD(ULONG, XmyWinSwitchToProgram, ORD_WinSwitchToProgram,
263 (HSWITCH hsw), (hsw))
264#define myWinSwitchToProgram(hsw) (!CheckOSError(XmyWinSwitchToProgram(hsw)))
265
35bc1fdc 266
622913ab 267/* These function croak if the return value is 0. */
30500b05 268DeclWinFunc_CACHE(HWND, QueryWindow, (HWND hwnd, LONG cmd), (hwnd, cmd))
269DeclWinFunc_CACHE(BOOL, QueryWindowPos, (HWND hwnd, PSWP pswp),
270 (hwnd, pswp))
271DeclWinFunc_CACHE(LONG, QueryWindowText,
272 (HWND hwnd, LONG cchBufferMax, PCH pchBuffer),
273 (hwnd, cchBufferMax, pchBuffer))
274DeclWinFunc_CACHE(LONG, QueryClassName, (HWND hwnd, LONG cchMax, PCH pch),
275 (hwnd, cchMax, pch))
276DeclWinFunc_CACHE(HWND, QueryFocus, (HWND hwndDesktop), (hwndDesktop))
277DeclWinFunc_CACHE(BOOL, SetFocus, (HWND hwndDesktop, HWND hwndFocus),
278 (hwndDesktop, hwndFocus))
279DeclWinFunc_CACHE(BOOL, ShowWindow, (HWND hwnd, BOOL fShow), (hwnd, fShow))
280DeclWinFunc_CACHE(BOOL, EnableWindow, (HWND hwnd, BOOL fEnable),
281 (hwnd, fEnable))
282DeclWinFunc_CACHE(BOOL, SetWindowPos,
283 (HWND hwnd, HWND hwndInsertBehind, LONG x, LONG y,
284 LONG cx, LONG cy, ULONG fl),
285 (hwnd, hwndInsertBehind, x, y, cx, cy, fl))
286DeclWinFunc_CACHE(HENUM, BeginEnumWindows, (HWND hwnd), (hwnd))
287DeclWinFunc_CACHE(BOOL, EndEnumWindows, (HENUM henum), (henum))
288DeclWinFunc_CACHE(BOOL, EnableWindowUpdate, (HWND hwnd, BOOL fEnable),
289 (hwnd, fEnable))
290DeclWinFunc_CACHE(BOOL, SetWindowBits,
291 (HWND hwnd, LONG index, ULONG flData, ULONG flMask),
292 (hwnd, index, flData, flMask))
293DeclWinFunc_CACHE(BOOL, SetWindowPtr, (HWND hwnd, LONG index, PVOID p),
294 (hwnd, index, p))
295DeclWinFunc_CACHE(BOOL, SetWindowULong, (HWND hwnd, LONG index, ULONG ul),
296 (hwnd, index, ul))
297DeclWinFunc_CACHE(BOOL, SetWindowUShort, (HWND hwnd, LONG index, USHORT us),
298 (hwnd, index, us))
299DeclWinFunc_CACHE(HWND, IsChild, (HWND hwnd, HWND hwndParent),
300 (hwnd, hwndParent))
301DeclWinFunc_CACHE(HWND, WindowFromId, (HWND hwnd, ULONG id), (hwnd, id))
302DeclWinFunc_CACHE(HWND, EnumDlgItem, (HWND hwndDlg, HWND hwnd, ULONG code),
303 (hwndDlg, hwnd, code))
304DeclWinFunc_CACHE(HWND, QueryDesktopWindow, (HAB hab, HDC hdc), (hab, hdc));
305DeclWinFunc_CACHE(BOOL, SetActiveWindow, (HWND hwndDesktop, HWND hwnd),
306 (hwndDesktop, hwnd));
622913ab 307DeclWinFunc_CACHE(BOOL, QueryActiveDesktopPathname, (PSZ pszPathName, ULONG ulSize),
308 (pszPathName, ulSize));
309DeclWinFunc_CACHE(BOOL, InvalidateRect,
310 (HWND hwnd, /*RECTL*/ char *prcl, BOOL fIncludeChildren),
311 (hwnd, prcl, fIncludeChildren));
312DeclWinFunc_CACHE(BOOL, CreateFrameControls,
313 (HWND hwndFrame, /*PFRAMECDATA*/ char* pfcdata, PCSZ pszTitle),
314 (hwndFrame, pfcdata, pszTitle));
315DeclWinFunc_CACHE(BOOL, OpenClipbrd, (HAB hab), (hab));
316DeclWinFunc_CACHE(BOOL, EmptyClipbrd, (HAB hab), (hab));
317DeclWinFunc_CACHE(BOOL, CloseClipbrd, (HAB hab), (hab));
318DeclWinFunc_CACHE(HWND, QueryClipbrdViewer, (HAB hab), (hab));
319DeclWinFunc_CACHE(HWND, QueryClipbrdOwner, (HAB hab), (hab));
320DeclWinFunc_CACHE(BOOL, QueryClipbrdFmtInfo, (HAB hab, ULONG fmt, PULONG prgfFmtInfo), (hab, fmt, prgfFmtInfo));
321DeclWinFunc_CACHE(ULONG, QueryClipbrdData, (HAB hab, ULONG fmt), (hab, fmt));
322DeclWinFunc_CACHE(HWND, SetClipbrdViewer, (HAB hab, HWND hwnd), (hab, hwnd));
323DeclWinFunc_CACHE(HWND, SetClipbrdOwner, (HAB hab, HWND hwnd), (hab, hwnd));
324DeclWinFunc_CACHE(ULONG, EnumClipbrdFmts, (HAB hab, ULONG fmt), (hab, fmt));
325DeclWinFunc_CACHE(ATOM, AddAtom, (HATOMTBL hAtomTbl, PCSZ pszAtomName),
326 (hAtomTbl, pszAtomName));
327DeclWinFunc_CACHE(ATOM, FindAtom, (HATOMTBL hAtomTbl, PCSZ pszAtomName),
328 (hAtomTbl, pszAtomName));
329DeclWinFunc_CACHE(ATOM, DeleteAtom, (HATOMTBL hAtomTbl, PCSZ pszAtomName),
330 (hAtomTbl, pszAtomName));
331DeclWinFunc_CACHE(ULONG, QueryAtomUsage, (HATOMTBL hAtomTbl, ATOM atom),
332 (hAtomTbl, atom));
333DeclWinFunc_CACHE(ULONG, QueryAtomLength, (HATOMTBL hAtomTbl, ATOM atom),
334 (hAtomTbl, atom));
335DeclWinFunc_CACHE(ULONG, QueryAtomName,
336 (HATOMTBL hAtomTbl, ATOM atom, PSZ pchBuffer, ULONG cchBufferMax),
337 (hAtomTbl, atom, pchBuffer, cchBufferMax));
338DeclWinFunc_CACHE(HATOMTBL, QuerySystemAtomTable, (VOID), ());
339DeclWinFunc_CACHE(HATOMTBL, CreateAtomTable, (ULONG initial, ULONG buckets),
340 (initial, buckets));
341DeclWinFunc_CACHE(HATOMTBL, DestroyAtomTable, (HATOMTBL hAtomTbl), (hAtomTbl));
342DeclWinFunc_CACHE(ULONG, MessageBox, (HWND hwndParent, HWND hwndOwner, PCSZ pszText, PCSZ pszCaption, ULONG idWindow, ULONG flStyle), (hwndParent, hwndOwner, pszText, pszCaption, idWindow, flStyle));
343DeclWinFunc_CACHE(ULONG, MessageBox2,
344 (HWND hwndParent, HWND hwndOwner, PCSZ pszText,
345 PCSZ pszCaption, ULONG idWindow, PMB2INFO pmb2info),
346 (hwndParent, hwndOwner, pszText, pszCaption, idWindow, pmb2info));
347DeclWinFunc_CACHE(HPOINTER, LoadPointer,
348 (HWND hwndDesktop, HMODULE hmod, ULONG idres),
349 (hwndDesktop, hmod, idres));
350DeclWinFunc_CACHE(HPOINTER, QuerySysPointer,
351 (HWND hwndDesktop, LONG lId, BOOL fCopy),
352 (hwndDesktop, lId, fCopy));
353DeclWinFunc_CACHE(BOOL, Alarm, (HWND hwndDesktop, ULONG rgfType), (hwndDesktop, rgfType));
354DeclWinFunc_CACHE(BOOL, FlashWindow, (HWND hwndFrame, BOOL fFlash), (hwndFrame, fFlash));
355
356
357/* These functions do not croak on error */
358DeclWinFunc_CACHE_survive(BOOL, SetClipbrdData,
359 (HAB hab, ULONG ulData, ULONG fmt, ULONG rgfFmtInfo),
360 (hab, ulData, fmt, rgfFmtInfo));
361
362#define get_InvalidateRect InvalidateRect
363#define get_CreateFrameControls CreateFrameControls
30500b05 364
365/* These functions may return 0 on success; check $^E/Perl_rc on res==0: */
366DeclWinFunc_CACHE_resetError(PVOID, QueryWindowPtr, (HWND hwnd, LONG index),
367 (hwnd, index))
368DeclWinFunc_CACHE_resetError(ULONG, QueryWindowULong, (HWND hwnd, LONG index),
369 (hwnd, index))
370DeclWinFunc_CACHE_resetError(SHORT, QueryWindowUShort, (HWND hwnd, LONG index),
371 (hwnd, index))
372DeclWinFunc_CACHE_resetError(LONG, QueryWindowTextLength, (HWND hwnd), (hwnd))
373DeclWinFunc_CACHE_resetError(HWND, QueryActiveWindow, (HWND hwnd), (hwnd))
374DeclWinFunc_CACHE_resetError(BOOL, PostMsg,
375 (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2),
376 (hwnd, msg, mp1, mp2))
377DeclWinFunc_CACHE_resetError(HWND, GetNextWindow, (HENUM henum), (henum))
378DeclWinFunc_CACHE_resetError(BOOL, IsWindowEnabled, (HWND hwnd), (hwnd))
379DeclWinFunc_CACHE_resetError(BOOL, IsWindowVisible, (HWND hwnd), (hwnd))
380DeclWinFunc_CACHE_resetError(BOOL, IsWindowShowing, (HWND hwnd), (hwnd))
381
382/* No die()ing on error */
383DeclWinFunc_CACHE_survive(BOOL, IsWindow, (HAB hab, HWND hwnd), (hab, hwnd))
384
385/* These functions are called frow complicated wrappers: */
35bc1fdc 386ULONG (*pWinQuerySwitchList) (HAB hab, PSWBLOCK pswblk, ULONG usDataLength);
387ULONG (*pWinChangeSwitchEntry) (HSWITCH hsw, __const__ SWCNTRL *pswctl);
35bc1fdc 388HWND (*pWinWindowFromPoint)(HWND hwnd, __const__ POINTL *pptl, BOOL fChildren);
389
30500b05 390
391/* These functions have different names/signatures than what is
392 declared above */
393#define QueryFocusWindow QueryFocus
394#define FocusWindow_set(hwndFocus, hwndDesktop) SetFocus(hwndDesktop, hwndFocus)
395#define WindowPos_set(hwnd, x, y, fl, cx, cy, hwndInsertBehind) \
396 SetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy, fl)
397#define myWinQueryWindowPtr(hwnd, i) ((ULONG)QueryWindowPtr(hwnd, i))
622913ab 398#define _ClipbrdData_set SetClipbrdData
399#define ClipbrdOwner_set SetClipbrdOwner
400#define ClipbrdViewer_set SetClipbrdViewer
35bc1fdc 401
402int
403WindowText_set(HWND hwnd, char* text)
404{
405 return !CheckWinError(myWinSetWindowText(hwnd, text));
406}
407
35bc1fdc 408SV *
30500b05 409myQueryWindowText(HWND hwnd)
35bc1fdc 410{
30500b05 411 LONG l = QueryWindowTextLength(hwnd), len;
412 SV *sv;
35bc1fdc 413 STRLEN n_a;
414
30500b05 415 if (l == 0) {
416 if (Perl_rc) /* Last error */
417 return &PL_sv_undef;
418 return &PL_sv_no;
419 }
420 sv = newSVpvn("", 0);
35bc1fdc 421 SvGROW(sv, l + 1);
622913ab 422 len = QueryWindowText(hwnd, l + 1, SvPV_force(sv, n_a));
30500b05 423 if (len != l) {
424 Safefree(sv);
425 croak("WinQueryWindowText() uncompatible with WinQueryWindowTextLength()");
426 }
35bc1fdc 427 SvCUR_set(sv, l);
428 return sv;
429}
430
431SWP
432QueryWindowSWP_(HWND hwnd)
433{
434 SWP swp;
435
30500b05 436 if (!QueryWindowPos(hwnd, &swp))
35bc1fdc 437 croak("WinQueryWindowPos() error");
438 return swp;
439}
440
441SV *
442QueryWindowSWP(HWND hwnd)
443{
444 SWP swp = QueryWindowSWP_(hwnd);
445
446 return newSVpvn((char*)&swp, sizeof(swp));
447}
448
449SV *
30500b05 450myQueryClassName(HWND hwnd)
35bc1fdc 451{
452 SV *sv = newSVpvn("",0);
453 STRLEN l = 46, len = 0, n_a;
454
35bc1fdc 455 while (l + 1 >= len) {
456 if (len)
457 len = 2*len + 10; /* Grow quick */
458 else
459 len = l + 2;
460 SvGROW(sv, len);
30500b05 461 l = QueryClassName(hwnd, len, SvPV_force(sv, n_a));
35bc1fdc 462 }
30500b05 463 SvCUR_set(sv, l);
35bc1fdc 464 return sv;
465}
466
467HWND
35bc1fdc 468WindowFromPoint(long x, long y, HWND hwnd, BOOL fChildren)
469{
470 POINTL ppl;
471
472 ppl.x = x; ppl.y = y;
473 if (!pWinWindowFromPoint)
474 AssignFuncPByORD(pWinWindowFromPoint, ORD_WinWindowFromPoint);
475 return SaveWinError(pWinWindowFromPoint(hwnd, &ppl, fChildren));
476}
477
622913ab 478static HSWITCH
479switch_of(HWND hwnd, PID pid)
7f61b687 480{
7f61b687 481 HSWITCH hSwitch;
7f61b687 482
483 if (!(_emx_env & 0x200))
484 croak("switch_entry not implemented on DOS"); /* not OS/2. */
7f61b687 485 if (CheckWinError(hSwitch =
35bc1fdc 486 myWinQuerySwitchHandle(hwnd, pid)))
622913ab 487 croak_with_os2error("WinQuerySwitchHandle");
488 return hSwitch;
489}
490
491
492static void
493fill_swentry(SWENTRY *swentryp, HWND hwnd, PID pid)
494{
495 int rc;
496 HSWITCH hSwitch = switch_of(hwnd, pid);
497
35bc1fdc 498 swentryp->hswitch = hSwitch;
499 if (CheckOSError(myWinQuerySwitchEntry(hSwitch, &swentryp->swctl)))
622913ab 500 croak_with_os2error("WinQuerySwitchEntry");
7f61b687 501}
502
35bc1fdc 503static void
504fill_swentry_default(SWENTRY *swentryp)
505{
506 fill_swentry(swentryp, NULLHANDLE, getpid());
507}
508
622913ab 509static SV*
510myWinQueryActiveDesktopPathname()
511{
512 SV *buf = newSVpv("",0);
513 STRLEN n_a;
514
515 SvGROW(buf, MAXPATHLEN);
516 QueryActiveDesktopPathname(SvPV(buf,n_a), MAXPATHLEN);
517 SvCUR_set(buf, strlen(SvPV(buf, n_a)));
518 return buf;
519}
520
521SV *
522myWinQueryAtomName(ATOM atom, HATOMTBL hAtomTbl)
523{
524 ULONG len = QueryAtomLength(hAtomTbl, atom);
525 SV *sv = newSVpvn("",0);
526 STRLEN n_a;
527
528 SvGROW(sv, len + 1);
529 QueryAtomName(hAtomTbl, atom, SvPV(sv, n_a), len);
530 SvCUR_set(sv, len);
531 *SvEND(sv) = 0;
532 return sv;
533}
534
535#define myWinQueryClipbrdFmtInfo QueryClipbrdFmtInfo
536
537/* Put data into shared memory, then call SetClipbrdData */
538void
539ClipbrdData_set(SV *sv, int convert_nl, unsigned long fmt, unsigned long rgfFmtInfo, HAB hab)
540{
541 STRLEN len;
542 char *buf = SvPV_force(sv, len);
543 char *pByte = 0, *s = buf, c;
544 ULONG nls = 0, rc;
545
546 if (convert_nl) {
547 while ((c = *s++)) {
548 if (c == '\r' && *s == '\n')
549 s++;
550 else if (c == '\n')
551 nls++;
552 }
553 }
554
555 if (CheckOSError(DosAllocSharedMem((PPVOID)&pByte, 0, len + nls + 1,
556 PAG_WRITE | PAG_COMMIT | OBJ_GIVEABLE | OBJ_GETTABLE)))
557 croak_with_os2error("ClipbrdData_set: DosAllocSharedMem error");
558
559 if (!nls)
560 memcpy(pByte, buf, len + 1);
561 else {
562 char *t = pByte, *e = buf + len;
563
564 while (buf < e) {
565 c = *t++ = *buf++;
566 if (c == '\n' && (t == pByte + 1 || t[-2] != '\r'))
567 t[-1] = '\r', *t++ = '\n';
568 }
569 }
570
571 if (!SetClipbrdData(hab, (ULONG)pByte, fmt, rgfFmtInfo)) {
572 DosFreeMem((PPVOID)&pByte);
573 croak_with_os2error("ClipbrdData_set: WinSetClipbrdData error");
574 }
575}
576
577#if 0
578
579ULONG
580myWinMessageBox(HWND hwndParent, HWND hwndOwner, PCSZ pszText, PCSZ pszCaption, ULONG idWindow, ULONG flStyle)
581{
582 ULONG rc = MessageBox(hwndParent, hwndOwner, pszText, pszCaption,
583 idWindow, flStyle);
584
585 if (rc == MBID_ERROR)
586 rc = 0;
587 if (CheckWinError(rc))
588 croak_with_os2error("MessageBox");
589 return rc;
590}
591
592ULONG
593myWinMessageBox2(HWND hwndParent, HWND hwndOwner, PCSZ pszText,
594 PCSZ pszCaption, ULONG idWindow, PMB2INFO pmb2info)
595{
596 ULONG rc = MessageBox2(hwndParent, hwndOwner, pszText, pszCaption, idWindow, pmb2info);
597
598 if (rc == MBID_ERROR)
599 rc = 0;
600 if (CheckWinError(rc))
601 croak_with_os2error("MessageBox2");
602 return rc;
603}
604#endif
605
7f61b687 606/* static ULONG (* APIENTRY16 pDosSmSetTitle)(ULONG, PSZ); */
607ULONG _THUNK_FUNCTION(DosSmSetTitle)(ULONG, PSZ);
608
609#if 0 /* Does not work. */
610static ULONG (*pDosSmSetTitle)(ULONG, PSZ);
611
612static void
35bc1fdc 613sesmgr_title_set(char *s)
7f61b687 614{
35bc1fdc 615 SWENTRY swentry;
7f61b687 616 static HMODULE hdosc = 0;
617 BYTE buf[20];
618 long rc;
619
35bc1fdc 620 fill_swentry_default(&swentry);
7f61b687 621 if (!pDosSmSetTitle || !hdosc) {
622 if (CheckOSError(DosLoadModule(buf, sizeof buf, "sesmgr", &hdosc)))
623 croak("Cannot load SESMGR: no `%s'", buf);
624 if (CheckOSError(DosQueryProcAddr(hdosc, 0, "DOSSMSETTITLE",
625 (PFN*)&pDosSmSetTitle)))
626 croak("Cannot load SESMGR.DOSSMSETTITLE, err=%ld", rc);
627 }
628/* (pDosSmSetTitle)(swcntrl.idSession,s); */
629 rc = ((USHORT)
630 (_THUNK_PROLOG (2+4);
631 _THUNK_SHORT (swcntrl.idSession);
632 _THUNK_FLAT (s);
633 _THUNK_CALLI (*pDosSmSetTitle)));
634 if (CheckOSError(rc))
635 warn("*DOSSMSETTITLE: err=%ld, ses=%ld, addr=%x, *paddr=%x",
636 rc, swcntrl.idSession, &_THUNK_FUNCTION(DosSmSetTitle),
637 pDosSmSetTitle);
638}
639
640#else /* !0 */
641
642static bool
35bc1fdc 643sesmgr_title_set(char *s)
7f61b687 644{
35bc1fdc 645 SWENTRY swentry;
7f61b687 646 long rc;
647
35bc1fdc 648 fill_swentry_default(&swentry);
7f61b687 649 rc = ((USHORT)
650 (_THUNK_PROLOG (2+4);
35bc1fdc 651 _THUNK_SHORT (swentry.swctl.idSession);
7f61b687 652 _THUNK_FLAT (s);
653 _THUNK_CALL (DosSmSetTitle)));
654#if 0
655 if (CheckOSError(rc))
656 warn("DOSSMSETTITLE: err=%ld, ses=%ld, addr=%x",
657 rc, swcntrl.idSession, _THUNK_FUNCTION(DosSmSetTitle));
658#endif
659 return !CheckOSError(rc);
660}
661#endif /* !0 */
662
663#if 0 /* Does not work. */
664USHORT _THUNK_FUNCTION(Win16SetTitle) ();
665
666static void
667set_title2(char *s)
668{
669 long rc;
670
671 rc = ((USHORT)
672 (_THUNK_PROLOG (4);
673 _THUNK_FLAT (s);
674 _THUNK_CALL (Win16SetTitle)));
675 if (CheckWinError(rc))
676 warn("Win16SetTitle: err=%ld", rc);
677}
678#endif
760ac839 679
35bc1fdc 680SV *
622913ab 681process_swentry(unsigned long pid, HWND hwnd)
35bc1fdc 682{
683 SWENTRY swentry;
684
685 if (!(_emx_env & 0x200))
686 croak("process_swentry not implemented on DOS"); /* not OS/2. */
687 fill_swentry(&swentry, hwnd, pid);
688 return newSVpvn((char*)&swentry, sizeof(swentry));
689}
690
691SV *
692swentries_list()
693{
694 int num, n = 0;
695 STRLEN n_a;
696 PSWBLOCK pswblk;
697 SV *sv = newSVpvn("",0);
698
699 if (!(_emx_env & 0x200))
700 croak("swentries_list not implemented on DOS"); /* not OS/2. */
701 if (!pWinQuerySwitchList)
702 AssignFuncPByORD(pWinQuerySwitchList, ORD_WinQuerySwitchList);
703 num = pWinQuerySwitchList(0, NULL, 0); /* HAB is not required */
704 if (!num)
705 croak("(Unknown) error during WinQuerySwitchList()");
706 /* Allow one extra entry to allow overflow detection (may happen
707 if the list has been changed). */
708 while (num > n) {
709 if (n == 0)
710 n = num + 1;
711 else
712 n = 2*num + 10; /* Enlarge quickly */
713 SvGROW(sv, sizeof(ULONG) + sizeof(SWENTRY) * n + 1);
714 pswblk = (PSWBLOCK) SvPV_force(sv, n_a);
715 num = pWinQuerySwitchList(0, pswblk, SvLEN(sv));
716 }
717 SvCUR_set(sv, sizeof(ULONG) + sizeof(SWENTRY) * num);
718 *SvEND(sv) = 0;
719 return sv;
720}
721
722SWENTRY
723swentry( char *title, HWND sw_hwnd, HWND icon_hwnd, HPROGRAM owner_phandle,
724 PID owner_pid, ULONG owner_sid, ULONG visible, ULONG nonswitchable,
725 ULONG jumpable, ULONG ptype, HSWITCH sw_entry)
726{
727 SWENTRY e;
728
729 strncpy(e.swctl.szSwtitle, title, MAXNAMEL);
730 e.swctl.szSwtitle[60] = 0;
731 e.swctl.hwnd = sw_hwnd;
732 e.swctl.hwndIcon = icon_hwnd;
733 e.swctl.hprog = owner_phandle;
734 e.swctl.idProcess = owner_pid;
735 e.swctl.idSession = owner_sid;
736 e.swctl.uchVisibility = ((visible ? SWL_VISIBLE : SWL_INVISIBLE)
737 | (nonswitchable ? SWL_GRAYED : 0));
738 e.swctl.fbJump = (jumpable ? SWL_JUMPABLE : 0);
739 e.swctl.bProgType = ptype;
740 e.hswitch = sw_entry;
741 return e;
742}
743
744SV *
745create_swentry( char *title, HWND owner_hwnd, HWND icon_hwnd, HPROGRAM owner_phandle,
746 PID owner_pid, ULONG owner_sid, ULONG visible, ULONG nonswitchable,
747 ULONG jumpable, ULONG ptype, HSWITCH sw_entry)
748{
749 SWENTRY e = swentry(title, owner_hwnd, icon_hwnd, owner_phandle, owner_pid,
750 owner_sid, visible, nonswitchable, jumpable, ptype,
751 sw_entry);
752
753 return newSVpvn((char*)&e, sizeof(e));
754}
755
756int
757change_swentrysw(SWENTRY *sw)
758{
759 ULONG rc; /* For CheckOSError */
760
761 if (!(_emx_env & 0x200))
762 croak("change_entry() not implemented on DOS"); /* not OS/2. */
763 if (!pWinChangeSwitchEntry)
764 AssignFuncPByORD(pWinChangeSwitchEntry, ORD_WinChangeSwitchEntry);
765 return !CheckOSError(pWinChangeSwitchEntry(sw->hswitch, &sw->swctl));
766}
767
768int
769change_swentry(SV *sv)
770{
771 STRLEN l;
772 PSWENTRY pswentry = (PSWENTRY)SvPV(sv, l);
773
774 if (l != sizeof(SWENTRY))
775 croak("Wrong structure size %ld!=%ld in change_swentry()", (long)l, (long)sizeof(SWENTRY));
776 return change_swentrysw(pswentry);
777}
778
779
780#define swentry_size() (sizeof(SWENTRY))
781
782void
783getscrsize(int *wp, int *hp)
784{
785 int i[2];
786
787 _scrsize(i);
788 *wp = i[0];
789 *hp = i[1];
790}
791
792/* Force vio to not cross 64K-boundary: */
793#define VIO_FROM_VIOB \
794 vio = viob; \
795 if (!_THUNK_PTR_STRUCT_OK(vio)) \
796 vio++
797
798bool
799scrsize_set(int w, int h)
800{
801 VIOMODEINFO viob[2], *vio;
802 ULONG rc;
803
804 VIO_FROM_VIOB;
805
806 if (h == -9999)
807 h = w, w = 0;
808 vio->cb = sizeof(*vio);
809 if (CheckOSError(VioGetMode( vio, 0 )))
810 return 0;
811
812 if( w > 0 )
813 vio->col = (USHORT)w;
814
815 if( h > 0 )
816 vio->row = (USHORT)h;
817
818 vio->cb = 8;
819 if (CheckOSError(VioSetMode( vio, 0 )))
820 return 0;
821 return 1;
822}
823
824void
825cursor(int *sp, int *ep, int *wp, int *ap)
826{
827 VIOCURSORINFO viob[2], *vio;
828 ULONG rc;
829
830 VIO_FROM_VIOB;
831
832 if (CheckOSError(VioGetCurType( vio, 0 )))
622913ab 833 croak_with_os2error("VioGetCurType() error");
35bc1fdc 834
835 *sp = vio->yStart;
836 *ep = vio->cEnd;
837 *wp = vio->cx;
838 *ep = vio->attr;
839}
840
841bool
842cursor__(int is_a)
843{
844 int s,e,w,a;
845
846 cursor(&s, &e, &w, &a);
847 if (is_a)
848 return a;
849 else
850 return w;
851}
852
853bool
854cursor_set(int s, int e, int w, int a)
855{
856 VIOCURSORINFO viob[2], *vio;
857 ULONG rc;
858
859 VIO_FROM_VIOB;
860
861 vio->yStart = s;
862 vio->cEnd = e;
863 vio->cx = w;
864 vio->attr = a;
865 return !CheckOSError(VioSetCurType( vio, 0 ));
866}
867
868static int
869bufsize(void)
870{
871#if 1
872 VIOMODEINFO viob[2], *vio;
873 ULONG rc;
874
875 VIO_FROM_VIOB;
876
877 vio->cb = sizeof(*vio);
878 if (CheckOSError(VioGetMode( vio, 0 )))
622913ab 879 croak_with_os2error("Can't get size of buffer for screen");
35bc1fdc 880#if 0 /* buf=323552247, full=1118455, partial=0 */
881 croak("Lengths: buf=%d, full=%d, partial=%d",vio->buf_length,vio->full_length,vio->partial_length);
882 return newSVpvn((char*)vio->buf_addr, vio->full_length);
883#endif
884 return vio->col * vio->row * 2; /* How to get bytes/cell? 2 or 4? */
885#else /* 0 */
886 int i[2];
887
888 _scrsize(i);
889 return i[0]*i[1]*2;
890#endif /* 0 */
891}
0c8b5171 892
893SV*
894_kbdChar(unsigned int nowait, int handle)
895{
896 KBDKEYINFO viob[2], *vio;
897 ULONG rc;
898
899 VIO_FROM_VIOB;
900
901 if (nowait > 2)
902 croak("unexpected nowait");
903 if (CheckOSError(nowait == 2
904 ? KbdPeek( vio, handle )
905 : KbdCharIn( vio, nowait == 1, handle )))
906 croak_with_os2error("Can't _kbdChar");
907 return newSVpvn((char*)vio, sizeof(*vio));
908}
909
910SV*
911_kbdStatus(int handle)
912{
913 KBDINFO viob[2], *vio;
914 ULONG rc;
915
916 VIO_FROM_VIOB;
917
918 vio->cb = sizeof(*vio);
919 if (CheckOSError(KbdGetStatus( vio, handle )))
920 croak_with_os2error("Can't _kbdStatus");
921 return newSVpvn((char*)vio, sizeof(*vio));
922}
923
924void
925_kbdStatus_set(SV* sv, int handle)
926{
927 KBDINFO viob[2], *vio;
928 ULONG rc;
929 STRLEN l;
930 char *s = SvPV(sv, l);
931
932 VIO_FROM_VIOB;
933
934 if (l != sizeof(*vio))
935 croak("unexpected datasize");
936 Copy((KBDINFO*)s, vio, 1, KBDINFO);
937 if (vio->cb != sizeof(*vio))
938 croak("unexpected datasize");
939 if (CheckOSError(KbdSetStatus( vio, handle )))
940 croak_with_os2error("Can't kbdStatus_set()");
941}
942
943SV*
944_vioConfig(int which, int handle)
945{
946 struct {VIOCONFIGINFO i; short a[20];} viob[2], *vio;
947 ULONG rc;
948
949 VIO_FROM_VIOB;
950
951 vio->i.cb = 2;
952 if (CheckOSError(VioGetConfig( which, &vio->i, handle )))
953 croak_with_os2error("Can't get VIO config size");
954 if (vio->i.cb > sizeof(*vio))
955 vio->i.cb = sizeof(*vio);
956 if (CheckOSError(VioGetConfig( which, &vio->i, handle )))
957 croak_with_os2error("Can't get VIO config");
958 return newSVpvn((char*)vio, vio->i.cb);
959}
960
961SV*
962_vioMode(void)
963{
964 VIOMODEINFO viob[2], *vio;
965 ULONG rc;
966
967 VIO_FROM_VIOB;
968
969 vio->cb = sizeof(*vio);
970 if (CheckOSError(VioGetMode( vio, 0 )))
971 croak_with_os2error("Can't get VIO mode");
972 return newSVpvn((char*)vio, sizeof(*vio));
973}
974
975void
976_vioMode_set(SV* sv)
977{
978 VIOMODEINFO viob[2], *vio;
979 ULONG rc;
980 STRLEN l;
981 char *s = SvPV(sv, l);
982
983 VIO_FROM_VIOB;
984
985 Copy((VIOMODEINFO*)s, vio, 1, VIOMODEINFO);
986 if (vio->cb != sizeof(*vio) || l != vio->cb)
987 croak("unexpected datasize");
988 if (CheckOSError(VioSetMode( vio, 0 )))
989 croak_with_os2error("Can't set VIO mode");
990}
991
992SV*
993vioFont(int type, int *w, int *h) /* 0 for actual RAM font, 1 for ROM font */
994{
995 VIOFONTINFO viob[2], *vio;
996 ULONG rc;
997 UCHAR b[1<<17];
998 UCHAR *buf = b;
999 SV *sv;
1000
1001 VIO_FROM_VIOB;
1002
1003 /* Should not cross 64K boundaries too: */
1004 if (((ULONG)buf) & 0xFFFF)
1005 buf += 0x10000 - (((ULONG)buf) & 0xFFFF);
1006
1007 vio->cb = sizeof(*vio);
1008 vio->type = type; /* BIOS or the loaded font. */
1009 vio->cbData = 0xFFFF; /* How large is my buffer? */
1010 vio->pbData = _emx_32to16(buf); /* Wants an 16:16 pointer */
1011 if (CheckOSError(VioGetFont( vio, 0 )))
1012 croak_with_os2error("Can't get VIO font");
1013 *w = vio->cxCell;
1014 *h = vio->cyCell;
1015 return newSVpvn(buf,vio->cbData);
1016}
1017
1018void
1019vioFont_set(SV *sv, int cellwidth, int cellheight, int type)
1020{
1021 VIOFONTINFO viob[2], *vio;
1022 ULONG rc;
1023 UCHAR b[1<<17];
1024 UCHAR *buf = b;
1025 STRLEN l;
1026 char *s = SvPV(sv, l);
1027
1028 VIO_FROM_VIOB;
1029
1030 /* Should not cross 64K boundaries too: */
1031 if (((ULONG)buf) & 0xFFFF)
1032 buf += 0x10000 - (((ULONG)buf) & 0xFFFF);
1033
1034 if (l > 0xFFFF)
1035 croak("length overflow of VIO font");
1036 if (l != (cellwidth + 7)/8 * cellheight * 256)
1037 warn("unexpected length of VIO font");
1038 vio->cb = sizeof(*vio);
1039 vio->type = type; /* BIOS or the loaded font. */
1040 vio->cbData = l; /* How large is my buffer? */
1041 vio->pbData = _emx_32to16(buf); /* Wants an 16:16 pointer */
1042 vio->cxCell = cellwidth;
1043 vio->cyCell = cellheight;
1044 Copy(s, buf, l, char);
1045
1046 if (CheckOSError(VioSetFont( vio, 0 )))
1047 croak_with_os2error("Can't set VIO font");
1048}
1049
1050/*
1051 uses use32,os2def,os2base,crt,defs;
1052 var Plt :Plt256;
1053 const Pal :VioPalState=(Cb:sizeof(VioPalState);rType:0;iFirst:0;
1054 Acolor:($FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF));
1055 CReg:VioColorReg=(Cb:sizeof(VioColorReg);rType:3;FirstColorReg:0;
1056 NumColorRegs:256; ColorRegAddr:@Plt);
1057 var ii:Pointer;
1058 begin
1059 VioGetState(Pal,0);
1060 Pal.Acolor[09]:=$0F;
1061 Pal.Acolor[10]:=$A;
1062 Pal.Acolor[13]:=$2F;
1063 VioSetState(Pal,0); // ce smena EGA registrov
1064 asm
1065 lea eax,Plt
1066 call DosFlatToSel
1067 mov ii,eax
1068 end;
1069 CReg.ColorRegAddr:=ii;
1070 VioGetState(CReg,0);
1071 Plt[10,0]:=$00;
1072 Plt[10,1]:=$32;
1073 Plt[10,2]:=$2A;
1074 VioSetState(CReg,0); // a ce - VGA registrov
1075 end.
1076*/
1077
1078typedef union {
1079 VIOPALSTATE pal;
1080 struct { VIOPALSTATE pal; USHORT a[15]; } pal_padded;
1081 VIOOVERSCAN overscan;
1082 VIOINTENSITY intensity;
1083 VIOCOLORREG colorreg;
1084 struct { VIOCOLORREG reg; char rgb[3*256]; } colorreg_padded;
1085 VIOSETULINELOC lineloc;
1086 VIOSETTARGET target;
1087} my_VIOSTATE;
1088
1089int
1090vio_state_size(int what)
1091{
1092 static const char sizes[] = {
1093 sizeof(VIOPALSTATE),
1094 sizeof(VIOOVERSCAN),
1095 sizeof(VIOINTENSITY),
1096 sizeof(VIOCOLORREG),
1097 6, /* Random number: Reserved entry */
1098 sizeof(VIOSETULINELOC),
1099 sizeof(VIOSETTARGET)
1100 };
1101 if (what < 0 || what >= sizeof(sizes))
1102 croak("Unexpected VIO state type");
1103 return sizes[what];
1104}
1105
1106SV*
1107_vioState(int what, int first, int count)
1108{
1109 my_VIOSTATE viob[2], *vio;
1110 ULONG rc, size = vio_state_size(what);
1111
1112 VIO_FROM_VIOB;
1113
1114 vio->pal.cb = size;
1115 vio->pal.type = what;
1116 if (what == 0) {
1117 vio->pal.iFirst = first;
1118 if (first < 0 || first >= 16)
1119 croak("unexpected palette start value");
1120 if (count < 0 || count > 16)
1121 croak("unexpected palette count");
1122 vio->pal.cb = (size += (count - 1) * sizeof(short));
1123 } else if (what == 3) {
1124 /* Wants an 16:16 pointer */
1125 if (count < 0 || count > 256)
1126 croak("unexpected palette count");
1127 vio->colorreg.colorregaddr = (PCH)_emx_32to16(vio->colorreg_padded.rgb);
1128 vio->colorreg.numcolorregs = count; /* 256 is max */
1129 vio->colorreg.firstcolorreg = first;
1130 size += 3 * count;
1131 }
1132 if (CheckOSError(VioGetState( (void*)vio, 0 )))
1133 croak_with_os2error("Can't get VIO state");
1134 return newSVpvn((char*)vio, size);
1135}
1136
1137void
1138_vioState_set(SV *sv)
1139{
1140 my_VIOSTATE viob[2], *ovio = (my_VIOSTATE*)SvPV_nolen(sv), *vio = ovio;
1141 int what = ovio->pal.type, cb = ovio->pal.cb;
1142 ULONG rc, size = vio_state_size(what);
1143 STRLEN l;
1144 char *s = SvPV(sv, l);
1145
1146 VIO_FROM_VIOB;
1147
1148 switch (what) {
1149 case 0:
1150 if ( cb < size || cb > size + 15*sizeof(SHORT) || l != cb)
1151 croak("unexpected datasize");
1152 size = l;
1153 break;
1154 case 3:
1155 if (l != cb + 3 * ovio->colorreg.numcolorregs || cb != size)
1156 croak("unexpected datasize");
1157 size = l;
1158 break;
1159 default:
1160 if (l != cb || l != size )
1161 croak("unexpected datasize");
1162 break;
1163 }
1164 Copy(s, (char*)vio, size, char);
1165 if (what == 3) /* We expect colors put after VIOCOLORREG */
1166 vio->colorreg.colorregaddr = (PCH)_emx_32to16(vio->colorreg_padded.rgb);
1167
1168 if (CheckOSError(VioSetState( (void*)vio, 0 )))
1169 croak_with_os2error("Can't set VIO state");
1170}
1171
35bc1fdc 1172SV *
1173screen(void)
1174{
1175 ULONG rc;
1176 USHORT bufl = bufsize();
1177 char b[(1<<16) * 3]; /* This/3 is enough for 16-bit calls, we need
1178 2x overhead due to 2 vs 4 issue, and extra
1179 64K due to alignment logic */
1180 char *buf = b;
1181
1182 if (((ULONG)buf) & 0xFFFF)
1183 buf += 0x10000 - (((ULONG)buf) & 0xFFFF);
1184 if ((sizeof(b) - (buf - b)) < 2*bufl)
1185 croak("panic: VIO buffer allocation");
1186 if (CheckOSError(VioReadCellStr( buf, &bufl, 0, 0, 0 )))
1187 return &PL_sv_undef;
1188 return newSVpvn(buf,bufl);
1189}
1190
1191bool
1192screen_set(SV *sv)
1193{
1194 ULONG rc;
1195 STRLEN l = SvCUR(sv), bufl = bufsize();
1196 char b[(1<<16) * 2]; /* This/2 is enough for 16-bit calls, we need
1197 extra 64K due to alignment logic */
1198 char *buf = b;
1199
1200 if (((ULONG)buf) & 0xFFFF)
1201 buf += 0x10000 - (((ULONG)buf) & 0xFFFF);
1202 if (!SvPOK(sv) || ((l != bufl) && (l != 2*bufl)))
1203 croak("Wrong size %d of saved screen data", SvCUR(sv));
1204 if ((sizeof(b) - (buf - b)) < l)
1205 croak("panic: VIO buffer allocation");
1206 Copy(SvPV(sv,l), buf, bufl, char);
1207 if (CheckOSError(VioWrtCellStr( buf, bufl, 0, 0, 0 )))
1208 return 0;
1209 return 1;
1210}
1211
1212int
1213process_codepages()
1214{
1215 ULONG cps[4], cp, rc;
1216
1217 if (CheckOSError(DosQueryCp( sizeof(cps), cps, &cp )))
622913ab 1218 croak_with_os2error("DosQueryCp()");
35bc1fdc 1219 return cp;
1220}
1221
1222int
1223out_codepage()
1224{
1225 USHORT cp, rc;
1226
1227 if (CheckOSError(VioGetCp( 0, &cp, 0 )))
622913ab 1228 croak_with_os2error("VioGetCp()");
35bc1fdc 1229 return cp;
1230}
1231
1232bool
1233out_codepage_set(int cp)
1234{
1235 USHORT rc;
1236
1237 return !(CheckOSError(VioSetCp( 0, cp, 0 )));
1238}
1239
1240int
1241in_codepage()
1242{
1243 USHORT cp, rc;
1244
1245 if (CheckOSError(KbdGetCp( 0, &cp, 0 )))
622913ab 1246 croak_with_os2error("KbdGetCp()");
35bc1fdc 1247 return cp;
1248}
1249
1250bool
1251in_codepage_set(int cp)
1252{
1253 USHORT rc;
1254
1255 return !(CheckOSError(KbdSetCp( 0, cp, 0 )));
1256}
1257
1258bool
1259process_codepage_set(int cp)
1260{
1261 USHORT rc;
1262
1263 return !(CheckOSError(DosSetProcessCp( cp )));
1264}
1265
1266int
1267ppidOf(int pid)
1268{
1269 PQTOPLEVEL psi;
1270 int ppid;
1271
1272 if (!pid)
1273 return -1;
1274 psi = get_sysinfo(pid, QSS_PROCESS);
1275 if (!psi)
1276 return -1;
1277 ppid = psi->procdata->ppid;
1278 Safefree(psi);
1279 return ppid;
1280}
1281
1282int
1283sidOf(int pid)
1284{
1285 PQTOPLEVEL psi;
1286 int sid;
1287
1288 if (!pid)
1289 return -1;
1290 psi = get_sysinfo(pid, QSS_PROCESS);
1291 if (!psi)
1292 return -1;
1293 sid = psi->procdata->sessid;
1294 Safefree(psi);
1295 return sid;
1296}
1297
30500b05 1298#define ulMPFROMSHORT(i) ((unsigned long)MPFROMSHORT(i))
1299#define ulMPVOID() ((unsigned long)MPVOID)
1300#define ulMPFROMCHAR(i) ((unsigned long)MPFROMCHAR(i))
1301#define ulMPFROM2SHORT(x1,x2) ((unsigned long)MPFROM2SHORT(x1,x2))
1302#define ulMPFROMSH2CH(s, c1, c2) ((unsigned long)MPFROMSH2CH(s, c1, c2))
1303#define ulMPFROMLONG(x) ((unsigned long)MPFROMLONG(x))
1304
622913ab 1305#define _MessageBox MessageBox
1306#define _MessageBox2 MessageBox2
1307
760ac839 1308MODULE = OS2::Process PACKAGE = OS2::Process
1309
30500b05 1310PROTOTYPES: ENABLE
760ac839 1311
1312unsigned long
1313constant(name,arg)
1314 char * name
1315 int arg
1316
7f61b687 1317char *
1318my_type()
1319
1320U32
1321file_type(path)
1322 char *path
1323
35bc1fdc 1324SV *
1325swentry_expand( SV *sv )
7f61b687 1326 PPCODE:
1327 {
35bc1fdc 1328 STRLEN l;
1329 PSWENTRY pswentry = (PSWENTRY)SvPV(sv, l);
1330
1331 if (l != sizeof(SWENTRY))
1332 croak("Wrong structure size %ld!=%ld in swentry_expand()", (long)l, (long)sizeof(SWENTRY));
1333 EXTEND(sp,11);
1334 PUSHs(sv_2mortal(newSVpv(pswentry->swctl.szSwtitle, 0)));
1335 PUSHs(sv_2mortal(newSVnv(pswentry->swctl.hwnd)));
1336 PUSHs(sv_2mortal(newSVnv(pswentry->swctl.hwndIcon)));
1337 PUSHs(sv_2mortal(newSViv(pswentry->swctl.hprog)));
1338 PUSHs(sv_2mortal(newSViv(pswentry->swctl.idProcess)));
1339 PUSHs(sv_2mortal(newSViv(pswentry->swctl.idSession)));
1340 PUSHs(sv_2mortal(newSViv(pswentry->swctl.uchVisibility & SWL_VISIBLE)));
1341 PUSHs(sv_2mortal(newSViv(pswentry->swctl.uchVisibility & SWL_GRAYED)));
1342 PUSHs(sv_2mortal(newSViv(pswentry->swctl.fbJump == SWL_JUMPABLE)));
1343 PUSHs(sv_2mortal(newSViv(pswentry->swctl.bProgType)));
1344 PUSHs(sv_2mortal(newSViv(pswentry->hswitch)));
7f61b687 1345 }
1346
35bc1fdc 1347SV *
1348create_swentry( char *title, unsigned long sw_hwnd, unsigned long icon_hwnd, unsigned long owner_phandle, unsigned long owner_pid, unsigned long owner_sid, unsigned long visible, unsigned long switchable, unsigned long jumpable, unsigned long ptype, unsigned long sw_entry)
30500b05 1349PROTOTYPE: DISABLE
35bc1fdc 1350
1351int
1352change_swentry( SV *sv )
1353
7f61b687 1354bool
35bc1fdc 1355sesmgr_title_set(s)
7f61b687 1356 char *s
35bc1fdc 1357
1358SV *
622913ab 1359process_swentry(unsigned long pid = getpid(), HWND hwnd = NULLHANDLE);
30500b05 1360 PROTOTYPE: DISABLE
35bc1fdc 1361
1362int
1363swentry_size()
1364
1365SV *
1366swentries_list()
1367
30500b05 1368void
1369ResetWinError()
1370
35bc1fdc 1371int
622913ab 1372WindowText_set(HWND hwndFrame, char *title)
35bc1fdc 1373
1374bool
622913ab 1375FocusWindow_set(HWND hwndFocus, HWND hwndDesktop = HWND_DESKTOP)
35bc1fdc 1376
1377bool
622913ab 1378ShowWindow(HWND hwnd, bool fShow = TRUE)
35bc1fdc 1379
1380bool
622913ab 1381EnableWindow(HWND hwnd, bool fEnable = TRUE)
30500b05 1382
1383bool
622913ab 1384PostMsg(HWND hwnd, unsigned long msg, unsigned long mp1 = 0, unsigned long mp2 = 0)
30500b05 1385 C_ARGS: hwnd, msg, (MPARAM)mp1, (MPARAM)mp2
35bc1fdc 1386
1387bool
622913ab 1388WindowPos_set(HWND hwnd, long x, long y, unsigned long fl = SWP_MOVE, long cx = 0, long cy = 0, HWND hwndInsertBehind = HWND_TOP)
30500b05 1389 PROTOTYPE: DISABLE
35bc1fdc 1390
1391unsigned long
622913ab 1392BeginEnumWindows(HWND hwnd)
35bc1fdc 1393
1394bool
1395EndEnumWindows(unsigned long henum)
1396
1397unsigned long
1398GetNextWindow(unsigned long henum)
1399
1400bool
622913ab 1401IsWindowVisible(HWND hwnd)
30500b05 1402
1403bool
622913ab 1404IsWindowEnabled(HWND hwnd)
30500b05 1405
1406bool
622913ab 1407IsWindowShowing(HWND hwnd)
35bc1fdc 1408
1409unsigned long
622913ab 1410QueryWindow(HWND hwnd, long cmd)
35bc1fdc 1411
1412unsigned long
622913ab 1413IsChild(HWND hwnd, HWND hwndParent)
35bc1fdc 1414
1415unsigned long
622913ab 1416WindowFromId(HWND hwndParent, unsigned long id)
35bc1fdc 1417
1418unsigned long
622913ab 1419WindowFromPoint(long x, long y, HWND hwnd = HWND_DESKTOP, bool fChildren = TRUE)
30500b05 1420PROTOTYPE: DISABLE
35bc1fdc 1421
1422unsigned long
622913ab 1423EnumDlgItem(HWND hwndDlg, unsigned long code, HWND hwnd = NULLHANDLE)
35bc1fdc 1424 C_ARGS: hwndDlg, hwnd, code
1425
30500b05 1426bool
622913ab 1427EnableWindowUpdate(HWND hwnd, bool fEnable = TRUE)
30500b05 1428
1429bool
622913ab 1430SetWindowBits(HWND hwnd, long index, unsigned long flData, unsigned long flMask)
30500b05 1431
1432bool
622913ab 1433SetWindowPtr(HWND hwnd, long index, unsigned long p)
30500b05 1434 C_ARGS: hwnd, index, (PVOID)p
1435
1436bool
622913ab 1437SetWindowULong(HWND hwnd, long index, unsigned long i)
30500b05 1438
1439bool
622913ab 1440SetWindowUShort(HWND hwnd, long index, unsigned short i)
30500b05 1441
1442bool
622913ab 1443IsWindow(HWND hwnd, HAB hab = Acquire_hab())
30500b05 1444 C_ARGS: hab, hwnd
1445
1446BOOL
622913ab 1447ActiveWindow_set(HWND hwnd, HWND hwndDesktop = HWND_DESKTOP)
30500b05 1448 CODE:
1449 RETVAL = SetActiveWindow(hwndDesktop, hwnd);
1450
622913ab 1451unsigned long
1452LoadPointer(unsigned long idres, unsigned long hmod = 0, HWND hwndDesktop = HWND_DESKTOP)
1453 C_ARGS: hwndDesktop, hmod, idres
1454
35bc1fdc 1455int
1456out_codepage()
1457
1458bool
1459out_codepage_set(int cp)
1460
1461int
1462in_codepage()
1463
1464bool
1465in_codepage_set(int cp)
1466
1467SV *
1468screen()
1469
1470bool
1471screen_set(SV *sv)
1472
1473SV *
1474process_codepages()
1475 PPCODE:
1476 {
1477 ULONG cps[4], c, i = 0, rc;
1478
1479 if (CheckOSError(DosQueryCp( sizeof(cps), cps, &c )))
1480 c = 0;
1481 c /= sizeof(ULONG);
1482 if (c >= 3)
1483 EXTEND(sp, c);
1484 while (i < c)
1485 PUSHs(sv_2mortal(newSViv(cps[i++])));
1486 }
1487
1488bool
1489process_codepage_set(int cp)
1490
30500b05 1491void
1492cursor(OUTLIST int stp, OUTLIST int ep, OUTLIST int wp, OUTLIST int ap)
1493 PROTOTYPE:
1494
1495bool
1496cursor_set(int s, int e, int w = cursor__(0), int a = cursor__(1))
1497
0c8b5171 1498SV*
1499_kbdChar(int nowait = 0, int handle = 0)
1500
1501SV*
1502_kbdStatus(int handle = 0)
1503
1504void
1505_kbdStatus_set(SV *sv, int handle = 0)
1506
1507SV*
1508_vioConfig(int which = 0, int handle = 0)
1509
1510SV*
1511_vioMode()
1512
1513void
1514_vioMode_set(SV *buffer)
1515
1516SV*
1517_vioState(int what, int first = -1, int count = -1)
1518
1519void
1520_vioState_set(SV *buffer)
1521
1522SV*
1523vioFont( int type = 0, OUTLIST int w, OUTLIST int h)
1524
1525void
1526vioFont_set(SV *buffer, int cellwidth, int cellheight, int type = 0)
1527
622913ab 1528NO_OUTPUT bool
1529_ClipbrdData_set(unsigned long ulData, unsigned long fmt = CF_TEXT, unsigned long rgfFmtInfo = ((fmt == CF_TEXT || fmt == CF_DSPTEXT) ? CFI_POINTER : CFI_HANDLE), HAB hab = perl_hab_GET())
1530 PROTOTYPE: DISABLE
1531 C_ARGS: hab, ulData, fmt, rgfFmtInfo
1532 POSTCALL:
1533 if (CheckWinError(RETVAL))
1534 croak_with_os2error("_ClipbrdData_set() error");
1535
1536void
1537ClipbrdData_set(SV *text, int convert_nl = 1, unsigned long fmt = CF_TEXT, unsigned long rgfFmtInfo = ((fmt == CF_TEXT || fmt == CF_DSPTEXT) ? CFI_POINTER : CFI_HANDLE), HAB hab = perl_hab_GET())
1538 PROTOTYPE: DISABLE
1539
1540void
1541ClipbrdOwner_set(HWND hwnd, HAB hab = perl_hab_GET())
1542 C_ARGS: hab, hwnd
1543
1544void
1545ClipbrdViewer_set(HWND hwnd, HAB hab = perl_hab_GET())
1546 C_ARGS: hab, hwnd
1547
1548unsigned long
1549EnumClipbrdFmts(unsigned long fmt = 0, HAB hab = perl_hab_GET())
1550 C_ARGS: hab, fmt
1551
1552unsigned long
1553AddAtom(char *pszAtomName, HATOMTBL hAtomTbl = QuerySystemAtomTable())
1554 C_ARGS: hAtomTbl, pszAtomName
1555
1556unsigned long
1557FindAtom(char *pszAtomName, HATOMTBL hAtomTbl = QuerySystemAtomTable())
1558 C_ARGS: hAtomTbl, pszAtomName
1559
1560unsigned long
1561DeleteAtom(char *pszAtomName, HATOMTBL hAtomTbl = QuerySystemAtomTable())
1562 C_ARGS: hAtomTbl, pszAtomName
1563
1564void
1565Alarm(unsigned long rgfType = WA_ERROR, HWND hwndDesktop = HWND_DESKTOP)
1566 C_ARGS: hwndDesktop, rgfType
1567
1568void
1569FlashWindow(HWND hwndFrame, bool fFlash)
1570
30500b05 1571MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myQuery
1572
1573SV *
622913ab 1574myQueryWindowText(HWND hwnd)
30500b05 1575
1576SV *
622913ab 1577myQueryClassName(HWND hwnd)
30500b05 1578
35bc1fdc 1579MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = Query
1580
1581unsigned long
622913ab 1582QueryFocusWindow(HWND hwndDesktop = HWND_DESKTOP)
35bc1fdc 1583
1584long
622913ab 1585QueryWindowTextLength(HWND hwnd)
35bc1fdc 1586
1587SV *
622913ab 1588QueryWindowSWP(HWND hwnd)
35bc1fdc 1589
30500b05 1590unsigned long
622913ab 1591QueryWindowULong(HWND hwnd, long index)
35bc1fdc 1592
30500b05 1593unsigned short
622913ab 1594QueryWindowUShort(HWND hwnd, long index)
1595
1596unsigned long
1597QueryActiveWindow(HWND hwnd = HWND_DESKTOP)
1598
1599unsigned long
1600QueryDesktopWindow(HAB hab = Acquire_hab(), unsigned long hdc = NULLHANDLE)
1601
1602unsigned long
1603QueryClipbrdData(unsigned long fmt = CF_TEXT, HAB hab = perl_hab_GET())
1604 C_ARGS: hab, fmt
1605 PROTOTYPE: DISABLE
1606
1607unsigned long
1608QueryClipbrdViewer(HAB hab = perl_hab_GET())
1609
1610unsigned long
1611QueryClipbrdOwner(HAB hab = perl_hab_GET())
1612
1613void
1614CloseClipbrd(HAB hab = perl_hab_GET())
1615
1616void
1617EmptyClipbrd(HAB hab = perl_hab_GET())
1618
1619bool
1620OpenClipbrd(HAB hab = perl_hab_GET())
1621
1622unsigned long
1623QueryAtomUsage(ATOM atom, HATOMTBL hAtomTbl = QuerySystemAtomTable())
1624 C_ARGS: hAtomTbl, atom
1625
1626unsigned long
1627QueryAtomLength(ATOM atom, HATOMTBL hAtomTbl = QuerySystemAtomTable())
1628 C_ARGS: hAtomTbl, atom
1629
1630unsigned long
1631QuerySystemAtomTable()
1632
1633unsigned long
1634QuerySysPointer(long lId, bool fCopy = 1, HWND hwndDesktop = HWND_DESKTOP)
1635 C_ARGS: hwndDesktop, lId, fCopy
30500b05 1636
1637unsigned long
622913ab 1638CreateAtomTable(unsigned long initial = 0, unsigned long buckets = 0)
30500b05 1639
1640unsigned long
622913ab 1641DestroyAtomTable(HATOMTBL hAtomTbl)
1642
30500b05 1643
1644MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myWinQuery
1645
1646unsigned long
622913ab 1647myWinQueryWindowPtr(HWND hwnd, long index)
35bc1fdc 1648
1649NO_OUTPUT BOOL
622913ab 1650myWinQueryWindowProcess(HWND hwnd, OUTLIST unsigned long pid, OUTLIST unsigned long tid)
30500b05 1651 PROTOTYPE: $
35bc1fdc 1652 POSTCALL:
1653 if (CheckWinError(RETVAL))
622913ab 1654 croak_with_os2error("WindowProcess() error");
1655
1656SV *
1657myWinQueryActiveDesktopPathname()
1658
1659void
1660myWinQueryClipbrdFmtInfo(OUTLIST unsigned long prgfFmtInfo, unsigned long fmt = CF_TEXT, HAB hab = perl_hab_GET())
1661 C_ARGS: hab, fmt, &prgfFmtInfo
1662
1663SV *
1664myWinQueryAtomName(ATOM atom, HATOMTBL hAtomTbl = QuerySystemAtomTable())
35bc1fdc 1665
30500b05 1666MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myWin
35bc1fdc 1667
1668int
622913ab 1669myWinSwitchToProgram(HSWITCH hsw = switch_of(NULLHANDLE, getpid()))
35bc1fdc 1670 PREINIT:
1671 ULONG rc;
1672
622913ab 1673#if 0
1674
1675unsigned long
1676myWinMessageBox(unsigned long pszText, char* pszCaption = "Perl script error", unsigned long flStyle = MB_CANCEL | MB_ICONHAND, HWND hwndParent = HWND_DESKTOP, HWND hwndOwner = HWND_DESKTOP, unsigned long idWindow = 0)
1677 C_ARGS: hwndParent, hwndOwner, pszText, pszCaption, idWindow, flStyle
1678
1679#endif
1680
1681unsigned long
1682_MessageBox(char* pszText, char* pszCaption = "Perl script error", unsigned long flStyle = MB_CANCEL | MB_INFORMATION | MB_MOVEABLE, HWND hwndParent = HWND_DESKTOP, HWND hwndOwner = NULLHANDLE, unsigned long idWindow = 0)
1683 C_ARGS: hwndParent, hwndOwner, pszText, pszCaption, idWindow, flStyle
1684 POSTCALL:
1685 if (RETVAL == MBID_ERROR)
1686 RETVAL = 0;
1687
1688unsigned long
1689_MessageBox2(char *pszText, char* pmb2info, char *pszCaption, HWND hwndParent = HWND_DESKTOP, HWND hwndOwner = NULLHANDLE, unsigned long idWindow = 0)
1690 C_ARGS: hwndParent, hwndOwner, pszText, pszCaption, idWindow, (PMB2INFO)pmb2info
1691 POSTCALL:
1692 if (RETVAL == MBID_ERROR)
1693 RETVAL = 0;
1694
30500b05 1695MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myWinQuery
35bc1fdc 1696
1697MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = get
1698
1699int
1700getppid()
1701
1702int
1703ppidOf(int pid = getpid())
1704
1705int
1706sidOf(int pid = getpid())
1707
1708void
1709getscrsize(OUTLIST int wp, OUTLIST int hp)
30500b05 1710 PROTOTYPE:
35bc1fdc 1711
1712bool
1713scrsize_set(int w_or_h, int h = -9999)
30500b05 1714
622913ab 1715void
1716get_InvalidateRect(HWND hwnd, char *prcl, bool fIncludeChildren)
1717
1718void
1719get_CreateFrameControls(HWND hwndFrame, char *pfcdata, char* pszTitle)
1720
30500b05 1721MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = ul
1722
1723unsigned long
1724ulMPFROMSHORT(unsigned short i)
1725
1726unsigned long
1727ulMPVOID()
1728
1729unsigned long
1730ulMPFROMCHAR(unsigned char i)
1731
1732unsigned long
1733ulMPFROM2SHORT(unsigned short x1, unsigned short x2)
1734 PROTOTYPE: DISABLE
1735
1736unsigned long
1737ulMPFROMSH2CH(unsigned short s, unsigned char c1, unsigned char c2)
1738 PROTOTYPE: DISABLE
1739
1740unsigned long
1741ulMPFROMLONG(unsigned long x)
1742
Unnamed repository; edit this file to name it for gitweb.