misc/callback.c

   1 /*
   2  * Function callbacks for the library
   3  *
   4  * Copyright 1997 Alexandre Julliard
   5  */
   6
   7 #include <assert.h>
   8 #include "winuser.h"
   9 #include "callback.h"
  10 #include "task.h"
  11 #include "syslevel.h"
  12 #include "cursoricon.h"
  13 #include "queue.h"
  14 #include "debug.h"
  15
  16
  17 /**********************************************************************
  18  *           CALLBACK_CallWndProc
  19  */
  20 static LRESULT WINAPI CALLBACK_CallWndProc( WNDPROC16 proc, HWND16 hwnd,
  21                                             UINT16 msg, WPARAM16 wParam,
  22                                             LPARAM lParam )
  23 {
  24     return proc( hwnd, msg, wParam, lParam );
  25 }
  26
  27
  28 /**********************************************************************
  29  *           CALLBACK_CallRegisterProc
  30  */
  31 static LONG WINAPI CALLBACK_CallRegisterProc( CONTEXT *context, INT offset)
  32 {
  33     ERR(relay, "Cannot call a register proc in Winelib\n" );
  34     assert( FALSE );
  35     return 0;
  36 }
  37
  38
  39 /**********************************************************************
  40  *           CALLBACK_CallDriverProc
  41  */
  42 static LRESULT WINAPI CALLBACK_CallDriverProc( DRIVERPROC16 proc, DWORD dwId,
  43                                                HDRVR16 hdrvr, UINT16 msg,
  44                                                LPARAM lp1, LPARAM lp2 )
  45 {
  46     return proc( dwId, hdrvr, msg, lp1, lp2 );
  47 }
  48
  49
  50 /**********************************************************************
  51  *           CALLBACK_CallDriverCallback
  52  */
  53 static LRESULT WINAPI CALLBACK_CallDriverCallback( FARPROC16 proc,
  54                                                    HANDLE16 hDev, UINT16 msg,
  55                                                    DWORD dwUser, LPARAM lp1,
  56                                                    LPARAM lp2 )
  57 {
  58     return proc( hDev, msg, dwUser, lp1, lp2 );
  59 }
  60
  61
  62 /**********************************************************************
  63  *           CALLBACK_CallTimeFuncProc
  64  */
  65 static LRESULT WINAPI CALLBACK_CallTimeFuncProc( FARPROC16 proc, WORD id,
  66                                                  UINT16 msg, DWORD dwUser,
  67                                                  LPARAM lp1, LPARAM lp2 )
  68 {
  69     return proc( id, msg, dwUser, lp1, lp2 );
  70 }
  71
  72
  73 /**********************************************************************
  74  *           CALLBACK_CallWindowsExitProc
  75  */
  76 static INT16 WINAPI CALLBACK_CallWindowsExitProc( FARPROC16 proc, INT16 type)
  77 {
  78     return proc( type );
  79 }
  80
  81
  82 /**********************************************************************
  83  *           CALLBACK_CallWordBreakProc
  84  */
  85 static INT16 WINAPI CALLBACK_CallWordBreakProc( EDITWORDBREAKPROC16 proc,
  86                                                 SEGPTR text, INT16 word,
  87                                                 INT16 len, INT16 action )
  88 {
  89     return proc( (LPSTR)text, word, len, action );
  90 }
  91
  92
  93 /**********************************************************************
  94  *           CALLBACK_CallBootAppProc
  95  */
  96 static void WINAPI CALLBACK_CallBootAppProc( FARPROC16 proc, HANDLE16 module,
  97                                              HFILE16 file )
  98 {
  99     proc( module, file );
 100 }
 101
 102
 103 /**********************************************************************
 104  *           CALLBACK_CallLoadAppSegProc
 105  */
 106 static WORD WINAPI CALLBACK_CallLoadAppSegProc( FARPROC16 proc,
 107                                                 HANDLE16 module, HFILE16 file,
 108                                                 WORD seg )
 109 {
 110     return proc( module, file, seg );
 111 }
 112
 113
 114 /**********************************************************************
 115  *           CALLBACK_CallLocalNotifyFunc
 116  */
 117 static WORD WINAPI CALLBACK_CallLocalNotifyFunc( FARPROC16 proc,
 118                                                  WORD wMsg, HLOCAL16 hMem,
 119                                                  WORD wArg )
 120 {
 121     return proc( wMsg, hMem, wArg );
 122 }
 123
 124
 125 /**********************************************************************
 126  *           CALLBACK_CallResourceHandlerProc
 127  */
 128 static HGLOBAL16 WINAPI CALLBACK_CallResourceHandlerProc( FARPROC16 proc,
 129                                                           HGLOBAL16 hMemObj,
 130                                                           HMODULE16 hModule,
 131                                                           HRSRC16 hRsrc )
 132 {
 133     return proc( hMemObj, hModule, hRsrc );
 134 }
 135
 136
 137 /**********************************************************************
 138  *           CALLBACK_CallASPIPostProc
 139  */
 140 static LRESULT WINAPI CALLBACK_CallASPIPostProc( FARPROC16 proc, SEGPTR ptr )
 141 {
 142     return proc( ptr );
 143 }
 144
 145
 146 /**********************************************************************
 147  *           CALLBACK_CallWOWCallbackProc
 148  */
 149 static DWORD WINAPI CALLBACK_CallWOWCallbackProc( FARPROC16 proc, DWORD dw )
 150 {
 151     return proc( dw );
 152 }
 153
 154 /**********************************************************************
 155  *           CALLBACK_CallWOWCallback16Ex
 156  *
 157  * WCB16_MAX_CBARGS (16) is the maximum number of args.
 158  *
 159  * Can call functions using CDECL or PASCAL calling conventions. The CDECL
 160  * ones are reversed (not 100% sure about that).
 161  */
 162 static BOOL WINAPI CALLBACK_CallWOWCallback16Ex(
 163         FARPROC16 proc, DWORD dwFlags, DWORD cbArgs, LPVOID xargs,LPDWORD pdwret
 164 ) {
 165     LPDWORD     args = (LPDWORD)xargs;
 166     DWORD       ret,i;
 167
 168     if (dwFlags == WCB16_CDECL) {
 169         /* swap the arguments */
 170         args = HeapAlloc(GetProcessHeap(),0,cbArgs*sizeof(DWORD));
 171         for (i=0;i<cbArgs;i++)
 172                 args[i] = ((DWORD*)xargs)[cbArgs-i-1];
 173     }
 174     switch (cbArgs) {
 175     case 0: ret = proc();break;
 176     case 1: ret = proc(args[0]);break;
 177     case 2: ret = proc(args[0],args[1]);break;
 178     case 3: ret = proc(args[0],args[1],args[2]);break;
 179     case 4: ret = proc(args[0],args[1],args[2],args[3]);break;
 180     case 5: ret = proc(args[0],args[1],args[2],args[3],args[4]);break;
 181     case 6: ret = proc(args[0],args[1],args[2],args[3],args[4],args[5]);
 182             break;
 183     case 7: ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 184                     args[6]
 185             );
 186             break;
 187     case 8: ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 188                     args[6],args[7]
 189             );
 190             break;
 191     case 9: ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 192                     args[6],args[7],args[8]
 193             );
 194             break;
 195     case 10:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 196                     args[6],args[7],args[8],args[9]
 197             );
 198             break;
 199     case 11:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 200                     args[6],args[7],args[8],args[9],args[10]
 201             );
 202             break;
 203     case 12:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 204                     args[6],args[7],args[8],args[9],args[10],args[11]
 205             );
 206             break;
 207     case 13:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 208                     args[6],args[7],args[8],args[9],args[10],args[11],
 209                     args[12]
 210             );
 211             break;
 212     case 14:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 213                     args[6],args[7],args[8],args[9],args[10],args[11],
 214                     args[12],args[13]
 215             );
 216             break;
 217     case 15:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 218                     args[6],args[7],args[8],args[9],args[10],args[11],
 219                     args[12],args[13],args[14]
 220             );
 221             break;
 222     case 16:ret = proc(args[0],args[1],args[2],args[3],args[4],args[5],
 223                     args[6],args[7],args[8],args[9],args[10],args[11],
 224                     args[12],args[13],args[14],args[15]
 225             );
 226             break;
 227     default:
 228             WARN(relay,"(%ld) arguments not supported.\n",cbArgs);
 229             if (dwFlags == WCB16_CDECL)
 230                 HeapFree(GetProcessHeap(),0,args);
 231             return FALSE;
 232     }
 233     if (dwFlags == WCB16_CDECL)
 234         HeapFree(GetProcessHeap(),0,args);
 235     if (pdwret)
 236         *pdwret = ret;
 237     return TRUE;
 238 }
 239
 240 /**********************************************************************
 241  *           CALLBACK_CallUTProc
 242  */
 243 static DWORD WINAPI CALLBACK_CallUTProc( DWORD w1, DWORD w2 )
 244 {
 245     ERR( relay, "Cannot call a UT thunk proc in Winelib\n" );
 246     assert( FALSE );
 247     return 0;
 248 }
 249
 250 /**********************************************************************
 251  *           CALLBACK_CallTaskRescheduleProc
 252  */
 253 static BOOL WINAPI CALLBACK_CallTaskRescheduleProc( void )
 254 {
 255     BOOL pending;
 256
 257     SYSLEVEL_EnterWin16Lock();
 258     pending = TASK_Reschedule();
 259     SYSLEVEL_LeaveWin16Lock();
 260
 261     return pending;
 262 }
 263
 264
 265 /**********************************************************************
 266  *           CALLBACK_WinelibTable
 267  *
 268  * The callbacks function table for Winelib
 269  */
 270 static const CALLBACKS_TABLE CALLBACK_WinelibTable =
 271 {
 272     CALLBACK_CallRegisterProc,        /* CallRegisterShortProc */
 273     CALLBACK_CallRegisterProc,        /* CallRegisterLongProc */
 274     CALLBACK_CallTaskRescheduleProc,  /* CallTaskRescheduleProc */
 275     NULL,                             /* CallFrom16WndProc */
 276     CALLBACK_CallWndProc,             /* CallWndProc */
 277     CALLBACK_CallDriverProc,          /* CallDriverProc */
 278     CALLBACK_CallDriverCallback,      /* CallDriverCallback */
 279     CALLBACK_CallTimeFuncProc,        /* CallTimeFuncProc */
 280     CALLBACK_CallWindowsExitProc,     /* CallWindowsExitProc */
 281     CALLBACK_CallWordBreakProc,       /* CallWordBreakProc */
 282     CALLBACK_CallBootAppProc,         /* CallBootAppProc */
 283     CALLBACK_CallLoadAppSegProc,      /* CallLoadAppSegProc */
 284     CALLBACK_CallLocalNotifyFunc,     /* CallLocalNotifyFunc */
 285     CALLBACK_CallResourceHandlerProc, /* CallResourceHandlerProc */
 286     CALLBACK_CallWOWCallbackProc,     /* CallWOWCallbackProc */
 287     CALLBACK_CallWOWCallback16Ex,     /* CallWOWCallback16Ex */
 288     CALLBACK_CallUTProc,              /* CallUTProc */
 289     CALLBACK_CallASPIPostProc,        /* CallASPIPostProc */
 290     /* The graphics driver callbacks are never used in Winelib */
 291     NULL,                             /* CallDrvControlProc */
 292     NULL,                             /* CallDrvEnableProc */
 293     NULL,                             /* CallDrvEnumDFontsProc */
 294     NULL,                             /* CallDrvEnumObjProc */
 295     NULL,                             /* CallDrvOutputProc */
 296     NULL,                             /* CallDrvRealizeProc */
 297     NULL,                             /* CallDrvStretchBltProc */
 298     NULL,                             /* CallDrvExtTextOutProc */
 299     NULL,                             /* CallDrvGetCharWidth */
 300     NULL                              /* CallDrvAbortProc */
 301 };
 302
 303 const CALLBACKS_TABLE *Callbacks = &CALLBACK_WinelibTable;
 304
 305
 306 /**********************************************************************
 307  *           CALLOUT_Table
 308  *
 309  * The callout function table for Winelib
 310  */
 311
 312 CALLOUT_TABLE Callout =
 313 {
 314     PeekMessage16, PeekMessageA, PeekMessageW,
 315     GetMessage16, GetMessageA, GetMessageW,
 316     SendMessage16, SendMessageA, SendMessageW,
 317     PostMessage16, PostMessageA, PostMessageW,
 318     PostAppMessage16, PostThreadMessageA, PostThreadMessageW,
 319     TranslateMessage16, TranslateMessage,
 320     DispatchMessage16, DispatchMessageA, DispatchMessageW,
 321     RedrawWindow16, RedrawWindow,
 322     InitThreadInput16,
 323     UserYield16,
 324     CURSORICON_Destroy
 325 };
 326