if1632/thunk.c

   1 /*
   2  * Emulator thunks
   3  *
   4  * Copyright 1996 Alexandre Julliard
   5  */
   6
   7 #include "windows.h"
   8 #include "callback.h"
   9 #include "heap.h"
  10 #include "hook.h"
  11 #include "module.h"
  12 #include "stddebug.h"
  13 #include "debug.h"
  14
  15 typedef void (*RELAY)();
  16
  17 #pragma pack(1)
  18
  19 typedef struct tagTHUNK
  20 {
  21     BYTE             popl_eax;           /* 0x58  popl  %eax (return address)*/
  22     BYTE             pushl_func;         /* 0x68  pushl $proc */
  23     FARPROC32        proc WINE_PACKED;
  24     BYTE             pushl_eax;          /* 0x50  pushl %eax */
  25     BYTE             jmp;                /* 0xe9  jmp   relay (relative jump)*/
  26     RELAY            relay WINE_PACKED;
  27     struct tagTHUNK *next WINE_PACKED;
  28 } THUNK;
  29
  30 #pragma pack(4)
  31
  32 #define DECL_THUNK(name,proc,relay) \
  33     THUNK name = { 0x58, 0x68, (FARPROC32)(proc), 0x50, 0xe9, \
  34                    (RELAY)((char *)(relay) - (char *)(&(name).next)), NULL }
  35
  36
  37 static THUNK *firstThunk = NULL;
  38
  39 /***********************************************************************
  40  *           THUNK_Alloc
  41  */
  42 static THUNK *THUNK_Alloc( FARPROC32 func, RELAY relay )
  43 {
  44     THUNK *thunk = HeapAlloc( SystemHeap, 0, sizeof(*thunk) );
  45     if (thunk)
  46     {
  47         thunk->popl_eax   = 0x58;
  48         thunk->pushl_func = 0x68;
  49         thunk->proc       = func;
  50         thunk->pushl_eax  = 0x50;
  51         thunk->jmp        = 0xe9;
  52         thunk->relay      = (RELAY)((char *)relay - (char *)(&thunk->next));
  53         thunk->next       = firstThunk;
  54         firstThunk = thunk;
  55     }
  56     return thunk;
  57 }
  58
  59
  60 /***********************************************************************
  61  *           THUNK_Find
  62  */
  63 static THUNK *THUNK_Find( FARPROC32 func )
  64 {
  65     THUNK *thunk = firstThunk;
  66     while (thunk && (thunk->proc != func)) thunk = thunk->next;
  67     return thunk;
  68 }
  69
  70
  71 /***********************************************************************
  72  *           THUNK_Free
  73  */
  74 void THUNK_Free( THUNK *thunk )
  75 {
  76     if (HEAP_IsInsideHeap( SystemHeap, 0, thunk ))
  77     {
  78         THUNK **prev = &firstThunk;
  79         while (*prev && (*prev != thunk)) prev = &(*prev)->next;
  80         if (*prev)
  81         {
  82             *prev = thunk->next;
  83             HeapFree( SystemHeap, 0, thunk );
  84             return;
  85         }
  86     }
  87     fprintf( stderr, "THUNK_Free: invalid thunk addr %p\n", thunk );
  88 }
  89
  90
  91 /***********************************************************************
  92  *           THUNK_EnumObjects16   (GDI.71)
  93  */
  94 INT16 THUNK_EnumObjects16( HDC16 hdc, INT16 nObjType,
  95                            GOBJENUMPROC16 func, LPARAM lParam )
  96 {
  97     DECL_THUNK( thunk, func, CallTo16_word_ll );
  98     return EnumObjects16( hdc, nObjType, (GOBJENUMPROC16)&thunk, lParam );
  99 }
 100
 101
 102 /***********************************************************************
 103  *           THUNK_EnumObjects32   (GDI32.89)
 104  */
 105 INT32 THUNK_EnumObjects32( HDC32 hdc, INT32 nObjType,
 106                            GOBJENUMPROC32 func, LPARAM lParam )
 107 {
 108     DECL_THUNK( thunk, func, CallTo32_4 );
 109     return EnumObjects32( hdc, nObjType, (GOBJENUMPROC32)&thunk, lParam );
 110 }
 111
 112
 113 /*************************************************************************
 114  *           THUNK_EnumFonts16   (GDI.70)
 115  */
 116 INT16 THUNK_EnumFonts16( HDC16 hdc, LPCSTR lpFaceName,
 117                          FONTENUMPROC16 func, LPARAM lParam )
 118 {
 119     DECL_THUNK( thunk, func, CallTo16_word_llwl );
 120     return EnumFonts( hdc, lpFaceName, (FONTENUMPROC16)&thunk, lParam );
 121 }
 122
 123
 124 /******************************************************************
 125  *           THUNK_EnumMetaFile16   (GDI.175)
 126  */
 127 BOOL16 THUNK_EnumMetaFile16( HDC16 hdc, HMETAFILE16 hmf,
 128                              MFENUMPROC16 func, LPARAM lParam )
 129 {
 130     DECL_THUNK( thunk, func, CallTo16_word_wllwl );
 131     return EnumMetaFile( hdc, hmf, (MFENUMPROC16)&thunk, lParam );
 132 }
 133
 134
 135 /*************************************************************************
 136  *           THUNK_EnumFontFamilies16   (GDI.330)
 137  */
 138 INT16 THUNK_EnumFontFamilies16( HDC16 hdc, LPCSTR lpszFamily,
 139                                 FONTENUMPROC16 func, LPARAM lParam )
 140 {
 141     DECL_THUNK( thunk, func, CallTo16_word_llwl );
 142     return EnumFontFamilies( hdc, lpszFamily, (FONTENUMPROC16)&thunk, lParam );
 143 }
 144
 145
 146 /**********************************************************************
 147  *           THUNK_LineDDA16   (GDI.100)
 148  */
 149 void THUNK_LineDDA16( INT16 nXStart, INT16 nYStart, INT16 nXEnd, INT16 nYEnd,
 150                       LINEDDAPROC16 func, LPARAM lParam )
 151 {
 152     DECL_THUNK( thunk, func, CallTo16_word_wwl );
 153     LineDDA16( nXStart, nYStart, nXEnd, nYEnd, (LINEDDAPROC16)&thunk, lParam );
 154 }
 155
 156
 157 /**********************************************************************
 158  *           THUNK_LineDDA32   (GDI32.248)
 159  */
 160 BOOL32 THUNK_LineDDA32( INT32 nXStart, INT32 nYStart, INT32 nXEnd, INT32 nYEnd,
 161                         LINEDDAPROC32 func, LPARAM lParam )
 162 {
 163     DECL_THUNK( thunk, func, CallTo32_3 );
 164     return LineDDA32( nXStart, nYStart, nXEnd, nYEnd,
 165                       (LINEDDAPROC32)&thunk, lParam );
 166 }
 167
 168
 169 /*******************************************************************
 170  *           THUNK_EnumWindows16   (USER.54)
 171  */
 172 BOOL16 THUNK_EnumWindows16( WNDENUMPROC16 func, LPARAM lParam )
 173 {
 174     DECL_THUNK( thunk, func, CallTo16_word_wl );
 175     return EnumWindows16( (WNDENUMPROC16)&thunk, lParam );
 176 }
 177
 178
 179 /*******************************************************************
 180  *           THUNK_EnumWindows32   (USER32.192)
 181  */
 182 BOOL32 THUNK_EnumWindows32( WNDENUMPROC32 func, LPARAM lParam )
 183 {
 184     DECL_THUNK( thunk, func, CallTo32_2 );
 185     return EnumWindows32( (WNDENUMPROC32)&thunk, lParam );
 186 }
 187
 188
 189 /**********************************************************************
 190  *           THUNK_EnumChildWindows16   (USER.55)
 191  */
 192 BOOL16 THUNK_EnumChildWindows16( HWND16 parent, WNDENUMPROC16 func,
 193                                  LPARAM lParam )
 194 {
 195     DECL_THUNK( thunk, func, CallTo16_word_wl );
 196     return EnumChildWindows16( parent, (WNDENUMPROC16)&thunk, lParam );
 197 }
 198
 199
 200 /**********************************************************************
 201  *           THUNK_EnumChildWindows32   (USER32.177)
 202  */
 203 BOOL32 THUNK_EnumChildWindows32( HWND32 parent, WNDENUMPROC32 func,
 204                                  LPARAM lParam )
 205 {
 206     DECL_THUNK( thunk, func, CallTo32_2 );
 207     return EnumChildWindows32( parent, (WNDENUMPROC32)&thunk, lParam );
 208 }
 209
 210
 211 /**********************************************************************
 212  *           THUNK_EnumTaskWindows16   (USER.225)
 213  */
 214 BOOL16 THUNK_EnumTaskWindows16( HTASK16 hTask, WNDENUMPROC16 func,
 215                                 LPARAM lParam )
 216 {
 217     DECL_THUNK( thunk, func, CallTo16_word_wl );
 218     return EnumTaskWindows16( hTask, (WNDENUMPROC16)&thunk, lParam );
 219 }
 220
 221
 222 /**********************************************************************
 223  *           THUNK_EnumThreadWindows   (USER32.189)
 224  */
 225 BOOL32 THUNK_EnumThreadWindows( DWORD id, WNDENUMPROC32 func, LPARAM lParam )
 226 {
 227     DECL_THUNK( thunk, func, CallTo32_2 );
 228     return EnumThreadWindows( id, (WNDENUMPROC32)&thunk, lParam );
 229 }
 230
 231
 232 /***********************************************************************
 233  *           THUNK_EnumProps16   (USER.27)
 234  */
 235 INT16 THUNK_EnumProps16( HWND16 hwnd, PROPENUMPROC16 func )
 236 {
 237     DECL_THUNK( thunk, func, CallTo16_word_wlw );
 238     return EnumProps16( hwnd, (PROPENUMPROC16)&thunk );
 239 }
 240
 241
 242 /***********************************************************************
 243  *           THUNK_EnumProps32A   (USER32.185)
 244  */
 245 INT32 THUNK_EnumProps32A( HWND32 hwnd, PROPENUMPROC32A func )
 246 {
 247     DECL_THUNK( thunk, func, CallTo32_3 );
 248     return EnumProps32A( hwnd, (PROPENUMPROC32A)&thunk );
 249 }
 250
 251
 252 /***********************************************************************
 253  *           THUNK_EnumProps32W   (USER32.188)
 254  */
 255 INT32 THUNK_EnumProps32W( HWND32 hwnd, PROPENUMPROC32W func )
 256 {
 257     DECL_THUNK( thunk, func, CallTo32_3 );
 258     return EnumProps32W( hwnd, (PROPENUMPROC32W)&thunk );
 259 }
 260
 261
 262 /***********************************************************************
 263  *           THUNK_EnumPropsEx32A   (USER32.186)
 264  */
 265 INT32 THUNK_EnumPropsEx32A( HWND32 hwnd, PROPENUMPROCEX32A func, LPARAM lParam)
 266 {
 267     DECL_THUNK( thunk, func, CallTo32_4 );
 268     return EnumPropsEx32A( hwnd, (PROPENUMPROCEX32A)&thunk, lParam );
 269 }
 270
 271
 272 /***********************************************************************
 273  *           THUNK_EnumPropsEx32W   (USER32.187)
 274  */
 275 INT32 THUNK_EnumPropsEx32W( HWND32 hwnd, PROPENUMPROCEX32W func, LPARAM lParam)
 276 {
 277     DECL_THUNK( thunk, func, CallTo32_4 );
 278     return EnumPropsEx32W( hwnd, (PROPENUMPROCEX32W)&thunk, lParam );
 279 }
 280
 281
 282 /***********************************************************************
 283  *           THUNK_GrayString16   (USER.185)
 284  */
 285 BOOL16 THUNK_GrayString16( HDC16 hdc, HBRUSH16 hbr, GRAYSTRINGPROC16 func,
 286                            LPARAM lParam, INT16 cch, INT16 x, INT16 y,
 287                            INT16 cx, INT16 cy )
 288 {
 289     DECL_THUNK( thunk, func, CallTo16_word_wlw );
 290     if (!func)
 291         return GrayString( hdc, hbr, NULL, lParam, cch, x, y, cx, cy );
 292     else
 293         return GrayString( hdc, hbr, (GRAYSTRINGPROC16)&thunk, lParam, cch,
 294                            x, y, cx, cy );
 295 }
 296
 297
 298 /***********************************************************************
 299  *           THUNK_SetWindowsHook16   (USER.121)
 300  */
 301 FARPROC16 THUNK_SetWindowsHook16( INT16 id, HOOKPROC16 proc )
 302 {
 303     HINSTANCE16 hInst = FarGetOwner( HIWORD(proc) );
 304     HTASK16 hTask = (id == WH_MSGFILTER) ? GetCurrentTask() : 0;
 305     THUNK *thunk = THUNK_Alloc( (FARPROC16)proc, (RELAY)CallTo16_long_wwl );
 306     if (!thunk) return 0;
 307     return (FARPROC16)SetWindowsHookEx16( id, (HOOKPROC16)thunk, hInst, hTask);
 308 }
 309
 310
 311 /***********************************************************************
 312  *           THUNK_UnhookWindowsHook16   (USER.234)
 313  */
 314 BOOL16 THUNK_UnhookWindowsHook16( INT16 id, HOOKPROC16 proc )
 315 {
 316     BOOL16 ret;
 317     THUNK *thunk = THUNK_Find( (FARPROC16)proc );
 318     if (!thunk) return FALSE;
 319     ret = UnhookWindowsHook16( id, (HOOKPROC16)thunk );
 320     THUNK_Free( thunk );
 321     return ret;
 322 }
 323
 324
 325 /***********************************************************************
 326  *           THUNK_SetWindowsHookEx16   (USER.291)
 327  */
 328 HHOOK THUNK_SetWindowsHookEx16( INT16 id, HOOKPROC16 proc, HINSTANCE16 hInst,
 329                                 HTASK16 hTask )
 330 {
 331     THUNK *thunk = THUNK_Alloc( (FARPROC16)proc, (RELAY)CallTo16_long_wwl );
 332     if (!thunk) return 0;
 333     return SetWindowsHookEx16( id, (HOOKPROC16)thunk, hInst, hTask );
 334 }
 335
 336
 337 /***********************************************************************
 338  *           THUNK_UnhookWindowHookEx16   (USER.292)
 339  */
 340 BOOL16 THUNK_UnhookWindowsHookEx16( HHOOK hhook )
 341 {
 342     THUNK *thunk = (THUNK *)HOOK_GetProc16( hhook );
 343     BOOL16 ret = UnhookWindowsHookEx16( hhook );
 344     if (thunk) THUNK_Free( thunk );
 345     return ret;
 346 }
 347
 348
 349 static FARPROC16 defDCHookProc = NULL;
 350
 351 /***********************************************************************
 352  *           THUNK_SetDCHook   (GDI.190)
 353  */
 354 BOOL16 THUNK_SetDCHook( HDC16 hdc, FARPROC16 proc, DWORD dwHookData )
 355 {
 356     THUNK *thunk, *oldThunk;
 357
 358     if (!defDCHookProc)  /* Get DCHook Win16 entry point */
 359         defDCHookProc = MODULE_GetEntryPoint( GetModuleHandle("USER"), 362 );
 360
 361     if (proc != defDCHookProc)
 362     {
 363         thunk = THUNK_Alloc( proc, (RELAY)CallTo16_word_wwll );
 364         if (!thunk) return FALSE;
 365     }
 366     else thunk = (THUNK *)DCHook;
 367
 368     /* Free the previous thunk */
 369     GetDCHook( hdc, (FARPROC16 *)&oldThunk );
 370     if (oldThunk && (oldThunk != (THUNK *)DCHook)) THUNK_Free( oldThunk );
 371
 372     return SetDCHook( hdc, (FARPROC16)thunk, dwHookData );
 373 }
 374
 375
 376 /***********************************************************************
 377  *           THUNK_GetDCHook   (GDI.191)
 378  */
 379 DWORD THUNK_GetDCHook( HDC16 hdc, FARPROC16 *phookProc )
 380 {
 381     THUNK *thunk = NULL;
 382     DWORD ret = GetDCHook( hdc, (FARPROC16 *)&thunk );
 383     if (thunk)
 384     {
 385         if (thunk == (THUNK *)DCHook)
 386         {
 387             if (!defDCHookProc)  /* Get DCHook Win16 entry point */
 388                 defDCHookProc = MODULE_GetEntryPoint( GetModuleHandle("USER"),
 389                                                       362 );
 390             *phookProc = defDCHookProc;
 391         }
 392         else *phookProc = thunk->proc;
 393     }
 394     return ret;
 395 }
 396
 397
 398 struct thunkstruct
 399 {
 400         char    magic[4];
 401         DWORD   x1;
 402         DWORD   x2;
 403 };
 404
 405 UINT32 ThunkConnect32( struct thunkstruct *ths, LPSTR thunkfun16,
 406                        LPSTR module16, LPSTR module32, HMODULE32 hmod32,
 407                        DWORD dllinitarg1 )
 408 {
 409         HINSTANCE16     hmm;
 410
 411         fprintf(stdnimp,"ThunkConnect32(<struct>,%s,%s,%s,%x,%lx)\n",
 412                 thunkfun16,module32,module16,hmod32,dllinitarg1
 413         );
 414         fprintf(stdnimp,"       magic = %c%c%c%c\n",
 415                 ths->magic[0],
 416                 ths->magic[1],
 417                 ths->magic[2],
 418                 ths->magic[3]
 419         );
 420         fprintf(stdnimp,"       x1 = %lx\n",ths->x1);
 421         fprintf(stdnimp,"       x2 = %lx\n",ths->x2);
 422         hmm=LoadModule(module16,NULL);
 423         return TRUE;
 424 }