#include #define INCL_DOS #define INCL_DOSERRORS #define INCL_DOSNLS #define INCL_WINSWITCHLIST #define INCL_WINWINDOWMGR #define INCL_WININPUT #define INCL_VIO #define INCL_KBD #include #include "EXTERN.h" #include "perl.h" #include "XSUB.h" static unsigned long constant(char *name, int arg) { errno = 0; if (name[0] == 'P' && name[1] == '_') { if (strEQ(name, "P_BACKGROUND")) #ifdef P_BACKGROUND return P_BACKGROUND; #else goto not_there; #endif if (strEQ(name, "P_DEBUG")) #ifdef P_DEBUG return P_DEBUG; #else goto not_there; #endif if (strEQ(name, "P_DEFAULT")) #ifdef P_DEFAULT return P_DEFAULT; #else goto not_there; #endif if (strEQ(name, "P_DETACH")) #ifdef P_DETACH return P_DETACH; #else goto not_there; #endif if (strEQ(name, "P_FOREGROUND")) #ifdef P_FOREGROUND return P_FOREGROUND; #else goto not_there; #endif if (strEQ(name, "P_FULLSCREEN")) #ifdef P_FULLSCREEN return P_FULLSCREEN; #else goto not_there; #endif if (strEQ(name, "P_MAXIMIZE")) #ifdef P_MAXIMIZE return P_MAXIMIZE; #else goto not_there; #endif if (strEQ(name, "P_MINIMIZE")) #ifdef P_MINIMIZE return P_MINIMIZE; #else goto not_there; #endif if (strEQ(name, "P_NOCLOSE")) #ifdef P_NOCLOSE return P_NOCLOSE; #else goto not_there; #endif if (strEQ(name, "P_NOSESSION")) #ifdef P_NOSESSION return P_NOSESSION; #else goto not_there; #endif if (strEQ(name, "P_NOWAIT")) #ifdef P_NOWAIT return P_NOWAIT; #else goto not_there; #endif if (strEQ(name, "P_OVERLAY")) #ifdef P_OVERLAY return P_OVERLAY; #else goto not_there; #endif if (strEQ(name, "P_PM")) #ifdef P_PM return P_PM; #else goto not_there; #endif if (strEQ(name, "P_QUOTE")) #ifdef P_QUOTE return P_QUOTE; #else goto not_there; #endif if (strEQ(name, "P_SESSION")) #ifdef P_SESSION return P_SESSION; #else goto not_there; #endif if (strEQ(name, "P_TILDE")) #ifdef P_TILDE return P_TILDE; #else goto not_there; #endif if (strEQ(name, "P_UNRELATED")) #ifdef P_UNRELATED return P_UNRELATED; #else goto not_there; #endif if (strEQ(name, "P_WAIT")) #ifdef P_WAIT return P_WAIT; #else goto not_there; #endif if (strEQ(name, "P_WINDOWED")) #ifdef P_WINDOWED return P_WINDOWED; #else goto not_there; #endif } else if (name[0] == 'T' && name[1] == '_') { if (strEQ(name, "FAPPTYP_NOTSPEC")) #ifdef FAPPTYP_NOTSPEC return FAPPTYP_NOTSPEC; #else goto not_there; #endif if (strEQ(name, "T_NOTWINDOWCOMPAT")) #ifdef FAPPTYP_NOTWINDOWCOMPAT return FAPPTYP_NOTWINDOWCOMPAT; #else goto not_there; #endif if (strEQ(name, "T_WINDOWCOMPAT")) #ifdef FAPPTYP_WINDOWCOMPAT return FAPPTYP_WINDOWCOMPAT; #else goto not_there; #endif if (strEQ(name, "T_WINDOWAPI")) #ifdef FAPPTYP_WINDOWAPI return FAPPTYP_WINDOWAPI; #else goto not_there; #endif if (strEQ(name, "T_BOUND")) #ifdef FAPPTYP_BOUND return FAPPTYP_BOUND; #else goto not_there; #endif if (strEQ(name, "T_DLL")) #ifdef FAPPTYP_DLL return FAPPTYP_DLL; #else goto not_there; #endif if (strEQ(name, "T_DOS")) #ifdef FAPPTYP_DOS return FAPPTYP_DOS; #else goto not_there; #endif if (strEQ(name, "T_PHYSDRV")) #ifdef FAPPTYP_PHYSDRV return FAPPTYP_PHYSDRV; #else goto not_there; #endif if (strEQ(name, "T_VIRTDRV")) #ifdef FAPPTYP_VIRTDRV return FAPPTYP_VIRTDRV; #else goto not_there; #endif if (strEQ(name, "T_PROTDLL")) #ifdef FAPPTYP_PROTDLL return FAPPTYP_PROTDLL; #else goto not_there; #endif if (strEQ(name, "T_32BIT")) #ifdef FAPPTYP_32BIT return FAPPTYP_32BIT; #else goto not_there; #endif } errno = EINVAL; return 0; not_there: errno = ENOENT; return 0; } const char* const ptypes[] = { "FS", "DOS", "VIO", "PM", "DETACH" }; static char * my_type() { int rc; TIB *tib; PIB *pib; if (!(_emx_env & 0x200)) return (char*)ptypes[1]; /* not OS/2. */ if (CheckOSError(DosGetInfoBlocks(&tib, &pib))) return NULL; return (pib->pib_ultype <= 4 ? (char*)ptypes[pib->pib_ultype] : "UNKNOWN"); } static ULONG file_type(char *path) { int rc; ULONG apptype; if (!(_emx_env & 0x200)) croak("file_type not implemented on DOS"); /* not OS/2. */ if (CheckOSError(DosQueryAppType(path, &apptype))) { if (rc == ERROR_INVALID_EXE_SIGNATURE) croak("Invalid EXE signature"); else if (rc == ERROR_EXE_MARKED_INVALID) { croak("EXE marked invalid"); } croak("DosQueryAppType err %ld", rc); } return apptype; } /* These use different type of wrapper. Good to check wrappers. ;-) */ /* XXXX This assumes DOS type return type, without SEVERITY?! */ DeclFuncByORD(HSWITCH, myWinQuerySwitchHandle, ORD_WinQuerySwitchHandle, (HWND hwnd, PID pid), (hwnd, pid)) DeclFuncByORD(ULONG, myWinQuerySwitchEntry, ORD_WinQuerySwitchEntry, (HSWITCH hsw, PSWCNTRL pswctl), (hsw, pswctl)) DeclFuncByORD(ULONG, myWinSetWindowText, ORD_WinSetWindowText, (HWND hwnd, char* text), (hwnd, text)) DeclFuncByORD(BOOL, myWinQueryWindowProcess, ORD_WinQueryWindowProcess, (HWND hwnd, PPID ppid, PTID ptid), (hwnd, ppid, ptid)) DeclFuncByORD(ULONG, XmyWinSwitchToProgram, ORD_WinSwitchToProgram, (HSWITCH hsw), (hsw)) #define myWinSwitchToProgram(hsw) (!CheckOSError(XmyWinSwitchToProgram(hsw))) DeclWinFunc_CACHE(HWND, QueryWindow, (HWND hwnd, LONG cmd), (hwnd, cmd)) DeclWinFunc_CACHE(BOOL, QueryWindowPos, (HWND hwnd, PSWP pswp), (hwnd, pswp)) DeclWinFunc_CACHE(LONG, QueryWindowText, (HWND hwnd, LONG cchBufferMax, PCH pchBuffer), (hwnd, cchBufferMax, pchBuffer)) DeclWinFunc_CACHE(LONG, QueryClassName, (HWND hwnd, LONG cchMax, PCH pch), (hwnd, cchMax, pch)) DeclWinFunc_CACHE(HWND, QueryFocus, (HWND hwndDesktop), (hwndDesktop)) DeclWinFunc_CACHE(BOOL, SetFocus, (HWND hwndDesktop, HWND hwndFocus), (hwndDesktop, hwndFocus)) DeclWinFunc_CACHE(BOOL, ShowWindow, (HWND hwnd, BOOL fShow), (hwnd, fShow)) DeclWinFunc_CACHE(BOOL, EnableWindow, (HWND hwnd, BOOL fEnable), (hwnd, fEnable)) DeclWinFunc_CACHE(BOOL, SetWindowPos, (HWND hwnd, HWND hwndInsertBehind, LONG x, LONG y, LONG cx, LONG cy, ULONG fl), (hwnd, hwndInsertBehind, x, y, cx, cy, fl)) DeclWinFunc_CACHE(HENUM, BeginEnumWindows, (HWND hwnd), (hwnd)) DeclWinFunc_CACHE(BOOL, EndEnumWindows, (HENUM henum), (henum)) DeclWinFunc_CACHE(BOOL, EnableWindowUpdate, (HWND hwnd, BOOL fEnable), (hwnd, fEnable)) DeclWinFunc_CACHE(BOOL, SetWindowBits, (HWND hwnd, LONG index, ULONG flData, ULONG flMask), (hwnd, index, flData, flMask)) DeclWinFunc_CACHE(BOOL, SetWindowPtr, (HWND hwnd, LONG index, PVOID p), (hwnd, index, p)) DeclWinFunc_CACHE(BOOL, SetWindowULong, (HWND hwnd, LONG index, ULONG ul), (hwnd, index, ul)) DeclWinFunc_CACHE(BOOL, SetWindowUShort, (HWND hwnd, LONG index, USHORT us), (hwnd, index, us)) DeclWinFunc_CACHE(HWND, IsChild, (HWND hwnd, HWND hwndParent), (hwnd, hwndParent)) DeclWinFunc_CACHE(HWND, WindowFromId, (HWND hwnd, ULONG id), (hwnd, id)) DeclWinFunc_CACHE(HWND, EnumDlgItem, (HWND hwndDlg, HWND hwnd, ULONG code), (hwndDlg, hwnd, code)) DeclWinFunc_CACHE(HWND, QueryDesktopWindow, (HAB hab, HDC hdc), (hab, hdc)); DeclWinFunc_CACHE(BOOL, SetActiveWindow, (HWND hwndDesktop, HWND hwnd), (hwndDesktop, hwnd)); /* These functions may return 0 on success; check $^E/Perl_rc on res==0: */ DeclWinFunc_CACHE_resetError(PVOID, QueryWindowPtr, (HWND hwnd, LONG index), (hwnd, index)) DeclWinFunc_CACHE_resetError(ULONG, QueryWindowULong, (HWND hwnd, LONG index), (hwnd, index)) DeclWinFunc_CACHE_resetError(SHORT, QueryWindowUShort, (HWND hwnd, LONG index), (hwnd, index)) DeclWinFunc_CACHE_resetError(LONG, QueryWindowTextLength, (HWND hwnd), (hwnd)) DeclWinFunc_CACHE_resetError(HWND, QueryActiveWindow, (HWND hwnd), (hwnd)) DeclWinFunc_CACHE_resetError(BOOL, PostMsg, (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2), (hwnd, msg, mp1, mp2)) DeclWinFunc_CACHE_resetError(HWND, GetNextWindow, (HENUM henum), (henum)) DeclWinFunc_CACHE_resetError(BOOL, IsWindowEnabled, (HWND hwnd), (hwnd)) DeclWinFunc_CACHE_resetError(BOOL, IsWindowVisible, (HWND hwnd), (hwnd)) DeclWinFunc_CACHE_resetError(BOOL, IsWindowShowing, (HWND hwnd), (hwnd)) /* No die()ing on error */ DeclWinFunc_CACHE_survive(BOOL, IsWindow, (HAB hab, HWND hwnd), (hab, hwnd)) /* These functions are called frow complicated wrappers: */ ULONG (*pWinQuerySwitchList) (HAB hab, PSWBLOCK pswblk, ULONG usDataLength); ULONG (*pWinChangeSwitchEntry) (HSWITCH hsw, __const__ SWCNTRL *pswctl); HWND (*pWinWindowFromPoint)(HWND hwnd, __const__ POINTL *pptl, BOOL fChildren); /* These functions have different names/signatures than what is declared above */ #define QueryFocusWindow QueryFocus #define FocusWindow_set(hwndFocus, hwndDesktop) SetFocus(hwndDesktop, hwndFocus) #define WindowPos_set(hwnd, x, y, fl, cx, cy, hwndInsertBehind) \ SetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy, fl) #define myWinQueryWindowPtr(hwnd, i) ((ULONG)QueryWindowPtr(hwnd, i)) int WindowText_set(HWND hwnd, char* text) { return !CheckWinError(myWinSetWindowText(hwnd, text)); } SV * myQueryWindowText(HWND hwnd) { LONG l = QueryWindowTextLength(hwnd), len; SV *sv; STRLEN n_a; if (l == 0) { if (Perl_rc) /* Last error */ return &PL_sv_undef; return &PL_sv_no; } sv = newSVpvn("", 0); SvGROW(sv, l + 1); len = WinQueryWindowText(hwnd, l + 1, SvPV_force(sv, n_a)); if (len != l) { Safefree(sv); croak("WinQueryWindowText() uncompatible with WinQueryWindowTextLength()"); } SvCUR_set(sv, l); return sv; } SWP QueryWindowSWP_(HWND hwnd) { SWP swp; if (!QueryWindowPos(hwnd, &swp)) croak("WinQueryWindowPos() error"); return swp; } SV * QueryWindowSWP(HWND hwnd) { SWP swp = QueryWindowSWP_(hwnd); return newSVpvn((char*)&swp, sizeof(swp)); } SV * myQueryClassName(HWND hwnd) { SV *sv = newSVpvn("",0); STRLEN l = 46, len = 0, n_a; while (l + 1 >= len) { if (len) len = 2*len + 10; /* Grow quick */ else len = l + 2; SvGROW(sv, len); l = QueryClassName(hwnd, len, SvPV_force(sv, n_a)); } SvCUR_set(sv, l); return sv; } HWND WindowFromPoint(long x, long y, HWND hwnd, BOOL fChildren) { POINTL ppl; ppl.x = x; ppl.y = y; if (!pWinWindowFromPoint) AssignFuncPByORD(pWinWindowFromPoint, ORD_WinWindowFromPoint); return SaveWinError(pWinWindowFromPoint(hwnd, &ppl, fChildren)); } static void fill_swentry(SWENTRY *swentryp, HWND hwnd, PID pid) { int rc; HSWITCH hSwitch; if (!(_emx_env & 0x200)) croak("switch_entry not implemented on DOS"); /* not OS/2. */ if (CheckWinError(hSwitch = myWinQuerySwitchHandle(hwnd, pid))) croak("WinQuerySwitchHandle: %s", os2error(Perl_rc)); swentryp->hswitch = hSwitch; if (CheckOSError(myWinQuerySwitchEntry(hSwitch, &swentryp->swctl))) croak("WinQuerySwitchEntry err %ld", rc); } static void fill_swentry_default(SWENTRY *swentryp) { fill_swentry(swentryp, NULLHANDLE, getpid()); } /* static ULONG (* APIENTRY16 pDosSmSetTitle)(ULONG, PSZ); */ ULONG _THUNK_FUNCTION(DosSmSetTitle)(ULONG, PSZ); #if 0 /* Does not work. */ static ULONG (*pDosSmSetTitle)(ULONG, PSZ); static void sesmgr_title_set(char *s) { SWENTRY swentry; static HMODULE hdosc = 0; BYTE buf[20]; long rc; fill_swentry_default(&swentry); if (!pDosSmSetTitle || !hdosc) { if (CheckOSError(DosLoadModule(buf, sizeof buf, "sesmgr", &hdosc))) croak("Cannot load SESMGR: no `%s'", buf); if (CheckOSError(DosQueryProcAddr(hdosc, 0, "DOSSMSETTITLE", (PFN*)&pDosSmSetTitle))) croak("Cannot load SESMGR.DOSSMSETTITLE, err=%ld", rc); } /* (pDosSmSetTitle)(swcntrl.idSession,s); */ rc = ((USHORT) (_THUNK_PROLOG (2+4); _THUNK_SHORT (swcntrl.idSession); _THUNK_FLAT (s); _THUNK_CALLI (*pDosSmSetTitle))); if (CheckOSError(rc)) warn("*DOSSMSETTITLE: err=%ld, ses=%ld, addr=%x, *paddr=%x", rc, swcntrl.idSession, &_THUNK_FUNCTION(DosSmSetTitle), pDosSmSetTitle); } #else /* !0 */ static bool sesmgr_title_set(char *s) { SWENTRY swentry; long rc; fill_swentry_default(&swentry); rc = ((USHORT) (_THUNK_PROLOG (2+4); _THUNK_SHORT (swentry.swctl.idSession); _THUNK_FLAT (s); _THUNK_CALL (DosSmSetTitle))); #if 0 if (CheckOSError(rc)) warn("DOSSMSETTITLE: err=%ld, ses=%ld, addr=%x", rc, swcntrl.idSession, _THUNK_FUNCTION(DosSmSetTitle)); #endif return !CheckOSError(rc); } #endif /* !0 */ #if 0 /* Does not work. */ USHORT _THUNK_FUNCTION(Win16SetTitle) (); static void set_title2(char *s) { long rc; rc = ((USHORT) (_THUNK_PROLOG (4); _THUNK_FLAT (s); _THUNK_CALL (Win16SetTitle))); if (CheckWinError(rc)) warn("Win16SetTitle: err=%ld", rc); } #endif SV * process_swentry(unsigned long pid, unsigned long hwnd) { SWENTRY swentry; if (!(_emx_env & 0x200)) croak("process_swentry not implemented on DOS"); /* not OS/2. */ fill_swentry(&swentry, hwnd, pid); return newSVpvn((char*)&swentry, sizeof(swentry)); } SV * swentries_list() { int num, n = 0; STRLEN n_a; PSWBLOCK pswblk; SV *sv = newSVpvn("",0); if (!(_emx_env & 0x200)) croak("swentries_list not implemented on DOS"); /* not OS/2. */ if (!pWinQuerySwitchList) AssignFuncPByORD(pWinQuerySwitchList, ORD_WinQuerySwitchList); num = pWinQuerySwitchList(0, NULL, 0); /* HAB is not required */ if (!num) croak("(Unknown) error during WinQuerySwitchList()"); /* Allow one extra entry to allow overflow detection (may happen if the list has been changed). */ while (num > n) { if (n == 0) n = num + 1; else n = 2*num + 10; /* Enlarge quickly */ SvGROW(sv, sizeof(ULONG) + sizeof(SWENTRY) * n + 1); pswblk = (PSWBLOCK) SvPV_force(sv, n_a); num = pWinQuerySwitchList(0, pswblk, SvLEN(sv)); } SvCUR_set(sv, sizeof(ULONG) + sizeof(SWENTRY) * num); *SvEND(sv) = 0; return sv; } SWENTRY swentry( char *title, HWND sw_hwnd, HWND icon_hwnd, HPROGRAM owner_phandle, PID owner_pid, ULONG owner_sid, ULONG visible, ULONG nonswitchable, ULONG jumpable, ULONG ptype, HSWITCH sw_entry) { SWENTRY e; strncpy(e.swctl.szSwtitle, title, MAXNAMEL); e.swctl.szSwtitle[60] = 0; e.swctl.hwnd = sw_hwnd; e.swctl.hwndIcon = icon_hwnd; e.swctl.hprog = owner_phandle; e.swctl.idProcess = owner_pid; e.swctl.idSession = owner_sid; e.swctl.uchVisibility = ((visible ? SWL_VISIBLE : SWL_INVISIBLE) | (nonswitchable ? SWL_GRAYED : 0)); e.swctl.fbJump = (jumpable ? SWL_JUMPABLE : 0); e.swctl.bProgType = ptype; e.hswitch = sw_entry; return e; } SV * create_swentry( char *title, HWND owner_hwnd, HWND icon_hwnd, HPROGRAM owner_phandle, PID owner_pid, ULONG owner_sid, ULONG visible, ULONG nonswitchable, ULONG jumpable, ULONG ptype, HSWITCH sw_entry) { SWENTRY e = swentry(title, owner_hwnd, icon_hwnd, owner_phandle, owner_pid, owner_sid, visible, nonswitchable, jumpable, ptype, sw_entry); return newSVpvn((char*)&e, sizeof(e)); } int change_swentrysw(SWENTRY *sw) { ULONG rc; /* For CheckOSError */ if (!(_emx_env & 0x200)) croak("change_entry() not implemented on DOS"); /* not OS/2. */ if (!pWinChangeSwitchEntry) AssignFuncPByORD(pWinChangeSwitchEntry, ORD_WinChangeSwitchEntry); return !CheckOSError(pWinChangeSwitchEntry(sw->hswitch, &sw->swctl)); } int change_swentry(SV *sv) { STRLEN l; PSWENTRY pswentry = (PSWENTRY)SvPV(sv, l); if (l != sizeof(SWENTRY)) croak("Wrong structure size %ld!=%ld in change_swentry()", (long)l, (long)sizeof(SWENTRY)); return change_swentrysw(pswentry); } #define swentry_size() (sizeof(SWENTRY)) void getscrsize(int *wp, int *hp) { int i[2]; _scrsize(i); *wp = i[0]; *hp = i[1]; } /* Force vio to not cross 64K-boundary: */ #define VIO_FROM_VIOB \ vio = viob; \ if (!_THUNK_PTR_STRUCT_OK(vio)) \ vio++ bool scrsize_set(int w, int h) { VIOMODEINFO viob[2], *vio; ULONG rc; VIO_FROM_VIOB; if (h == -9999) h = w, w = 0; vio->cb = sizeof(*vio); if (CheckOSError(VioGetMode( vio, 0 ))) return 0; if( w > 0 ) vio->col = (USHORT)w; if( h > 0 ) vio->row = (USHORT)h; vio->cb = 8; if (CheckOSError(VioSetMode( vio, 0 ))) return 0; return 1; } void cursor(int *sp, int *ep, int *wp, int *ap) { VIOCURSORINFO viob[2], *vio; ULONG rc; VIO_FROM_VIOB; if (CheckOSError(VioGetCurType( vio, 0 ))) croak("VioGetCurType() error"); *sp = vio->yStart; *ep = vio->cEnd; *wp = vio->cx; *ep = vio->attr; } bool cursor__(int is_a) { int s,e,w,a; cursor(&s, &e, &w, &a); if (is_a) return a; else return w; } bool cursor_set(int s, int e, int w, int a) { VIOCURSORINFO viob[2], *vio; ULONG rc; VIO_FROM_VIOB; vio->yStart = s; vio->cEnd = e; vio->cx = w; vio->attr = a; return !CheckOSError(VioSetCurType( vio, 0 )); } static int bufsize(void) { #if 1 VIOMODEINFO viob[2], *vio; ULONG rc; VIO_FROM_VIOB; vio->cb = sizeof(*vio); if (CheckOSError(VioGetMode( vio, 0 ))) croak("Can't get size of buffer for screen"); #if 0 /* buf=323552247, full=1118455, partial=0 */ croak("Lengths: buf=%d, full=%d, partial=%d",vio->buf_length,vio->full_length,vio->partial_length); return newSVpvn((char*)vio->buf_addr, vio->full_length); #endif return vio->col * vio->row * 2; /* How to get bytes/cell? 2 or 4? */ #else /* 0 */ int i[2]; _scrsize(i); return i[0]*i[1]*2; #endif /* 0 */ } SV * screen(void) { ULONG rc; USHORT bufl = bufsize(); char b[(1<<16) * 3]; /* This/3 is enough for 16-bit calls, we need 2x overhead due to 2 vs 4 issue, and extra 64K due to alignment logic */ char *buf = b; if (((ULONG)buf) & 0xFFFF) buf += 0x10000 - (((ULONG)buf) & 0xFFFF); if ((sizeof(b) - (buf - b)) < 2*bufl) croak("panic: VIO buffer allocation"); if (CheckOSError(VioReadCellStr( buf, &bufl, 0, 0, 0 ))) return &PL_sv_undef; return newSVpvn(buf,bufl); } bool screen_set(SV *sv) { ULONG rc; STRLEN l = SvCUR(sv), bufl = bufsize(); char b[(1<<16) * 2]; /* This/2 is enough for 16-bit calls, we need extra 64K due to alignment logic */ char *buf = b; if (((ULONG)buf) & 0xFFFF) buf += 0x10000 - (((ULONG)buf) & 0xFFFF); if (!SvPOK(sv) || ((l != bufl) && (l != 2*bufl))) croak("Wrong size %d of saved screen data", SvCUR(sv)); if ((sizeof(b) - (buf - b)) < l) croak("panic: VIO buffer allocation"); Copy(SvPV(sv,l), buf, bufl, char); if (CheckOSError(VioWrtCellStr( buf, bufl, 0, 0, 0 ))) return 0; return 1; } int process_codepages() { ULONG cps[4], cp, rc; if (CheckOSError(DosQueryCp( sizeof(cps), cps, &cp ))) croak("DosQueryCp() error"); return cp; } int out_codepage() { USHORT cp, rc; if (CheckOSError(VioGetCp( 0, &cp, 0 ))) croak("VioGetCp() error"); return cp; } bool out_codepage_set(int cp) { USHORT rc; return !(CheckOSError(VioSetCp( 0, cp, 0 ))); } int in_codepage() { USHORT cp, rc; if (CheckOSError(KbdGetCp( 0, &cp, 0 ))) croak("KbdGetCp() error"); return cp; } bool in_codepage_set(int cp) { USHORT rc; return !(CheckOSError(KbdSetCp( 0, cp, 0 ))); } bool process_codepage_set(int cp) { USHORT rc; return !(CheckOSError(DosSetProcessCp( cp ))); } int ppidOf(int pid) { PQTOPLEVEL psi; int ppid; if (!pid) return -1; psi = get_sysinfo(pid, QSS_PROCESS); if (!psi) return -1; ppid = psi->procdata->ppid; Safefree(psi); return ppid; } int sidOf(int pid) { PQTOPLEVEL psi; int sid; if (!pid) return -1; psi = get_sysinfo(pid, QSS_PROCESS); if (!psi) return -1; sid = psi->procdata->sessid; Safefree(psi); return sid; } #define ulMPFROMSHORT(i) ((unsigned long)MPFROMSHORT(i)) #define ulMPVOID() ((unsigned long)MPVOID) #define ulMPFROMCHAR(i) ((unsigned long)MPFROMCHAR(i)) #define ulMPFROM2SHORT(x1,x2) ((unsigned long)MPFROM2SHORT(x1,x2)) #define ulMPFROMSH2CH(s, c1, c2) ((unsigned long)MPFROMSH2CH(s, c1, c2)) #define ulMPFROMLONG(x) ((unsigned long)MPFROMLONG(x)) MODULE = OS2::Process PACKAGE = OS2::Process PROTOTYPES: ENABLE unsigned long constant(name,arg) char * name int arg char * my_type() U32 file_type(path) char *path SV * swentry_expand( SV *sv ) PPCODE: { STRLEN l; PSWENTRY pswentry = (PSWENTRY)SvPV(sv, l); if (l != sizeof(SWENTRY)) croak("Wrong structure size %ld!=%ld in swentry_expand()", (long)l, (long)sizeof(SWENTRY)); EXTEND(sp,11); PUSHs(sv_2mortal(newSVpv(pswentry->swctl.szSwtitle, 0))); PUSHs(sv_2mortal(newSVnv(pswentry->swctl.hwnd))); PUSHs(sv_2mortal(newSVnv(pswentry->swctl.hwndIcon))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.hprog))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.idProcess))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.idSession))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.uchVisibility & SWL_VISIBLE))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.uchVisibility & SWL_GRAYED))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.fbJump == SWL_JUMPABLE))); PUSHs(sv_2mortal(newSViv(pswentry->swctl.bProgType))); PUSHs(sv_2mortal(newSViv(pswentry->hswitch))); } SV * create_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) PROTOTYPE: DISABLE int change_swentry( SV *sv ) bool sesmgr_title_set(s) char *s SV * process_swentry(unsigned long pid = getpid(), unsigned long hwnd = NULLHANDLE); PROTOTYPE: DISABLE int swentry_size() SV * swentries_list() void ResetWinError() int WindowText_set(unsigned long hwndFrame, char *title) bool FocusWindow_set(unsigned long hwndFocus, unsigned long hwndDesktop = HWND_DESKTOP) bool ShowWindow(unsigned long hwnd, bool fShow = TRUE) bool EnableWindow(unsigned long hwnd, bool fEnable = TRUE) bool PostMsg(unsigned long hwnd, unsigned long msg, unsigned long mp1 = 0, unsigned long mp2 = 0) C_ARGS: hwnd, msg, (MPARAM)mp1, (MPARAM)mp2 bool WindowPos_set(unsigned long hwnd, long x, long y, unsigned long fl = SWP_MOVE, long cx = 0, long cy = 0, unsigned long hwndInsertBehind = HWND_TOP) PROTOTYPE: DISABLE unsigned long BeginEnumWindows(unsigned long hwnd) bool EndEnumWindows(unsigned long henum) unsigned long GetNextWindow(unsigned long henum) bool IsWindowVisible(unsigned long hwnd) bool IsWindowEnabled(unsigned long hwnd) bool IsWindowShowing(unsigned long hwnd) unsigned long QueryWindow(unsigned long hwnd, long cmd) unsigned long IsChild(unsigned long hwnd, unsigned long hwndParent) unsigned long WindowFromId(unsigned long hwndParent, unsigned long id) unsigned long WindowFromPoint(long x, long y, unsigned long hwnd = HWND_DESKTOP, bool fChildren = TRUE) PROTOTYPE: DISABLE unsigned long EnumDlgItem(unsigned long hwndDlg, unsigned long code, unsigned long hwnd = NULLHANDLE) C_ARGS: hwndDlg, hwnd, code bool EnableWindowUpdate(unsigned long hwnd, bool fEnable = TRUE) bool SetWindowBits(unsigned long hwnd, long index, unsigned long flData, unsigned long flMask) bool SetWindowPtr(unsigned long hwnd, long index, unsigned long p) C_ARGS: hwnd, index, (PVOID)p bool SetWindowULong(unsigned long hwnd, long index, unsigned long i) bool SetWindowUShort(unsigned long hwnd, long index, unsigned short i) bool IsWindow(unsigned long hwnd, unsigned long hab = Acquire_hab()) C_ARGS: hab, hwnd BOOL ActiveWindow_set(unsigned long hwnd, unsigned long hwndDesktop = HWND_DESKTOP) CODE: RETVAL = SetActiveWindow(hwndDesktop, hwnd); int out_codepage() bool out_codepage_set(int cp) int in_codepage() bool in_codepage_set(int cp) SV * screen() bool screen_set(SV *sv) SV * process_codepages() PPCODE: { ULONG cps[4], c, i = 0, rc; if (CheckOSError(DosQueryCp( sizeof(cps), cps, &c ))) c = 0; c /= sizeof(ULONG); if (c >= 3) EXTEND(sp, c); while (i < c) PUSHs(sv_2mortal(newSViv(cps[i++]))); } bool process_codepage_set(int cp) void cursor(OUTLIST int stp, OUTLIST int ep, OUTLIST int wp, OUTLIST int ap) PROTOTYPE: bool cursor_set(int s, int e, int w = cursor__(0), int a = cursor__(1)) MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myQuery SV * myQueryWindowText(unsigned long hwnd) SV * myQueryClassName(unsigned long hwnd) MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = Query unsigned long QueryFocusWindow(unsigned long hwndDesktop = HWND_DESKTOP) long QueryWindowTextLength(unsigned long hwnd) SV * QueryWindowSWP(unsigned long hwnd) unsigned long QueryWindowULong(unsigned long hwnd, long index) unsigned short QueryWindowUShort(unsigned long hwnd, long index) unsigned long QueryActiveWindow(unsigned long hwnd = HWND_DESKTOP) unsigned long QueryDesktopWindow(unsigned long hab = Acquire_hab(), unsigned long hdc = NULLHANDLE) MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myWinQuery unsigned long myWinQueryWindowPtr(unsigned long hwnd, long index) NO_OUTPUT BOOL myWinQueryWindowProcess(unsigned long hwnd, OUTLIST unsigned long pid, OUTLIST unsigned long tid) PROTOTYPE: $ POSTCALL: if (CheckWinError(RETVAL)) croak("WindowProcess() error"); MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myWin int myWinSwitchToProgram(unsigned long hsw) PREINIT: ULONG rc; MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = myWinQuery MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = get int getppid() int ppidOf(int pid = getpid()) int sidOf(int pid = getpid()) void getscrsize(OUTLIST int wp, OUTLIST int hp) PROTOTYPE: bool scrsize_set(int w_or_h, int h = -9999) MODULE = OS2::Process PACKAGE = OS2::Process PREFIX = ul unsigned long ulMPFROMSHORT(unsigned short i) unsigned long ulMPVOID() unsigned long ulMPFROMCHAR(unsigned char i) unsigned long ulMPFROM2SHORT(unsigned short x1, unsigned short x2) PROTOTYPE: DISABLE unsigned long ulMPFROMSH2CH(unsigned short s, unsigned char c1, unsigned char c2) PROTOTYPE: DISABLE unsigned long ulMPFROMLONG(unsigned long x)