windows-nt/Source/XPSP1/NT/base/mvdm/wow32/wmsgem.c

277 lines
9.2 KiB
C
Raw Normal View History

2020-09-26 03:20:57 -05:00
/*++
*
* WOW v1.0
*
* Copyright (c) 1991, Microsoft Corporation
*
* WMSGEM.C
* WOW32 16-bit message thunks
*
* History:
* Created 11-Mar-1991 by Jeff Parsons (jeffpar)
--*/
#include "precomp.h"
#pragma hdrstop
MODNAME(wmsgem.c);
VPVOID WordBreakProc16 = 0;
extern WBP W32WordBreakProc;
#ifdef DEBUG
MSGINFO amiEM[] = {
{OLDEM_GETSEL, "EM_GETSEL"}, // 0x0400
{OLDEM_SETSEL, "EM_SETSEL"}, // 0x0401
{OLDEM_GETRECT, "EM_GETRECT"}, // 0x0402
{OLDEM_SETRECT, "EM_SETRECT"}, // 0x0403
{OLDEM_SETRECTNP, "EM_SETRECTNP"}, // 0x0404
{OLDEM_SCROLL, "EM_SCROLL"}, // 0x0405
{OLDEM_LINESCROLL, "EM_LINESCROLL"}, // 0x0406
{OLDEM_GETMODIFY, "EM_GETMODIFY"}, // 0x0408
{OLDEM_SETMODIFY, "EM_SETMODIFY"}, // 0x0409
{OLDEM_GETLINECOUNT, "EM_GETLINECOUNT"}, // 0x040A
{OLDEM_LINEINDEX, "EM_LINEINDEX"}, // 0x040B
{OLDEM_SETHANDLE, "EM_SETHANDLE"}, // 0x040C
{OLDEM_GETHANDLE, "EM_GETHANDLE"}, // 0x040D
{OLDEM_GETTHUMB, "EM_GETTHUMB"}, // 0x040E
{OLDEM_LINELENGTH, "EM_LINELENGTH"}, // 0x0411
{OLDEM_REPLACESEL, "EM_REPLACESEL"}, // 0x0412
{OLDEM_SETFONT, "EM_SETFONT"}, // 0x0413
{OLDEM_GETLINE, "EM_GETLINE"}, // 0x0414
{OLDEM_LIMITTEXT, "EM_LIMITTEXT"}, // 0x0415
{OLDEM_CANUNDO, "EM_CANUNDO"}, // 0x0416
{OLDEM_UNDO, "EM_UNDO"}, // 0x0417
{OLDEM_FMTLINES, "EM_FMTLINES"}, // 0x0418
{OLDEM_LINEFROMCHAR, "EM_LINEFROMCHAR"}, // 0x0419
{OLDEM_SETWORDBREAK, "EM_SETWORDBREAK"}, // 0x041A
{OLDEM_SETTABSTOPS, "EM_SETTABSTOPS"}, // 0x041B
{OLDEM_SETPASSWORDCHAR, "EM_SETPASSWORDCHAR"}, // 0x041C
{OLDEM_EMPTYUNDOBUFFER, "EM_EMPTYUNDOBUFFER"}, // 0x041D
{OLDEM_GETFIRSTVISIBLELINE, "EM_GETFIRSTVISIBLELINE"}, // 0x041E
{OLDEM_SETREADONLY, "EM_SETREADONLY"}, // 0x041F
{OLDEM_SETWORDBREAKPROC, "EM_SETWORDBREAKPROC"}, // 0x0420
{OLDEM_GETWORDBREAKPROC, "EM_GETWORDBREAKPROC"}, // 0x0421
{OLDEM_GETPASSWORDCHAR, "EM_GETPASSWORDCHAR"} // 0x0422
};
PSZ GetEMMsgName(WORD wMsg)
{
INT i;
register PMSGINFO pmi;
for (pmi=amiEM,i=NUMEL(amiEM); i>0; i--,pmi++) {
if ((WORD)pmi->uMsg == wMsg)
return pmi->pszMsgName;
}
return GetWMMsgName(wMsg);
}
#endif
BOOL FASTCALL ThunkEMMsg16(LPMSGPARAMEX lpmpex)
{
WORD wMsg = lpmpex->Parm16.WndProc.wMsg;
LOGDEBUG(7,(" Thunking 16-bit edit control message %s(%04x)\n", (LPSZ)GetEMMsgName(wMsg), wMsg));
wMsg -= WM_USER;
//
// For app defined (control) messages that are out of range
// return TRUE.
//
// ChandanC Sept-15-1992
//
if (wMsg < (EM_GETPASSWORDCHAR - EM_GETSEL + 1)) {
switch(lpmpex->uMsg = wMsg + EM_GETSEL) {
case EM_GETSEL:
// 16 bit apps cannot pass non-zero values in wParam or lParam for this
// message to NT since they will be considered long pointers.
// This is a hack for ReportWin - MarkRi
// NOTE: There is a case possible where the app is trying to pass
// thru a GETSEL msg that NT has sent it in which case things get more
// complicated but we haven't found an app YET that has this problem.
lpmpex->uParam = 0 ;
lpmpex->lParam = 0 ;
break ;
case EM_SETSEL:
lpmpex->uParam = LOWORD(lpmpex->Parm16.WndProc.lParam);
lpmpex->lParam = HIWORD(lpmpex->Parm16.WndProc.lParam);
break;
case EM_GETLINE:
GETMISCPTR(lpmpex->Parm16.WndProc.lParam, (LPSZ)lpmpex->lParam);
break;
case EM_GETRECT:
lpmpex->lParam = (LONG)lpmpex->MsgBuffer;
break;
case EM_LINESCROLL:
lpmpex->uParam = INT32(HIWORD(lpmpex->Parm16.WndProc.lParam));
lpmpex->lParam = INT32(LOWORD(lpmpex->Parm16.WndProc.lParam));
break;
case EM_SETHANDLE:
lpmpex->uParam = (UINT)MAKELONG(lpmpex->Parm16.WndProc.wParam,
LOWORD(lpmpex->pww->hModule) | 1);
break;
case EM_REPLACESEL:
{ PSZ psz;
int i;
GETPSZPTR(lpmpex->Parm16.WndProc.lParam, psz);
if (psz) {
i = strlen(psz)+1;
lpmpex->lParam = (LONG) LocalAlloc (LMEM_FIXED, i);
if (lpmpex->lParam ) {
RtlCopyMemory ((PSZ)lpmpex->lParam, psz, i);
}
else {
LOGDEBUG (0, ("WOW::WMSGEM.C: EM_REPLACESEL: Out of Memory Failure/n"));
}
}
FREEPSZPTR(psz);
}
break;
case EM_SETRECT:
case EM_SETRECTNP:
if (lpmpex->Parm16.WndProc.lParam) {
lpmpex->lParam = (LONG)lpmpex->MsgBuffer;
getrect16((VPRECT16)lpmpex->Parm16.WndProc.lParam, (LPRECT)lpmpex->lParam);
}
break;
case EM_SETTABSTOPS:
{
INT cItems = INT32(lpmpex->Parm16.WndProc.wParam);
if (cItems > 0) {
(PVOID)lpmpex->lParam = STACKORHEAPALLOC(cItems * sizeof(INT),
sizeof(lpmpex->MsgBuffer), lpmpex->MsgBuffer);
getintarray16((VPINT16)lpmpex->Parm16.WndProc.lParam, cItems, (LPINT)lpmpex->lParam);
}
}
break;
case EM_SETWORDBREAKPROC:
if (lpmpex->Parm16.WndProc.lParam) {
LONG l;
l = lpmpex->Parm16.WndProc.lParam;
// mark the proc as WOW proc and save the high bits in the RPL
MarkWOWProc (l,lpmpex->lParam);
LOGDEBUG (0, ("WOW::WMSGEM.C: EM_SETWORDBREAKPROC: lpmpex->Parm16.WndProc.lParam = %08lx, new lpmpex->Parm16.WndProc.lParam = %08lx\n", lpmpex->Parm16.WndProc.lParam, lpmpex->lParam));
}
break;
case EM_GETSEL + 0x07:
case EM_GETSEL + 0x0F:
case EM_GETSEL + 0x10:
lpmpex->uMsg = 0;
break;
} // switch
}
return TRUE;
}
VOID FASTCALL UnThunkEMMsg16(LPMSGPARAMEX lpmpex)
{
LPARAM lParam = lpmpex->Parm16.WndProc.lParam;
LPARAM lParamNew = lpmpex->lParam;
switch(lpmpex->uMsg) {
case EM_SETSEL:
// EM_SETSEL no longer positions the caret on NT as Win3.1 did. The new
// procedure is to post or send an EM_SETSEL message and then if you
// want the caret to be scrolled into view you send an EM_SCROLLCARET
// message. This code will do this to emulate the Win 3.1 EM_SETSEL
// correctly on NT.
if (!lpmpex->Parm16.WndProc.wParam) {
DWORD dwT;
if (POSTMSG(dwT))
PostMessage(lpmpex->hwnd, EM_SCROLLCARET, 0, 0 );
else
SendMessage(lpmpex->hwnd, EM_SCROLLCARET, 0, 0 );
}
break;
case EM_GETHANDLE:
lpmpex->lReturn = GETHMEM16(lpmpex->lReturn);
break;
case EM_GETRECT:
if (lParamNew) {
putrect16((VPRECT16)lParam, (LPRECT)lParamNew);
}
break;
case EM_REPLACESEL:
if (lParamNew) {
LocalFree ((HLOCAL)lParamNew);
}
break;
case EM_SETTABSTOPS:
if (lpmpex->Parm16.WndProc.wParam > 0) {
STACKORHEAPFREE((LPINT)lParamNew, lpmpex->MsgBuffer);
}
break;
case EM_GETWORDBREAKPROC:
if (lpmpex->lReturn) {
if (IsWOWProc (lpmpex->lReturn)) {
LOGDEBUG (0, ("WOW::WMSGEM.C: EM_GETWORDBREAKPROC: lReturn = %08lx ", lpmpex->lReturn));
//Unmark the proc and restore the high bits from rpl field
UnMarkWOWProc (lpmpex->lReturn,lpmpex->lReturn);
LOGDEBUG (0, (" and new lReturn = %08lx\n", lpmpex->lReturn));
}
else {
PARM16 Parm16;
LONG lReturn;
if (!WordBreakProc16) {
W32WordBreakProc = (WBP)(lpmpex->lReturn);
Parm16.SubClassProc.iOrdinal = FUN_WOWWORDBREAKPROC;
if (!CallBack16(RET_SUBCLASSPROC, &Parm16, (VPPROC)NULL,
(PVPVOID)&lReturn)) {
WOW32ASSERT(FALSE);
WordBreakProc16 = lpmpex->lReturn;
}
}
else {
lpmpex->lReturn = WordBreakProc16;
}
}
}
break;
}
}