loader/ne/convert.c

   1 /*
   2  * PE->NE resource conversion functions
   3  *
   4  * Copyright 1998 Ulrich Weigand
   5  */
   6
   7 #include <string.h>
   8 #include "wine/winuser16.h"
   9 #include "module.h"
  10 #include "debugtools.h"
  11
  12 DEFAULT_DEBUG_CHANNEL(resource)
  13
  14 /**********************************************************************
  15  *          ConvertDialog32To16   (KERNEL.615)
  16  */
  17 VOID WINAPI ConvertDialog32To16( LPVOID dialog32, DWORD size, LPVOID dialog16 )
  18 {
  19     LPVOID p = dialog32;
  20     WORD nbItems, data, dialogEx;
  21     DWORD style;
  22
  23     style = *((DWORD *)dialog16)++ = *((DWORD *)p)++;
  24     dialogEx = (style == 0xffff0001);  /* DIALOGEX resource */
  25     if (dialogEx)
  26     {
  27         *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* helpID */
  28         *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* exStyle */
  29         style = *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* style */
  30     }
  31     else
  32         ((DWORD *)p)++; /* exStyle ignored in 16-bit standard dialog */
  33
  34     nbItems = *((BYTE *)dialog16)++ = (BYTE)*((WORD *)p)++;
  35     *((WORD *)dialog16)++ = *((WORD *)p)++; /* x */
  36     *((WORD *)dialog16)++ = *((WORD *)p)++; /* y */
  37     *((WORD *)dialog16)++ = *((WORD *)p)++; /* cx */
  38     *((WORD *)dialog16)++ = *((WORD *)p)++; /* cy */
  39
  40     /* Transfer menu name */
  41     switch (*((WORD *)p))
  42     {
  43     case 0x0000:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0; break;
  44     case 0xffff:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0xff;
  45                   *((WORD *)dialog16)++ = *((WORD *)p)++; break;
  46     default:      lstrcpyWtoA( (LPSTR)dialog16, (LPWSTR)p );
  47                   ((LPSTR)dialog16) += lstrlenA( (LPSTR)dialog16 ) + 1;
  48                   ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
  49                   break;
  50     }
  51
  52     /* Transfer class name */
  53     switch (*((WORD *)p))
  54     {
  55     case 0x0000:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0; break;
  56     case 0xffff:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0xff;
  57                   *((WORD *)dialog16)++ = *((WORD *)p)++; break;
  58     default:      lstrcpyWtoA( (LPSTR)dialog16, (LPWSTR)p );
  59                   ((LPSTR)dialog16) += lstrlenA( (LPSTR)dialog16 ) + 1;
  60                   ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
  61                   break;
  62     }
  63
  64     /* Transfer window caption */
  65     lstrcpyWtoA( (LPSTR)dialog16, (LPWSTR)p );
  66     ((LPSTR)dialog16) += lstrlenA( (LPSTR)dialog16 ) + 1;
  67     ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
  68
  69     /* Transfer font info */
  70     if (style & DS_SETFONT)
  71     {
  72         *((WORD *)dialog16)++ = *((WORD *)p)++;  /* pointSize */
  73         if (dialogEx)
  74         {
  75             *((WORD *)dialog16)++ = *((WORD *)p)++; /* weight */
  76             *((WORD *)dialog16)++ = *((WORD *)p)++; /* italic */
  77         }
  78         lstrcpyWtoA( (LPSTR)dialog16, (LPWSTR)p );  /* faceName */
  79         ((LPSTR)dialog16) += lstrlenA( (LPSTR)dialog16 ) + 1;
  80         ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
  81     }
  82
  83     /* Transfer dialog items */
  84     while (nbItems)
  85     {
  86         /* align on DWORD boundary (32-bit only) */
  87         p = (LPVOID)((((int)p) + 3) & ~3);
  88
  89         if (dialogEx)
  90         {
  91             *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* helpID */
  92             *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* exStyle */
  93             *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* style */
  94         }
  95         else
  96         {
  97             style = *((DWORD *)p)++; /* save style */
  98             ((DWORD *)p)++;          /* ignore exStyle */
  99         }
 100
 101         *((WORD *)dialog16)++ = *((WORD *)p)++; /* x */
 102         *((WORD *)dialog16)++ = *((WORD *)p)++; /* y */
 103         *((WORD *)dialog16)++ = *((WORD *)p)++; /* cx */
 104         *((WORD *)dialog16)++ = *((WORD *)p)++; /* cy */
 105
 106         if (dialogEx)
 107             *((DWORD *)dialog16)++ = *((DWORD *)p)++; /* ID */
 108         else
 109         {
 110             *((WORD *)dialog16)++ = *((WORD *)p)++; /* ID */
 111             *((DWORD *)dialog16)++ = style;  /* style from above */
 112         }
 113
 114         /* Transfer class name */
 115         switch (*((WORD *)p))
 116         {
 117         case 0x0000:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0; break;
 118         case 0xffff:  ((WORD *)p)++;
 119                       *((BYTE *)dialog16)++ = (BYTE)*((WORD *)p)++; break;
 120         default:      lstrcpyWtoA( (LPSTR)dialog16, (LPWSTR)p );
 121                       ((LPSTR)dialog16) += lstrlenA( (LPSTR)dialog16 ) + 1;
 122                       ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 123                       break;
 124         }
 125
 126         /* Transfer window name */
 127         switch (*((WORD *)p))
 128         {
 129         case 0x0000:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0; break;
 130         case 0xffff:  ((WORD *)p)++; *((BYTE *)dialog16)++ = 0xff;
 131                       *((WORD *)dialog16)++ = *((WORD *)p)++; break;
 132         default:      lstrcpyWtoA( (LPSTR)dialog16, (LPWSTR)p );
 133                       ((LPSTR)dialog16) += lstrlenA( (LPSTR)dialog16 ) + 1;
 134                       ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 135                       break;
 136         }
 137
 138         /* Transfer data */
 139         data = *((WORD *)p)++;
 140         if (dialogEx)
 141             *((WORD *)dialog16)++ = data;
 142         else
 143             *((BYTE *)dialog16)++ = (BYTE)data;
 144
 145         if (data)
 146         {
 147             memcpy( dialog16, p, data );
 148             (LPSTR)dialog16 += data;
 149             (LPSTR)p += data;
 150         }
 151
 152         /* Next item */
 153         nbItems--;
 154     }
 155 }
 156
 157 /**********************************************************************
 158  *          GetDialog32Size   (KERNEL.618)
 159  */
 160 WORD WINAPI GetDialog32Size16( LPVOID dialog32 )
 161 {
 162     LPVOID p = dialog32;
 163     WORD nbItems, data, dialogEx;
 164     DWORD style;
 165
 166     style = *((DWORD *)p)++;
 167     dialogEx = (style == 0xffff0001);  /* DIALOGEX resource */
 168     if (dialogEx)
 169     {
 170         ((DWORD *)p)++; /* helpID */
 171         ((DWORD *)p)++; /* exStyle */
 172         style = *((DWORD *)p)++; /* style */
 173     }
 174     else
 175         ((DWORD *)p)++; /* exStyle */
 176
 177     nbItems = *((WORD *)p)++;
 178     ((WORD *)p)++; /* x */
 179     ((WORD *)p)++; /* y */
 180     ((WORD *)p)++; /* cx */
 181     ((WORD *)p)++; /* cy */
 182
 183     /* Skip menu name */
 184     switch (*((WORD *)p))
 185     {
 186     case 0x0000:  ((WORD *)p)++; break;
 187     case 0xffff:  ((WORD *)p) += 2; break;
 188     default:      ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1; break;
 189     }
 190
 191     /* Skip class name */
 192     switch (*((WORD *)p))
 193     {
 194     case 0x0000:  ((WORD *)p)++; break;
 195     case 0xffff:  ((WORD *)p) += 2; break;
 196     default:      ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1; break;
 197     }
 198
 199     /* Skip window caption */
 200     ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 201
 202     /* Skip font info */
 203     if (style & DS_SETFONT)
 204     {
 205         ((WORD *)p)++;  /* pointSize */
 206         if (dialogEx)
 207         {
 208             ((WORD *)p)++; /* weight */
 209             ((WORD *)p)++; /* italic */
 210         }
 211         ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;  /* faceName */
 212     }
 213
 214     /* Skip dialog items */
 215     while (nbItems)
 216     {
 217         /* align on DWORD boundary */
 218         p = (LPVOID)((((int)p) + 3) & ~3);
 219
 220         if (dialogEx)
 221         {
 222             ((DWORD *)p)++; /* helpID */
 223             ((DWORD *)p)++; /* exStyle */
 224             ((DWORD *)p)++; /* style */
 225         }
 226         else
 227         {
 228             ((DWORD *)p)++; /* style */
 229             ((DWORD *)p)++; /* exStyle */
 230         }
 231
 232         ((WORD *)p)++; /* x */
 233         ((WORD *)p)++; /* y */
 234         ((WORD *)p)++; /* cx */
 235         ((WORD *)p)++; /* cy */
 236
 237         if (dialogEx)
 238             ((DWORD *)p)++; /* ID */
 239         else
 240             ((WORD *)p)++; /* ID */
 241
 242         /* Skip class name */
 243         switch (*((WORD *)p))
 244         {
 245         case 0x0000:  ((WORD *)p)++; break;
 246         case 0xffff:  ((WORD *)p) += 2; break;
 247         default:      ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1; break;
 248         }
 249
 250         /* Skip window name */
 251         switch (*((WORD *)p))
 252         {
 253         case 0x0000:  ((WORD *)p)++; break;
 254         case 0xffff:  ((WORD *)p) += 2; break;
 255         default:      ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1; break;
 256         }
 257
 258         /* Skip data */
 259         data = *((WORD *)p)++;
 260         (LPSTR)p += data;
 261
 262         /* Next item */
 263         nbItems--;
 264     }
 265
 266     return (WORD)((LPSTR)p - (LPSTR)dialog32);
 267 }
 268
 269 /**********************************************************************
 270  *          ConvertMenu32To16   (KERNEL.616)
 271  */
 272 VOID WINAPI ConvertMenu32To16( LPVOID menu32, DWORD size, LPVOID menu16 )
 273 {
 274     LPVOID p = menu32;
 275     WORD version, headersize, flags, level = 1;
 276
 277     version = *((WORD *)menu16)++ = *((WORD *)p)++;
 278     headersize = *((WORD *)menu16)++ = *((WORD *)p)++;
 279     if ( headersize )
 280     {
 281         memcpy( menu16, p, headersize );
 282         ((LPSTR)menu16) += headersize;
 283         ((LPSTR)p) += headersize;
 284     }
 285
 286     while ( level )
 287         if ( version == 0 )  /* standard */
 288         {
 289             flags = *((WORD *)menu16)++ = *((WORD *)p)++;
 290             if ( !(flags & MF_POPUP) )
 291                 *((WORD *)menu16)++ = *((WORD *)p)++;  /* ID */
 292             else
 293                 level++;
 294
 295             lstrcpyWtoA( (LPSTR)menu16, (LPWSTR)p );
 296             ((LPSTR)menu16) += lstrlenA( (LPSTR)menu16 ) + 1;
 297             ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 298
 299             if ( flags & MF_END )
 300                 level--;
 301         }
 302         else  /* extended */
 303         {
 304             *((DWORD *)menu16)++ = *((DWORD *)p)++;  /* fType */
 305             *((DWORD *)menu16)++ = *((DWORD *)p)++;  /* fState */
 306             *((WORD *)menu16)++ = (WORD)*((DWORD *)p)++; /* ID */
 307             flags = *((BYTE *)menu16)++ = (BYTE)*((WORD *)p)++;
 308
 309             lstrcpyWtoA( (LPSTR)menu16, (LPWSTR)p );
 310             ((LPSTR)menu16) += lstrlenA( (LPSTR)menu16 ) + 1;
 311             ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 312
 313             /* align on DWORD boundary (32-bit only) */
 314             p = (LPVOID)((((int)p) + 3) & ~3);
 315
 316             /* If popup, transfer helpid */
 317             if ( flags & 1)
 318             {
 319                 *((DWORD *)menu16)++ = *((DWORD *)p)++;
 320                 level++;
 321             }
 322
 323             if ( flags & MF_END )
 324                 level--;
 325         }
 326 }
 327
 328 /**********************************************************************
 329  *          GetMenu32Size   (KERNEL.617)
 330  */
 331 WORD WINAPI GetMenu32Size16( LPVOID menu32 )
 332 {
 333     LPVOID p = menu32;
 334     WORD version, headersize, flags, level = 1;
 335
 336     version = *((WORD *)p)++;
 337     headersize = *((WORD *)p)++;
 338     ((LPSTR)p) += headersize;
 339
 340     while ( level )
 341         if ( version == 0 )  /* standard */
 342         {
 343             flags = *((WORD *)p)++;
 344             if ( !(flags & MF_POPUP) )
 345                 ((WORD *)p)++;  /* ID */
 346             else
 347                 level++;
 348
 349             ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 350
 351             if ( flags & MF_END )
 352                 level--;
 353         }
 354         else  /* extended */
 355         {
 356             ((DWORD *)p)++; /* fType */
 357             ((DWORD *)p)++; /* fState */
 358             ((DWORD *)p)++; /* ID */
 359             flags = *((WORD *)p)++;
 360
 361             ((LPWSTR)p) += lstrlenW( (LPWSTR)p ) + 1;
 362
 363             /* align on DWORD boundary (32-bit only) */
 364             p = (LPVOID)((((int)p) + 3) & ~3);
 365
 366             /* If popup, skip helpid */
 367             if ( flags & 1)
 368             {
 369                 ((DWORD *)p)++;
 370                 level++;
 371             }
 372
 373             if ( flags & MF_END )
 374                 level--;
 375         }
 376
 377     return (WORD)((LPSTR)p - (LPSTR)menu32);
 378 }
 379
 380 /**********************************************************************
 381  *          ConvertAccelerator32To16
 382  */
 383 VOID ConvertAccelerator32To16( LPVOID acc32, DWORD size, LPVOID acc16 )
 384 {
 385     int type;
 386
 387     do
 388     {
 389         /* Copy type */
 390         type = *((BYTE *)acc16)++ = *((BYTE *)acc32)++;
 391         /* Skip padding */
 392         ((BYTE *)acc32)++;
 393         /* Copy event and IDval */
 394         *((WORD *)acc16)++ = *((WORD *)acc32)++;
 395         *((WORD *)acc16)++ = *((WORD *)acc32)++;
 396         /* Skip padding */
 397         ((WORD *)acc32)++;
 398
 399     } while ( !( type & 0x80 ) );
 400 }
 401
 402 /**********************************************************************
 403  *          NE_LoadPEResource
 404  */
 405 HGLOBAL16 NE_LoadPEResource( NE_MODULE *pModule, WORD type, LPVOID bits, DWORD size )
 406 {
 407     HGLOBAL16 handle;
 408
 409     TRACE("module=%04x type=%04x\n", pModule->self, type );
 410     if (!pModule || !bits || !size) return 0;
 411
 412     handle = GlobalAlloc16( 0, size );
 413
 414     switch (type)
 415     {
 416     case RT_MENU16:
 417         ConvertMenu32To16( bits, size, GlobalLock16( handle ) );
 418         break;
 419
 420     case RT_DIALOG16:
 421         ConvertDialog32To16( bits, size, GlobalLock16( handle ) );
 422         break;
 423
 424     case RT_ACCELERATOR16:
 425         ConvertAccelerator32To16( bits, size, GlobalLock16( handle ) );
 426         break;
 427
 428     case RT_STRING16:
 429         FIXME("not yet implemented!\n" );
 430         /* fall through */
 431
 432     default:
 433         memcpy( GlobalLock16( handle ), bits, size );
 434         break;
 435     }
 436
 437     return handle;
 438 }
 439