git.oblomov.eu Git - wine/blob - loader/resource.c

   1 /*
   2  * Resources
   3  *
   4  * Copyright 1993 Robert J. Amstadt
   5  * Copyright 1995 Alexandre Julliard
   6  */
   7
   8 #include <assert.h>
   9 #include <stdlib.h>
  10 #include <string.h>
  11 #include <sys/types.h>
  12 #include <sys/stat.h>
  13 #include <fcntl.h>
  14 #include <unistd.h>
  15 #include "winbase.h"
  16 #include "windef.h"
  17 #include "winuser.h"
  18 #include "wine/winbase16.h"
  19 #include "wine/winuser16.h"
  20 #include "gdi.h"
  21 #include "global.h"
  22 #include "heap.h"
  23 #include "callback.h"
  24 #include "cursoricon.h"
  25 #include "neexe.h"
  26 #include "task.h"
  27 #include "process.h"
  28 #include "module.h"
  29 #include "file.h"
  30 #include "debug.h"
  31 #include "libres.h"
  32 #include "winerror.h"
  33 #include "debugstr.h"
  34
  35 extern WORD WINE_LanguageId;
  36
  37 #define HRSRC_MAP_BLOCKSIZE 16
  38
  39 typedef struct _HRSRC_ELEM
  40 {
  41     HANDLE hRsrc;
  42     WORD     type;
  43 } HRSRC_ELEM;
  44
  45 typedef struct _HRSRC_MAP
  46 {
  47     int nAlloc;
  48     int nUsed;
  49     HRSRC_ELEM *elem;
  50 } HRSRC_MAP;
  51
  52 /**********************************************************************
  53  *          MapHRsrc32To16
  54  */
  55 static HRSRC16 MapHRsrc32To16( NE_MODULE *pModule, HANDLE hRsrc32, WORD type )
  56 {
  57     HRSRC_MAP *map = (HRSRC_MAP *)pModule->hRsrcMap;
  58     HRSRC_ELEM *newElem;
  59     int i;
  60
  61     /* On first call, initialize HRSRC map */
  62     if ( !map )
  63     {
  64         if ( !(map = (HRSRC_MAP *)HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
  65                                              sizeof(HRSRC_MAP) ) ) )
  66         {
  67             ERR( resource, "Cannot allocate HRSRC map\n" );
  68             return 0;
  69         }
  70         pModule->hRsrcMap = (LPVOID)map;
  71     }
  72
  73     /* Check whether HRSRC32 already in map */
  74     for ( i = 0; i < map->nUsed; i++ )
  75         if ( map->elem[i].hRsrc == hRsrc32 )
  76             return (HRSRC16)(i + 1);
  77
  78     /* If no space left, grow table */
  79     if ( map->nUsed == map->nAlloc )
  80     {
  81         if ( !(newElem = (HRSRC_ELEM *)HeapReAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
  82                                                     map->elem,
  83                                                     (map->nAlloc + HRSRC_MAP_BLOCKSIZE)
  84                                                     * sizeof(HRSRC_ELEM) ) ))
  85         {
  86             ERR( resource, "Cannot grow HRSRC map\n" );
  87             return 0;
  88         }
  89         map->elem = newElem;
  90         map->nAlloc += HRSRC_MAP_BLOCKSIZE;
  91     }
  92
  93     /* Add HRSRC32 to table */
  94     map->elem[map->nUsed].hRsrc = hRsrc32;
  95     map->elem[map->nUsed].type  = type;
  96     map->nUsed++;
  97
  98     return (HRSRC16)map->nUsed;
  99 }
 100
 101 /**********************************************************************
 102  *          MapHRsrc16To32
 103  */
 104 static HANDLE MapHRsrc16To32( NE_MODULE *pModule, HRSRC16 hRsrc16 )
 105 {
 106     HRSRC_MAP *map = (HRSRC_MAP *)pModule->hRsrcMap;
 107     if ( !map || !hRsrc16 || (int)hRsrc16 > map->nUsed ) return 0;
 108
 109     return map->elem[(int)hRsrc16-1].hRsrc;
 110 }
 111
 112 /**********************************************************************
 113  *          MapHRsrc16ToType
 114  */
 115 static WORD MapHRsrc16ToType( NE_MODULE *pModule, HRSRC16 hRsrc16 )
 116 {
 117     HRSRC_MAP *map = (HRSRC_MAP *)pModule->hRsrcMap;
 118     if ( !map || !hRsrc16 || (int)hRsrc16 > map->nUsed ) return 0;
 119
 120     return map->elem[(int)hRsrc16-1].type;
 121 }
 122
 123
 124 /**********************************************************************
 125  *          RES_FindResource
 126  */
 127 static HRSRC RES_FindResource( HMODULE hModule, LPCSTR type,
 128                                LPCSTR name, WORD lang,
 129                                BOOL bUnicode, BOOL bRet16 )
 130 {
 131     HRSRC hRsrc = 0;
 132
 133     HMODULE16 hMod16   = MapHModuleLS( hModule );
 134     NE_MODULE *pModule = NE_GetPtr( hMod16 );
 135     WINE_MODREF *wm    = pModule && pModule->module32?
 136                          MODULE32_LookupHMODULE( pModule->module32 ) : NULL;
 137
 138     TRACE( resource, "(%08x %s, %08x%s, %08x%s, %04x, %s, %s)\n",
 139            hModule, NE_MODULE_NAME(pModule),
 140            (UINT)type, HIWORD(type)? (bUnicode? debugstr_w((LPWSTR)type) : debugstr_a(type)) : "",
 141            (UINT)name, HIWORD(name)? (bUnicode? debugstr_w((LPWSTR)name) : debugstr_a(name)) : "",
 142            lang,
 143            bUnicode? "W"  : "A",
 144            bRet16?   "NE" : "PE" );
 145
 146     if ( !pModule ) return 0;
 147
 148     if ( wm )
 149     {
 150         /* 32-bit PE/ELF module */
 151         LPWSTR typeStr, nameStr;
 152
 153         if ( HIWORD( type ) && !bUnicode )
 154             typeStr = HEAP_strdupAtoW( GetProcessHeap(), 0, type );
 155         else
 156             typeStr = (LPWSTR)type;
 157         if ( HIWORD( name ) && !bUnicode )
 158             nameStr = HEAP_strdupAtoW( GetProcessHeap(), 0, name );
 159         else
 160             nameStr = (LPWSTR)name;
 161
 162         switch ( wm->type )
 163         {
 164         case MODULE32_PE:
 165             hRsrc = PE_FindResourceExW( wm, nameStr, typeStr, lang );
 166             break;
 167
 168         case MODULE32_ELF:
 169             hRsrc = LIBRES_FindResource( hModule, nameStr, typeStr );
 170             break;
 171
 172         default:
 173             ERR( resource, "unknown module type %d\n", wm->type );
 174             break;
 175         }
 176
 177         if ( HIWORD( type ) && !bUnicode )
 178             HeapFree( GetProcessHeap(), 0, typeStr );
 179         if ( HIWORD( name ) && !bUnicode )
 180             HeapFree( GetProcessHeap(), 0, nameStr );
 181
 182
 183         /* If we need to return 16-bit HRSRC, perform conversion */
 184         if ( bRet16 )
 185             hRsrc = MapHRsrc32To16( pModule, hRsrc,
 186                                     HIWORD( type )? 0 : LOWORD( type ) );
 187     }
 188     else
 189     {
 190         /* 16-bit NE module */
 191         LPSTR typeStr, nameStr;
 192
 193         if ( HIWORD( type ) && bUnicode )
 194             typeStr = HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)type );
 195         else
 196             typeStr = (LPSTR)type;
 197         if ( HIWORD( name ) && bUnicode )
 198             nameStr = HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)name );
 199         else
 200             nameStr = (LPSTR)name;
 201
 202         hRsrc = NE_FindResource( pModule, nameStr, typeStr );
 203
 204         if ( HIWORD( type ) && bUnicode )
 205             HeapFree( GetProcessHeap(), 0, typeStr );
 206         if ( HIWORD( name ) && bUnicode )
 207             HeapFree( GetProcessHeap(), 0, nameStr );
 208
 209
 210         /* If we need to return 32-bit HRSRC, no conversion is necessary,
 211            we simply use the 16-bit HRSRC as 32-bit HRSRC */
 212     }
 213
 214     return hRsrc;
 215 }
 216
 217 /**********************************************************************
 218  *          RES_SizeofResource
 219  */
 220 static DWORD RES_SizeofResource( HMODULE hModule, HRSRC hRsrc, BOOL bRet16 )
 221 {
 222     DWORD size = 0;
 223
 224     HMODULE16 hMod16   = MapHModuleLS( hModule );
 225     NE_MODULE *pModule = NE_GetPtr( hMod16 );
 226     WINE_MODREF *wm    = pModule && pModule->module32?
 227                          MODULE32_LookupHMODULE( pModule->module32 ) : NULL;
 228
 229     TRACE( resource, "(%08x %s, %08x, %s)\n",
 230            hModule, NE_MODULE_NAME(pModule), hRsrc, bRet16? "NE" : "PE" );
 231
 232     if ( !pModule || !hRsrc ) return 0;
 233
 234     if ( wm )
 235     {
 236         /* 32-bit PE/ELF module */
 237
 238         /* If we got a 16-bit hRsrc, convert it */
 239         HRSRC hRsrc32 = HIWORD(hRsrc)? hRsrc : MapHRsrc16To32( pModule, hRsrc );
 240
 241         switch ( wm->type )
 242         {
 243         case MODULE32_PE:
 244             size = PE_SizeofResource( hModule, hRsrc32 );
 245             break;
 246
 247         case MODULE32_ELF:
 248             size = LIBRES_SizeofResource( hModule, hRsrc32 );
 249             break;
 250
 251         default:
 252             ERR( resource, "unknown module type %d\n", wm->type );
 253             break;
 254         }
 255     }
 256     else
 257     {
 258         /* 16-bit NE module */
 259
 260         /* If we got a 32-bit hRsrc, we don't need to convert it */
 261
 262         size = NE_AccessResource( pModule, hRsrc );
 263     }
 264
 265     return size;
 266 }
 267
 268 /**********************************************************************
 269  *          RES_AccessResource
 270  */
 271 static HFILE RES_AccessResource( HMODULE hModule, HRSRC hRsrc, BOOL bRet16 )
 272 {
 273     HFILE hFile = HFILE_ERROR;
 274
 275     HMODULE16 hMod16   = MapHModuleLS( hModule );
 276     NE_MODULE *pModule = NE_GetPtr( hMod16 );
 277     WINE_MODREF *wm    = pModule && pModule->module32?
 278                          MODULE32_LookupHMODULE( pModule->module32 ) : NULL;
 279
 280     TRACE( resource, "(%08x %s, %08x, %s)\n",
 281            hModule, NE_MODULE_NAME(pModule), hRsrc, bRet16? "NE" : "PE" );
 282
 283     if ( !pModule || !hRsrc ) return HFILE_ERROR;
 284
 285     if ( wm )
 286     {
 287         /* 32-bit PE/ELF module */
 288 #if 0
 289         /* If we got a 16-bit hRsrc, convert it */
 290         HRSRC hRsrc32 = HIWORD(hRsrc)? hRsrc : MapHRsrc16To32( pModule, hRsrc );
 291 #endif
 292
 293         FIXME( resource, "32-bit modules not yet supported.\n" );
 294         hFile = HFILE_ERROR;
 295
 296         /* If we need to return a 16-bit file handle, convert it */
 297         if ( bRet16 )
 298             hFile = FILE_AllocDosHandle( hFile );
 299     }
 300     else
 301     {
 302         /* 16-bit NE module */
 303
 304         /* If we got a 32-bit hRsrc, we don't need to convert it */
 305
 306         hFile = NE_AccessResource( pModule, hRsrc );
 307
 308         /* If we are to return a 32-bit file handle, convert it */
 309         if ( !bRet16 )
 310             hFile = FILE_GetHandle( hFile );
 311     }
 312
 313     return hFile;
 314 }
 315
 316 /**********************************************************************
 317  *          RES_LoadResource
 318  */
 319 static HGLOBAL RES_LoadResource( HMODULE hModule, HRSRC hRsrc, BOOL bRet16 )
 320 {
 321     HGLOBAL hMem = 0;
 322
 323     HMODULE16 hMod16   = MapHModuleLS( hModule );
 324     NE_MODULE *pModule = NE_GetPtr( hMod16 );
 325     WINE_MODREF *wm    = pModule && pModule->module32?
 326                          MODULE32_LookupHMODULE( pModule->module32 ) : NULL;
 327
 328     TRACE( resource, "(%08x %s, %08x, %s)\n",
 329            hModule, NE_MODULE_NAME(pModule), hRsrc, bRet16? "NE" : "PE" );
 330
 331     if ( !pModule || !hRsrc ) return 0;
 332
 333     if ( wm )
 334     {
 335         /* 32-bit PE/ELF module */
 336
 337         /* If we got a 16-bit hRsrc, convert it */
 338         HRSRC hRsrc32 = HIWORD(hRsrc)? hRsrc : MapHRsrc16To32( pModule, hRsrc );
 339
 340         switch ( wm->type )
 341         {
 342         case MODULE32_PE:
 343             hMem = PE_LoadResource( wm, hRsrc32 );
 344             break;
 345
 346         case MODULE32_ELF:
 347             hMem = LIBRES_LoadResource( hModule, hRsrc32 );
 348             break;
 349
 350         default:
 351             ERR( resource, "unknown module type %d\n", wm->type );
 352             break;
 353         }
 354
 355         /* If we need to return a 16-bit resource, convert it */
 356         if ( bRet16 )
 357         {
 358             WORD type   = MapHRsrc16ToType( pModule, hRsrc );
 359             DWORD size  = SizeofResource( hModule, hRsrc );
 360             LPVOID bits = LockResource( hMem );
 361
 362             hMem = NE_LoadPEResource( pModule, type, bits, size );
 363         }
 364     }
 365     else
 366     {
 367         /* 16-bit NE module */
 368
 369         /* If we got a 32-bit hRsrc, we don't need to convert it */
 370
 371         hMem = NE_LoadResource( pModule, hRsrc );
 372
 373         /* If we are to return a 32-bit resource, we should probably
 374            convert it but we don't for now.  FIXME !!! */
 375     }
 376
 377     return hMem;
 378 }
 379
 380 /**********************************************************************
 381  *          RES_LockResource
 382  */
 383 static LPVOID RES_LockResource( HGLOBAL handle, BOOL bRet16 )
 384 {
 385     LPVOID bits = NULL;
 386
 387     TRACE( resource, "(%08x, %s)\n", handle, bRet16? "NE" : "PE" );
 388
 389     if ( HIWORD( handle ) )
 390     {
 391         /* 32-bit memory handle */
 392
 393         if ( bRet16 )
 394             FIXME( resource, "can't return SEGPTR to 32-bit resource %08x.\n", handle );
 395         else
 396             bits = (LPVOID)handle;
 397     }
 398     else
 399     {
 400         /* 16-bit memory handle */
 401
 402         /* May need to reload the resource if discarded */
 403         SEGPTR segPtr = WIN16_GlobalLock16( handle );
 404
 405         if ( bRet16 )
 406             bits = (LPVOID)segPtr;
 407         else
 408             bits = PTR_SEG_TO_LIN( segPtr );
 409     }
 410
 411     return bits;
 412 }
 413
 414 /**********************************************************************
 415  *          RES_FreeResource
 416  */
 417 static BOOL RES_FreeResource( HGLOBAL handle )
 418 {
 419     HGLOBAL retv = handle;
 420
 421     TRACE( resource, "(%08x)\n", handle );
 422
 423     if ( HIWORD( handle ) )
 424     {
 425         /* 32-bit memory handle: nothing to do */
 426     }
 427     else
 428     {
 429         /* 16-bit memory handle */
 430         NE_MODULE *pModule = NE_GetPtr( FarGetOwner16( handle ) );
 431
 432         /* Try NE resource first */
 433         retv = NE_FreeResource( pModule, handle );
 434
 435         /* If this failed, call USER.DestroyIcon32; this will check
 436            whether it is a shared cursor/icon; if not it will call
 437            GlobalFree16() */
 438         if ( retv )
 439             if ( Callout.DestroyIcon32 )
 440                 retv = Callout.DestroyIcon32( handle, CID_RESOURCE );
 441             else
 442                 retv = GlobalFree16( handle );
 443     }
 444
 445     return (BOOL)retv;
 446 }
 447
 448
 449 /**********************************************************************
 450  *          FindResource16   (KERNEL.60)
 451  */
 452 HRSRC16 WINAPI FindResource16( HMODULE16 hModule, SEGPTR name, SEGPTR type )
 453 {
 454     LPCSTR nameStr = HIWORD(name)? PTR_SEG_TO_LIN(name) : (LPCSTR)name;
 455     LPCSTR typeStr = HIWORD(type)? PTR_SEG_TO_LIN(type) : (LPCSTR)type;
 456
 457     return RES_FindResource( hModule, typeStr, nameStr,
 458                              WINE_LanguageId, FALSE, TRUE );
 459 }
 460
 461 /**********************************************************************
 462  *          FindResourceA    (KERNEL32.128)
 463  */
 464 HANDLE WINAPI FindResourceA( HMODULE hModule, LPCSTR name, LPCSTR type )
 465 {
 466     return RES_FindResource( hModule, type, name,
 467                              WINE_LanguageId, FALSE, FALSE );
 468 }
 469
 470 /**********************************************************************
 471  *          FindResourceExA  (KERNEL32.129)
 472  */
 473 HANDLE WINAPI FindResourceExA( HMODULE hModule,
 474                                LPCSTR type, LPCSTR name, WORD lang )
 475 {
 476     return RES_FindResource( hModule, type, name,
 477                              lang, FALSE, FALSE );
 478 }
 479
 480 /**********************************************************************
 481  *          FindResourceExW  (KERNEL32.130)
 482  */
 483 HRSRC WINAPI FindResourceExW( HMODULE hModule,
 484                               LPCWSTR type, LPCWSTR name, WORD lang )
 485 {
 486     return RES_FindResource( hModule, (LPCSTR)type, (LPCSTR)name,
 487                              lang, TRUE, FALSE );
 488 }
 489
 490 /**********************************************************************
 491  *          FindResourceW    (KERNEL32.131)
 492  */
 493 HRSRC WINAPI FindResourceW(HINSTANCE hModule, LPCWSTR name, LPCWSTR type)
 494 {
 495     return RES_FindResource( hModule, (LPCSTR)type, (LPCSTR)name,
 496                              WINE_LanguageId, TRUE, FALSE );
 497 }
 498
 499 /**********************************************************************
 500  *          LoadResource16   (KERNEL.61)
 501  */
 502 HGLOBAL16 WINAPI LoadResource16( HMODULE16 hModule, HRSRC16 hRsrc )
 503 {
 504     return RES_LoadResource( hModule, hRsrc, TRUE );
 505 }
 506
 507 /**********************************************************************
 508  *          LoadResource     (KERNEL32.370)
 509  */
 510 HGLOBAL WINAPI LoadResource( HINSTANCE hModule, HRSRC hRsrc )
 511 {
 512     return RES_LoadResource( hModule, hRsrc, FALSE );
 513 }
 514
 515 /**********************************************************************
 516  *          LockResource16   (KERNEL.62)
 517  */
 518 SEGPTR WINAPI WIN16_LockResource16( HGLOBAL16 handle )
 519 {
 520     return (SEGPTR)RES_LockResource( handle, TRUE );
 521 }
 522 LPVOID WINAPI LockResource16( HGLOBAL16 handle )
 523 {
 524     return RES_LockResource( handle, FALSE );
 525 }
 526
 527 /**********************************************************************
 528  *          LockResource     (KERNEL32.384)
 529  */
 530 LPVOID WINAPI LockResource( HGLOBAL handle )
 531 {
 532     return RES_LockResource( handle, FALSE );
 533 }
 534
 535 /**********************************************************************
 536  *          FreeResource16   (KERNEL.63)
 537  */
 538 BOOL16 WINAPI FreeResource16( HGLOBAL16 handle )
 539 {
 540     return RES_FreeResource( handle );
 541 }
 542
 543 /**********************************************************************
 544  *          FreeResource     (KERNEL32.145)
 545  */
 546 BOOL WINAPI FreeResource( HGLOBAL handle )
 547 {
 548     return RES_FreeResource( handle );
 549 }
 550
 551 /**********************************************************************
 552  *          AccessResource16 (KERNEL.64)
 553  */
 554 INT16 WINAPI AccessResource16( HINSTANCE16 hModule, HRSRC16 hRsrc )
 555 {
 556     return RES_AccessResource( hModule, hRsrc, TRUE );
 557 }
 558
 559 /**********************************************************************
 560  *          AccessResource   (KERNEL32.64)
 561  */
 562 INT WINAPI AccessResource( HMODULE hModule, HRSRC hRsrc )
 563 {
 564     return RES_AccessResource( hModule, hRsrc, FALSE );
 565 }
 566
 567 /**********************************************************************
 568  *          SizeofResource16 (KERNEL.65)
 569  */
 570 DWORD WINAPI SizeofResource16( HMODULE16 hModule, HRSRC16 hRsrc )
 571 {
 572     return RES_SizeofResource( hModule, hRsrc, TRUE );
 573 }
 574
 575 /**********************************************************************
 576  *          SizeofResource   (KERNEL32.522)
 577  */
 578 DWORD WINAPI SizeofResource( HINSTANCE hModule, HRSRC hRsrc )
 579 {
 580     return RES_SizeofResource( hModule, hRsrc, FALSE );
 581 }
 582
 583
 584
 585 /**********************************************************************
 586  *                      LoadAccelerators16      [USER.177]
 587  */
 588 HACCEL16 WINAPI LoadAccelerators16(HINSTANCE16 instance, SEGPTR lpTableName)
 589 {
 590     HRSRC16     hRsrc;
 591
 592     if (HIWORD(lpTableName))
 593         TRACE(accel, "%04x '%s'\n",
 594                       instance, (char *)PTR_SEG_TO_LIN( lpTableName ) );
 595     else
 596         TRACE(accel, "%04x %04x\n",
 597                        instance, LOWORD(lpTableName) );
 598
 599     if (!(hRsrc = FindResource16( instance, lpTableName, RT_ACCELERATOR16 ))) {
 600       WARN(accel, "couldn't find accelerator table resource\n");
 601       return 0;
 602     }
 603
 604     TRACE(accel, "returning HACCEL 0x%x\n", hRsrc);
 605     return LoadResource16(instance,hRsrc);
 606 }
 607
 608 /**********************************************************************
 609  *                      LoadAccelerators32W     [USER.177]
 610  * The image layout seems to look like this (not 100% sure):
 611  * 00:  BYTE    type            type of accelerator
 612  * 01:  BYTE    pad             (to WORD boundary)
 613  * 02:  WORD    event
 614  * 04:  WORD    IDval
 615  * 06:  WORD    pad             (to DWORD boundary)
 616  */
 617 HACCEL WINAPI LoadAcceleratorsW(HINSTANCE instance,LPCWSTR lpTableName)
 618 {
 619     HRSRC hRsrc;
 620     HACCEL hMem,hRetval=0;
 621     DWORD size;
 622
 623     if (HIWORD(lpTableName))
 624         TRACE(accel, "%p '%s'\n",
 625                       (LPVOID)instance, (char *)( lpTableName ) );
 626     else
 627         TRACE(accel, "%p 0x%04x\n",
 628                        (LPVOID)instance, LOWORD(lpTableName) );
 629
 630     if (!(hRsrc = FindResourceW( instance, lpTableName, RT_ACCELERATORW )))
 631     {
 632       WARN(accel, "couldn't find accelerator table resource\n");
 633     } else {
 634       hMem = LoadResource( instance, hRsrc );
 635       size = SizeofResource( instance, hRsrc );
 636       if(size>=sizeof(PE_ACCEL))
 637       {
 638         LPPE_ACCEL accel_table = (LPPE_ACCEL) hMem;
 639         LPACCEL16 accel16;
 640         int i,nrofaccells = size/sizeof(PE_ACCEL);
 641
 642         hRetval = GlobalAlloc16(0,sizeof(ACCEL16)*nrofaccells);
 643         accel16 = (LPACCEL16)GlobalLock16(hRetval);
 644         for (i=0;i<nrofaccells;i++) {
 645                 accel16[i].fVirt = accel_table[i].fVirt;
 646                 accel16[i].key = accel_table[i].key;
 647                 accel16[i].cmd = accel_table[i].cmd;
 648         }
 649         accel16[i-1].fVirt |= 0x80;
 650       }
 651     }
 652     TRACE(accel, "returning HACCEL 0x%x\n", hRsrc);
 653     return hRetval;
 654 }
 655
 656 HACCEL WINAPI LoadAcceleratorsA(HINSTANCE instance,LPCSTR lpTableName)
 657 {
 658         LPWSTR   uni;
 659         HACCEL result;
 660         if (HIWORD(lpTableName))
 661                 uni = HEAP_strdupAtoW( GetProcessHeap(), 0, lpTableName );
 662         else
 663                 uni = (LPWSTR)lpTableName;
 664         result = LoadAcceleratorsW(instance,uni);
 665         if (HIWORD(uni)) HeapFree( GetProcessHeap(), 0, uni);
 666         return result;
 667 }
 668
 669 /**********************************************************************
 670  *             CopyAcceleratorTable32A   (USER32.58)
 671  */
 672 INT WINAPI CopyAcceleratorTableA(HACCEL src, LPACCEL dst, INT entries)
 673 {
 674   return CopyAcceleratorTableW(src, dst, entries);
 675 }
 676
 677 /**********************************************************************
 678  *             CopyAcceleratorTable32W   (USER32.59)
 679  *
 680  * By mortene@pvv.org 980321
 681  */
 682 INT WINAPI CopyAcceleratorTableW(HACCEL src, LPACCEL dst,
 683                                      INT entries)
 684 {
 685   int i,xsize;
 686   LPACCEL16 accel = (LPACCEL16)GlobalLock16(src);
 687   BOOL done = FALSE;
 688
 689   /* Do parameter checking to avoid the explosions and the screaming
 690      as far as possible. */
 691   if((dst && (entries < 1)) || (src == (HACCEL)NULL) || !accel) {
 692     WARN(accel, "Application sent invalid parameters (%p %p %d).\n",
 693          (LPVOID)src, (LPVOID)dst, entries);
 694     return 0;
 695   }
 696   xsize = GlobalSize16(src)/sizeof(ACCEL16);
 697   if (xsize>entries) entries=xsize;
 698
 699   i=0;
 700   while(!done) {
 701     /* Spit out some debugging information. */
 702     TRACE(accel, "accel %d: type 0x%02x, event '%c', IDval 0x%04x.\n",
 703           i, accel[i].fVirt, accel[i].key, accel[i].cmd);
 704
 705     /* Copy data to the destination structure array (if dst == NULL,
 706        we're just supposed to count the number of entries). */
 707     if(dst) {
 708       dst[i].fVirt = accel[i].fVirt;
 709       dst[i].key = accel[i].key;
 710       dst[i].cmd = accel[i].cmd;
 711
 712       /* Check if we've reached the end of the application supplied
 713          accelerator table. */
 714       if(i+1 == entries) {
 715         /* Turn off the high order bit, just in case. */
 716         dst[i].fVirt &= 0x7f;
 717         done = TRUE;
 718       }
 719     }
 720
 721     /* The highest order bit seems to mark the end of the accelerator
 722        resource table, but not always. Use GlobalSize() check too. */
 723     if((accel[i].fVirt & 0x80) != 0) done = TRUE;
 724
 725     i++;
 726   }
 727
 728   return i;
 729 }
 730
 731 /*********************************************************************
 732  *                    CreateAcceleratorTable   (USER32.64)
 733  *
 734  * By mortene@pvv.org 980321
 735  */
 736 HACCEL WINAPI CreateAcceleratorTableA(LPACCEL lpaccel, INT cEntries)
 737 {
 738   HACCEL        hAccel;
 739   LPACCEL16     accel;
 740   int           i;
 741
 742   /* Do parameter checking just in case someone's trying to be
 743      funny. */
 744   if(cEntries < 1) {
 745     WARN(accel, "Application sent invalid parameters (%p %d).\n",
 746          lpaccel, cEntries);
 747     SetLastError(ERROR_INVALID_PARAMETER);
 748     return (HACCEL)NULL;
 749   }
 750   FIXME(accel, "should check that the accelerator descriptions are valid,"
 751         " return NULL and SetLastError() if not.\n");
 752
 753
 754   /* Allocate memory and copy the table. */
 755   hAccel = GlobalAlloc16(0,cEntries*sizeof(ACCEL16));
 756
 757   TRACE(accel, "handle %x\n", hAccel);
 758   if(!hAccel) {
 759     ERR(accel, "Out of memory.\n");
 760     SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 761     return (HACCEL)NULL;
 762   }
 763   accel = GlobalLock16(hAccel);
 764   for (i=0;i<cEntries;i++) {
 765         accel[i].fVirt = lpaccel[i].fVirt;
 766         accel[i].key = lpaccel[i].key;
 767         accel[i].cmd = lpaccel[i].cmd;
 768   }
 769   /* Set the end-of-table terminator. */
 770   accel[cEntries-1].fVirt |= 0x80;
 771
 772   TRACE(accel, "Allocated accelerator handle %x\n", hAccel);
 773   return hAccel;
 774 }
 775
 776
 777 /******************************************************************************
 778  * DestroyAcceleratorTable [USER32.130]
 779  * Destroys an accelerator table
 780  *
 781  * NOTES
 782  *    By mortene@pvv.org 980321
 783  *
 784  * PARAMS
 785  *    handle [I] Handle to accelerator table
 786  *
 787  * RETURNS STD
 788  */
 789 BOOL WINAPI DestroyAcceleratorTable( HACCEL handle )
 790 {
 791     FIXME(accel, "(0x%x): stub\n", handle);
 792     /* FIXME: GlobalFree16(handle); */
 793     return TRUE;
 794 }
 795
 796 /**********************************************************************
 797  *                                      LoadString16
 798  */
 799 INT16 WINAPI LoadString16( HINSTANCE16 instance, UINT16 resource_id,
 800                            LPSTR buffer, INT16 buflen )
 801 {
 802     HGLOBAL16 hmem;
 803     HRSRC16 hrsrc;
 804     unsigned char *p;
 805     int string_num;
 806     int i;
 807
 808     TRACE(resource,"inst=%04x id=%04x buff=%08x len=%d\n",
 809                      instance, resource_id, (int) buffer, buflen);
 810
 811     hrsrc = FindResource16( instance, (SEGPTR)((resource_id>>4)+1), RT_STRING16 );
 812     if (!hrsrc) return 0;
 813     hmem = LoadResource16( instance, hrsrc );
 814     if (!hmem) return 0;
 815
 816     p = LockResource16(hmem);
 817     string_num = resource_id & 0x000f;
 818     for (i = 0; i < string_num; i++)
 819         p += *p + 1;
 820
 821     TRACE(resource, "strlen = %d\n", (int)*p );
 822
 823     i = MIN(buflen - 1, *p);
 824     if (buffer == NULL)
 825         return i;
 826     if (i > 0) {
 827         memcpy(buffer, p + 1, i);
 828         buffer[i] = '\0';
 829     } else {
 830         if (buflen > 1) {
 831             buffer[0] = '\0';
 832             return 0;
 833         }
 834         WARN(resource,"Dont know why caller give buflen=%d *p=%d trying to obtain string '%s'\n", buflen, *p, p + 1);
 835     }
 836     FreeResource16( hmem );
 837
 838     TRACE(resource,"'%s' loaded !\n", buffer);
 839     return i;
 840 }
 841
 842 /**********************************************************************
 843  *      LoadString32W           (USER32.376)
 844  */
 845 INT WINAPI LoadStringW( HINSTANCE instance, UINT resource_id,
 846                             LPWSTR buffer, INT buflen )
 847 {
 848     HGLOBAL hmem;
 849     HRSRC hrsrc;
 850     WCHAR *p;
 851     int string_num;
 852     int i;
 853
 854     if (HIWORD(resource_id)==0xFFFF) /* netscape 3 passes this */
 855         resource_id = (UINT)(-((INT)resource_id));
 856     TRACE(resource, "instance = %04x, id = %04x, buffer = %08x, "
 857            "length = %d\n", instance, (int)resource_id, (int) buffer, buflen);
 858
 859     /* Use bits 4 - 19 (incremented by 1) as resourceid, mask out
 860      * 20 - 31. */
 861     hrsrc = FindResourceW( instance, (LPCWSTR)(((resource_id>>4)&0xffff)+1),
 862                              RT_STRINGW );
 863     if (!hrsrc) return 0;
 864     hmem = LoadResource( instance, hrsrc );
 865     if (!hmem) return 0;
 866
 867     p = LockResource(hmem);
 868     string_num = resource_id & 0x000f;
 869     for (i = 0; i < string_num; i++)
 870         p += *p + 1;
 871
 872     TRACE(resource, "strlen = %d\n", (int)*p );
 873
 874     i = MIN(buflen - 1, *p);
 875     if (buffer == NULL)
 876         return i;
 877     if (i > 0) {
 878         memcpy(buffer, p + 1, i * sizeof (WCHAR));
 879         buffer[i] = (WCHAR) 0;
 880     } else {
 881         if (buflen > 1) {
 882             buffer[0] = (WCHAR) 0;
 883             return 0;
 884         }
 885 #if 0
 886         WARN(resource,"Dont know why caller give buflen=%d *p=%d trying to obtain string '%s'\n", buflen, *p, p + 1);
 887 #endif
 888     }
 889
 890     TRACE(resource,"%s loaded !\n", debugstr_w(buffer));
 891     return i;
 892 }
 893
 894 /**********************************************************************
 895  *      LoadString32A   (USER32.375)
 896  */
 897 INT WINAPI LoadStringA( HINSTANCE instance, UINT resource_id,
 898                             LPSTR buffer, INT buflen )
 899 {
 900     INT retval;
 901     LPWSTR buffer2 = NULL;
 902     if (buffer && buflen)
 903         buffer2 = HeapAlloc( GetProcessHeap(), 0, buflen * 2 );
 904     retval = LoadStringW(instance,resource_id,buffer2,buflen);
 905
 906     if (buffer2)
 907     {
 908         if (retval) {
 909             lstrcpynWtoA( buffer, buffer2, buflen );
 910             retval = lstrlenA( buffer );
 911         }
 912         else
 913             *buffer = 0;
 914         HeapFree( GetProcessHeap(), 0, buffer2 );
 915     }
 916     return retval;
 917 }
 918
 919 /* Messages...used by FormatMessage32* (KERNEL32.something)
 920  *
 921  * They can be specified either directly or using a message ID and
 922  * loading them from the resource.
 923  *
 924  * The resourcedata has following format:
 925  * start:
 926  * 0: DWORD nrofentries
 927  * nrofentries * subentry:
 928  *      0: DWORD firstentry
 929  *      4: DWORD lastentry
 930  *      8: DWORD offset from start to the stringentries
 931  *
 932  * (lastentry-firstentry) * stringentry:
 933  * 0: WORD len (0 marks end)
 934  * 2: WORD flags
 935  * 4: CHAR[len-4]
 936  *      (stringentry i of a subentry refers to the ID 'firstentry+i')
 937  *
 938  * Yes, ANSI strings in win32 resources. Go figure.
 939  */
 940
 941 /**********************************************************************
 942  *      LoadMessage32A          (internal)
 943  */
 944 INT WINAPI LoadMessageA( HMODULE instance, UINT id, WORD lang,
 945                       LPSTR buffer, INT buflen )
 946 {
 947     HGLOBAL     hmem;
 948     HRSRC       hrsrc;
 949     PMESSAGE_RESOURCE_DATA      mrd;
 950     PMESSAGE_RESOURCE_BLOCK     mrb;
 951     PMESSAGE_RESOURCE_ENTRY     mre;
 952     int         i,slen;
 953
 954     TRACE(resource, "instance = %08lx, id = %08lx, buffer = %p, length = %ld\n", (DWORD)instance, (DWORD)id, buffer, (DWORD)buflen);
 955
 956     /*FIXME: I am not sure about the '1' ... But I've only seen those entries*/
 957     hrsrc = FindResourceExW(instance,RT_MESSAGELISTW,(LPWSTR)1,lang);
 958     if (!hrsrc) return 0;
 959     hmem = LoadResource( instance, hrsrc );
 960     if (!hmem) return 0;
 961
 962     mrd = (PMESSAGE_RESOURCE_DATA)LockResource(hmem);
 963     mre = NULL;
 964     mrb = &(mrd->Blocks[0]);
 965     for (i=mrd->NumberOfBlocks;i--;) {
 966         if ((id>=mrb->LowId) && (id<=mrb->HighId)) {
 967             mre = (PMESSAGE_RESOURCE_ENTRY)(((char*)mrd)+mrb->OffsetToEntries);
 968             id  -= mrb->LowId;
 969             break;
 970         }
 971         mrb++;
 972     }
 973     if (!mre)
 974         return 0;
 975     for (i=id;i--;) {
 976         if (!mre->Length)
 977                 return 0;
 978         mre = (PMESSAGE_RESOURCE_ENTRY)(((char*)mre)+(mre->Length));
 979     }
 980     slen=mre->Length;
 981     TRACE(resource,"    - strlen=%d\n",slen);
 982     i = MIN(buflen - 1, slen);
 983     if (buffer == NULL)
 984         return slen; /* different to LoadString */
 985     if (i>0) {
 986         lstrcpynA(buffer,(char*)mre->Text,i);
 987         buffer[i]=0;
 988     } else {
 989         if (buflen>1) {
 990             buffer[0]=0;
 991             return 0;
 992         }
 993     }
 994     if (buffer)
 995             TRACE(resource,"'%s' copied !\n", buffer);
 996     return i;
 997 }
 998
 999 /**********************************************************************
1000  *      LoadMessage32W  (internal)
1001  */
1002 INT WINAPI LoadMessageW( HMODULE instance, UINT id, WORD lang,
1003                       LPWSTR buffer, INT buflen )
1004 {
1005     INT retval;
1006     LPSTR buffer2 = NULL;
1007     if (buffer && buflen)
1008         buffer2 = HeapAlloc( GetProcessHeap(), 0, buflen );
1009     retval = LoadMessageA(instance,id,lang,buffer2,buflen);
1010     if (buffer)
1011     {
1012         if (retval) {
1013             lstrcpynAtoW( buffer, buffer2, buflen );
1014             retval = lstrlenW( buffer );
1015         }
1016         HeapFree( GetProcessHeap(), 0, buffer2 );
1017     }
1018     return retval;
1019 }
1020
1021
1022 /**********************************************************************
1023  *      EnumResourceTypesA      (KERNEL32.90)
1024  */
1025 BOOL WINAPI EnumResourceTypesA( HMODULE hmodule,ENUMRESTYPEPROCA lpfun,
1026                                     LONG lParam)
1027 {
1028         /* FIXME: move WINE_MODREF stuff here */
1029     return PE_EnumResourceTypesA(hmodule,lpfun,lParam);
1030 }
1031
1032 /**********************************************************************
1033  *      EnumResourceTypesW      (KERNEL32.91)
1034  */
1035 BOOL WINAPI EnumResourceTypesW( HMODULE hmodule,ENUMRESTYPEPROCW lpfun,
1036                                     LONG lParam)
1037 {
1038         /* FIXME: move WINE_MODREF stuff here */
1039     return PE_EnumResourceTypesW(hmodule,lpfun,lParam);
1040 }
1041
1042 /**********************************************************************
1043  *      EnumResourceNamesA      (KERNEL32.88)
1044  */
1045 BOOL WINAPI EnumResourceNamesA( HMODULE hmodule, LPCSTR type,
1046                                     ENUMRESNAMEPROCA lpfun, LONG lParam )
1047 {
1048         /* FIXME: move WINE_MODREF stuff here */
1049     return PE_EnumResourceNamesA(hmodule,type,lpfun,lParam);
1050 }
1051 /**********************************************************************
1052  *      EnumResourceNamesW      (KERNEL32.89)
1053  */
1054 BOOL WINAPI EnumResourceNamesW( HMODULE hmodule, LPCWSTR type,
1055                                     ENUMRESNAMEPROCW lpfun, LONG lParam )
1056 {
1057         /* FIXME: move WINE_MODREF stuff here */
1058     return PE_EnumResourceNamesW(hmodule,type,lpfun,lParam);
1059 }
1060
1061 /**********************************************************************
1062  *      EnumResourceLanguagesA  (KERNEL32.86)
1063  */
1064 BOOL WINAPI EnumResourceLanguagesA( HMODULE hmodule, LPCSTR type,
1065                                         LPCSTR name, ENUMRESLANGPROCA lpfun,
1066                                         LONG lParam)
1067 {
1068         /* FIXME: move WINE_MODREF stuff here */
1069     return PE_EnumResourceLanguagesA(hmodule,type,name,lpfun,lParam);
1070 }
1071 /**********************************************************************
1072  *      EnumResourceLanguagesW  (KERNEL32.87)
1073  */
1074 BOOL WINAPI EnumResourceLanguagesW( HMODULE hmodule, LPCWSTR type,
1075                                         LPCWSTR name, ENUMRESLANGPROCW lpfun,
1076                                         LONG lParam)
1077 {
1078         /* FIXME: move WINE_MODREF stuff here */
1079     return PE_EnumResourceLanguagesW(hmodule,type,name,lpfun,lParam);
1080 }