binutils/resbin.c

   1 /* resbin.c -- manipulate the Windows binary resource format.
   2    Copyright (C) 1997-2019 Free Software Foundation, Inc.
   3    Written by Ian Lance Taylor, Cygnus Support.
   4    Rewritten by Kai Tietz, Onevision.
   5
   6    This file is part of GNU Binutils.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
  21    02110-1301, USA.  */
  22
  23
  24 /* This file contains functions to convert between the binary resource
  25    format and the internal structures that we want to use.  The same
  26    binary resource format is used in both res and COFF files.  */
  27
  28 #include "sysdep.h"
  29 #include "bfd.h"
  30 #include "bucomm.h"
  31 #include "libiberty.h"
  32 #include "windres.h"
  33
  34 /* Local functions.  */
  35
  36 static void toosmall (const char *);
  37
  38 static unichar *get_unicode (windres_bfd *, const bfd_byte *, rc_uint_type, rc_uint_type *);
  39 static int get_resid (windres_bfd *, rc_res_id *, const bfd_byte *, rc_uint_type);
  40 static rc_res_resource *bin_to_res_generic (windres_bfd *, enum rc_res_type,
  41                                             const bfd_byte *, rc_uint_type);
  42 static rc_res_resource *bin_to_res_cursor (windres_bfd *, const bfd_byte *, rc_uint_type);
  43 static rc_res_resource *bin_to_res_menu (windres_bfd *,const bfd_byte *, rc_uint_type);
  44 static rc_menuitem *bin_to_res_menuitems (windres_bfd *, const bfd_byte *, rc_uint_type,
  45                                           rc_uint_type *);
  46 static rc_menuitem *bin_to_res_menuexitems (windres_bfd *, const bfd_byte *, rc_uint_type,
  47                                             rc_uint_type *);
  48 static rc_res_resource *bin_to_res_dialog (windres_bfd *, const bfd_byte *, rc_uint_type);
  49 static rc_res_resource *bin_to_res_string (windres_bfd *,const bfd_byte *, rc_uint_type);
  50 static rc_res_resource *bin_to_res_fontdir (windres_bfd *, const bfd_byte *, rc_uint_type);
  51 static rc_res_resource *bin_to_res_accelerators (windres_bfd *, const bfd_byte *, rc_uint_type);
  52 static rc_res_resource *bin_to_res_rcdata (windres_bfd *, const bfd_byte *, rc_uint_type, int);
  53 static rc_res_resource *bin_to_res_group_cursor (windres_bfd *, const bfd_byte *, rc_uint_type);
  54 static rc_res_resource *bin_to_res_group_icon (windres_bfd *, const bfd_byte *, rc_uint_type);
  55 static rc_res_resource *bin_to_res_version (windres_bfd *, const bfd_byte *, rc_uint_type);
  56 static rc_res_resource *bin_to_res_userdata (windres_bfd *, const bfd_byte *, rc_uint_type);
  57 static rc_res_resource *bin_to_res_toolbar (windres_bfd *, const bfd_byte *, rc_uint_type);
  58 static void get_version_header (windres_bfd *, const bfd_byte *, rc_uint_type, const char *,
  59                                 unichar **, rc_uint_type *, rc_uint_type *, rc_uint_type *,
  60                                 rc_uint_type *);
  61
  62 /* Given a resource type ID, a pointer to data, a length, return a
  63    rc_res_resource structure which represents that resource.  The caller
  64    is responsible for initializing the res_info and coff_info fields
  65    of the returned structure.  */
  66
  67 rc_res_resource *
  68 bin_to_res (windres_bfd *wrbfd, rc_res_id type, const bfd_byte *data,
  69             rc_uint_type length)
  70 {
  71   if (type.named)
  72     return bin_to_res_userdata (wrbfd, data, length);
  73   else
  74     {
  75       switch (type.u.id)
  76         {
  77         default:
  78           return bin_to_res_userdata (wrbfd, data, length);
  79         case RT_CURSOR:
  80           return bin_to_res_cursor (wrbfd, data, length);
  81         case RT_BITMAP:
  82           return bin_to_res_generic (wrbfd, RES_TYPE_BITMAP, data, length);
  83         case RT_ICON:
  84           return bin_to_res_generic (wrbfd, RES_TYPE_ICON, data, length);
  85         case RT_MENU:
  86           return bin_to_res_menu (wrbfd, data, length);
  87         case RT_DIALOG:
  88           return bin_to_res_dialog (wrbfd, data, length);
  89         case RT_STRING:
  90           return bin_to_res_string (wrbfd, data, length);
  91         case RT_FONTDIR:
  92           return bin_to_res_fontdir (wrbfd, data, length);
  93         case RT_FONT:
  94           return bin_to_res_generic (wrbfd, RES_TYPE_FONT, data, length);
  95         case RT_ACCELERATOR:
  96           return bin_to_res_accelerators (wrbfd, data, length);
  97         case RT_RCDATA:
  98           return bin_to_res_rcdata (wrbfd, data, length, RES_TYPE_RCDATA);
  99         case RT_MESSAGETABLE:
 100           return bin_to_res_generic (wrbfd, RES_TYPE_MESSAGETABLE, data, length);
 101         case RT_GROUP_CURSOR:
 102           return bin_to_res_group_cursor (wrbfd, data, length);
 103         case RT_GROUP_ICON:
 104           return bin_to_res_group_icon (wrbfd, data, length);
 105         case RT_VERSION:
 106           return bin_to_res_version (wrbfd, data, length);
 107         case RT_TOOLBAR:
 108           return  bin_to_res_toolbar (wrbfd, data, length);
 109
 110         }
 111     }
 112 }
 113
 114 /* Give an error if the binary data is too small.  */
 115
 116 static void
 117 toosmall (const char *msg)
 118 {
 119   fatal (_("%s: not enough binary data"), msg);
 120 }
 121
 122 /* Swap in a NULL terminated unicode string.  */
 123
 124 static unichar *
 125 get_unicode (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length,
 126              rc_uint_type *retlen)
 127 {
 128   rc_uint_type c, i;
 129   unichar *ret;
 130
 131   c = 0;
 132   while (1)
 133     {
 134       if (length < c * 2 + 2)
 135         toosmall (_("null terminated unicode string"));
 136       if (windres_get_16 (wrbfd, data + c * 2, 2) == 0)
 137         break;
 138       ++c;
 139     }
 140
 141   ret = (unichar *) res_alloc ((c + 1) * sizeof (unichar));
 142
 143   for (i = 0; i < c; i++)
 144     ret[i] = windres_get_16 (wrbfd, data + i * 2, 2);
 145   ret[i] = 0;
 146
 147   if (retlen != NULL)
 148     *retlen = c;
 149
 150   return ret;
 151 }
 152
 153 /* Get a resource identifier.  This returns the number of bytes used.  */
 154
 155 static int
 156 get_resid (windres_bfd *wrbfd, rc_res_id *id, const bfd_byte *data,
 157            rc_uint_type length)
 158 {
 159   rc_uint_type first;
 160
 161   if (length < 2)
 162     toosmall (_("resource ID"));
 163
 164   first = windres_get_16 (wrbfd, data, 2);
 165   if (first == 0xffff)
 166     {
 167       if (length < 4)
 168         toosmall (_("resource ID"));
 169       id->named = 0;
 170       id->u.id = windres_get_16 (wrbfd, data + 2, 2);
 171       return 4;
 172     }
 173   else
 174     {
 175       id->named = 1;
 176       id->u.n.name = get_unicode (wrbfd, data, length, &id->u.n.length);
 177       return id->u.n.length * 2 + 2;
 178     }
 179 }
 180
 181 /* Convert a resource which just stores uninterpreted data from
 182    binary.  */
 183
 184 rc_res_resource *
 185 bin_to_res_generic (windres_bfd *wrbfd ATTRIBUTE_UNUSED, enum rc_res_type type,
 186                     const bfd_byte *data, rc_uint_type length)
 187 {
 188   rc_res_resource *r;
 189
 190   r = (rc_res_resource *) res_alloc (sizeof (rc_res_resource));
 191   r->type = type;
 192   r->u.data.data = data;
 193   r->u.data.length = length;
 194
 195   return r;
 196 }
 197
 198 /* Convert a cursor resource from binary.  */
 199
 200 rc_res_resource *
 201 bin_to_res_cursor (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 202 {
 203   rc_cursor *c;
 204   rc_res_resource *r;
 205
 206   if (length < 4)
 207     toosmall (_("cursor"));
 208
 209   c = (rc_cursor *) res_alloc (sizeof (rc_cursor));
 210   c->xhotspot = windres_get_16 (wrbfd, data, 2);
 211   c->yhotspot = windres_get_16 (wrbfd, data + 2, 2);
 212   c->length = length - 4;
 213   c->data = data + 4;
 214
 215   r = (rc_res_resource *) res_alloc (sizeof *r);
 216   r->type = RES_TYPE_CURSOR;
 217   r->u.cursor = c;
 218
 219   return r;
 220 }
 221
 222 /* Convert a menu resource from binary.  */
 223
 224 rc_res_resource *
 225 bin_to_res_menu (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 226 {
 227   rc_res_resource *r;
 228   rc_menu *m;
 229   rc_uint_type version, got;
 230
 231   r = (rc_res_resource *) res_alloc (sizeof *r);
 232   r->type = RES_TYPE_MENU;
 233
 234   m = (rc_menu *) res_alloc (sizeof (rc_menu));
 235   r->u.menu = m;
 236
 237   if (length < 2)
 238     toosmall (_("menu header"));
 239
 240   version = windres_get_16 (wrbfd, data, 2);
 241
 242   if (version == 0)
 243     {
 244       if (length < 4)
 245         toosmall (_("menu header"));
 246       m->help = 0;
 247       m->items = bin_to_res_menuitems (wrbfd, data + 4, length - 4, &got);
 248     }
 249   else if (version == 1)
 250     {
 251       rc_uint_type offset;
 252
 253       if (length < 8)
 254         toosmall (_("menuex header"));
 255       m->help = windres_get_32 (wrbfd, data + 4, 4);
 256       offset = windres_get_16 (wrbfd, data + 2, 2);
 257       if (offset + 4 >= length)
 258         toosmall (_("menuex offset"));
 259       m->items = bin_to_res_menuexitems (wrbfd, data + 4 + offset,
 260                                          length - (4 + offset), &got);
 261     }
 262   else
 263     fatal (_("unsupported menu version %d"), (int) version);
 264
 265   return r;
 266 }
 267
 268 /* Convert menu items from binary.  */
 269
 270 static rc_menuitem *
 271 bin_to_res_menuitems (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length,
 272                       rc_uint_type *got)
 273 {
 274   rc_menuitem *first, **pp;
 275
 276   first = NULL;
 277   pp = &first;
 278
 279   *got = 0;
 280
 281   while (length > 0)
 282     {
 283       rc_uint_type flags, slen, itemlen;
 284       rc_uint_type stroff;
 285       rc_menuitem *mi;
 286
 287       if (length < 4)
 288         toosmall (_("menuitem header"));
 289
 290       mi = (rc_menuitem *) res_alloc (sizeof *mi);
 291       mi->state = 0;
 292       mi->help = 0;
 293
 294       flags = windres_get_16 (wrbfd, data, 2);
 295       mi->type = flags &~ (MENUITEM_POPUP | MENUITEM_ENDMENU);
 296
 297       if ((flags & MENUITEM_POPUP) == 0)
 298         stroff = 4;
 299       else
 300         stroff = 2;
 301
 302       if (length < stroff + 2)
 303         toosmall (_("menuitem header"));
 304
 305       if (windres_get_16 (wrbfd, data + stroff, 2) == 0)
 306         {
 307           slen = 0;
 308           mi->text = NULL;
 309         }
 310       else
 311         mi->text = get_unicode (wrbfd, data + stroff, length - stroff, &slen);
 312
 313       itemlen = stroff + slen * 2 + 2;
 314
 315       if ((flags & MENUITEM_POPUP) == 0)
 316         {
 317           mi->popup = NULL;
 318           mi->id = windres_get_16 (wrbfd, data + 2, 2);
 319         }
 320       else
 321         {
 322           rc_uint_type subread;
 323
 324           mi->id = 0;
 325           mi->popup = bin_to_res_menuitems (wrbfd, data + itemlen, length - itemlen,
 326                                             &subread);
 327           itemlen += subread;
 328         }
 329
 330       mi->next = NULL;
 331       *pp = mi;
 332       pp = &mi->next;
 333
 334       data += itemlen;
 335       length -= itemlen;
 336       *got += itemlen;
 337
 338       if ((flags & MENUITEM_ENDMENU) != 0)
 339         return first;
 340     }
 341
 342   return first;
 343 }
 344
 345 /* Convert menuex items from binary.  */
 346
 347 static rc_menuitem *
 348 bin_to_res_menuexitems (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length,
 349                         rc_uint_type *got)
 350 {
 351   rc_menuitem *first, **pp;
 352
 353   first = NULL;
 354   pp = &first;
 355
 356   *got = 0;
 357
 358   while (length > 0)
 359     {
 360       rc_uint_type flags, slen;
 361       rc_uint_type itemlen;
 362       rc_menuitem *mi;
 363
 364       if (length < 16)
 365         toosmall (_("menuitem header"));
 366
 367       mi = (rc_menuitem *) res_alloc (sizeof (rc_menuitem));
 368       mi->type = windres_get_32 (wrbfd, data, 4);
 369       mi->state = windres_get_32 (wrbfd, data + 4, 4);
 370       mi->id = windres_get_32 (wrbfd, data + 8, 4);
 371
 372       flags = windres_get_16 (wrbfd, data + 12, 2);
 373
 374       if (windres_get_16 (wrbfd, data + 14, 2) == 0)
 375         {
 376           slen = 0;
 377           mi->text = NULL;
 378         }
 379       else
 380         mi->text = get_unicode (wrbfd, data + 14, length - 14, &slen);
 381
 382       itemlen = 14 + slen * 2 + 2;
 383       itemlen = (itemlen + 3) &~ 3;
 384
 385       if ((flags & 1) == 0)
 386         {
 387           mi->popup = NULL;
 388           mi->help = 0;
 389         }
 390       else
 391         {
 392           rc_uint_type subread;
 393
 394           if (length < itemlen + 4)
 395             toosmall (_("menuitem"));
 396           mi->help = windres_get_32 (wrbfd, data + itemlen, 4);
 397           itemlen += 4;
 398
 399           mi->popup = bin_to_res_menuexitems (wrbfd, data + itemlen,
 400                                               length - itemlen, &subread);
 401           itemlen += subread;
 402         }
 403
 404       mi->next = NULL;
 405       *pp = mi;
 406       pp = &mi->next;
 407
 408       data += itemlen;
 409       length -= itemlen;
 410       *got += itemlen;
 411
 412       if ((flags & 0x80) != 0)
 413         return first;
 414     }
 415
 416   return first;
 417 }
 418
 419 /* Convert a dialog resource from binary.  */
 420
 421 static rc_res_resource *
 422 bin_to_res_dialog (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 423 {
 424   rc_uint_type signature;
 425   rc_dialog *d;
 426   rc_uint_type c, sublen, i;
 427   rc_uint_type off;
 428   rc_dialog_control **pp;
 429   rc_res_resource *r;
 430
 431   if (length < 18)
 432     toosmall (_("dialog header"));
 433
 434   d = (rc_dialog *) res_alloc (sizeof (rc_dialog));
 435
 436   signature = windres_get_16 (wrbfd, data + 2, 2);
 437   if (signature != 0xffff)
 438     {
 439       d->ex = NULL;
 440       d->style = windres_get_32 (wrbfd, data, 4);
 441       d->exstyle = windres_get_32 (wrbfd, data + 4, 4);
 442       off = 8;
 443     }
 444   else
 445     {
 446       int version;
 447
 448       version = windres_get_16 (wrbfd, data, 2);
 449       if (version != 1)
 450         fatal (_("unexpected DIALOGEX version %d"), version);
 451
 452       d->ex = (rc_dialog_ex *) res_alloc (sizeof (rc_dialog_ex));
 453       d->ex->help = windres_get_32 (wrbfd, data + 4, 4);
 454       d->exstyle = windres_get_32 (wrbfd, data + 8, 4);
 455       d->style = windres_get_32 (wrbfd, data + 12, 4);
 456       off = 16;
 457     }
 458
 459   if (length < off + 10)
 460     toosmall (_("dialog header"));
 461
 462   c = windres_get_16 (wrbfd, data + off, 2);
 463   d->x = windres_get_16 (wrbfd, data + off + 2, 2);
 464   d->y = windres_get_16 (wrbfd, data + off + 4, 2);
 465   d->width = windres_get_16 (wrbfd, data + off + 6, 2);
 466   d->height = windres_get_16 (wrbfd, data + off + 8, 2);
 467
 468   off += 10;
 469
 470   sublen = get_resid (wrbfd, &d->menu, data + off, length - off);
 471   off += sublen;
 472
 473   sublen = get_resid (wrbfd, &d->class, data + off, length - off);
 474   off += sublen;
 475
 476   d->caption = get_unicode (wrbfd, data + off, length - off, &sublen);
 477   off += sublen * 2 + 2;
 478   if (sublen == 0)
 479     d->caption = NULL;
 480
 481   if ((d->style & DS_SETFONT) == 0)
 482     {
 483       d->pointsize = 0;
 484       d->font = NULL;
 485       if (d->ex != NULL)
 486         {
 487           d->ex->weight = 0;
 488           d->ex->italic = 0;
 489           d->ex->charset = 1; /* Default charset.  */
 490         }
 491     }
 492   else
 493     {
 494       if (length < off + 2)
 495         toosmall (_("dialog font point size"));
 496
 497       d->pointsize = windres_get_16 (wrbfd, data + off, 2);
 498       off += 2;
 499
 500       if (d->ex != NULL)
 501         {
 502           if (length < off + 4)
 503             toosmall (_("dialogex font information"));
 504           d->ex->weight = windres_get_16 (wrbfd, data + off, 2);
 505           d->ex->italic = windres_get_8 (wrbfd, data + off + 2, 1);
 506           d->ex->charset = windres_get_8 (wrbfd, data + off + 3, 1);
 507           off += 4;
 508         }
 509
 510       d->font = get_unicode (wrbfd, data + off, length - off, &sublen);
 511       off += sublen * 2 + 2;
 512     }
 513
 514   d->controls = NULL;
 515   pp = &d->controls;
 516
 517   for (i = 0; i < c; i++)
 518     {
 519       rc_dialog_control *dc;
 520       int datalen;
 521
 522       off = (off + 3) &~ 3;
 523
 524       dc = (rc_dialog_control *) res_alloc (sizeof (rc_dialog_control));
 525
 526       if (d->ex == NULL)
 527         {
 528           if (length < off + 8)
 529             toosmall (_("dialog control"));
 530
 531           dc->style = windres_get_32 (wrbfd, data + off, 4);
 532           dc->exstyle = windres_get_32 (wrbfd, data + off + 4, 4);
 533           dc->help = 0;
 534           off += 8;
 535         }
 536       else
 537         {
 538           if (length < off + 12)
 539             toosmall (_("dialogex control"));
 540           dc->help = windres_get_32 (wrbfd, data + off, 4);
 541           dc->exstyle = windres_get_32 (wrbfd, data + off + 4, 4);
 542           dc->style = windres_get_32 (wrbfd, data + off + 8, 4);
 543           off += 12;
 544         }
 545
 546       if (length < off + (d->ex != NULL ? 2 : 0) + 10)
 547         toosmall (_("dialog control"));
 548
 549       dc->x = windres_get_16 (wrbfd, data + off, 2);
 550       dc->y = windres_get_16 (wrbfd, data + off + 2, 2);
 551       dc->width = windres_get_16 (wrbfd, data + off + 4, 2);
 552       dc->height = windres_get_16 (wrbfd, data + off + 6, 2);
 553
 554       if (d->ex != NULL)
 555         dc->id = windres_get_32 (wrbfd, data + off + 8, 4);
 556       else
 557         dc->id = windres_get_16 (wrbfd, data + off + 8, 2);
 558
 559       off += 10 + (d->ex != NULL ? 2 : 0);
 560
 561       sublen = get_resid (wrbfd, &dc->class, data + off, length - off);
 562       off += sublen;
 563
 564       sublen = get_resid (wrbfd, &dc->text, data + off, length - off);
 565       off += sublen;
 566
 567       if (length < off + 2)
 568         toosmall (_("dialog control end"));
 569
 570       datalen = windres_get_16 (wrbfd, data + off, 2);
 571       off += 2;
 572
 573       if (datalen == 0)
 574         dc->data = NULL;
 575       else
 576         {
 577           if (length < off + datalen)
 578             toosmall (_("dialog control data"));
 579
 580           dc->data = ((rc_rcdata_item *)
 581                       res_alloc (sizeof (rc_rcdata_item)));
 582           dc->data->next = NULL;
 583           dc->data->type = RCDATA_BUFFER;
 584           dc->data->u.buffer.length = datalen;
 585           dc->data->u.buffer.data = data + off;
 586
 587           off += datalen;
 588         }
 589
 590       dc->next = NULL;
 591       *pp = dc;
 592       pp = &dc->next;
 593     }
 594
 595   r = (rc_res_resource *) res_alloc (sizeof *r);
 596   r->type = RES_TYPE_DIALOG;
 597   r->u.dialog = d;
 598
 599   return r;
 600 }
 601
 602 /* Convert a stringtable resource from binary.  */
 603
 604 static rc_res_resource *
 605 bin_to_res_string (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 606 {
 607   rc_stringtable *st;
 608   int i;
 609   rc_res_resource *r;
 610
 611   st = (rc_stringtable *) res_alloc (sizeof (rc_stringtable));
 612
 613   for (i = 0; i < 16; i++)
 614     {
 615       unsigned int slen;
 616
 617       if (length < 2)
 618         toosmall (_("stringtable string length"));
 619       slen = windres_get_16 (wrbfd, data, 2);
 620       st->strings[i].length = slen;
 621
 622       if (slen > 0)
 623         {
 624           unichar *s;
 625           unsigned int j;
 626
 627           if (length < 2 + 2 * slen)
 628             toosmall (_("stringtable string"));
 629
 630           s = (unichar *) res_alloc (slen * sizeof (unichar));
 631           st->strings[i].string = s;
 632
 633           for (j = 0; j < slen; j++)
 634             s[j] = windres_get_16 (wrbfd, data + 2 + j * 2, 2);
 635         }
 636
 637       data += 2 + 2 * slen;
 638       length -= 2 + 2 * slen;
 639     }
 640
 641   r = (rc_res_resource *) res_alloc (sizeof *r);
 642   r->type = RES_TYPE_STRINGTABLE;
 643   r->u.stringtable = st;
 644
 645   return r;
 646 }
 647
 648 /* Convert a fontdir resource from binary.  */
 649
 650 static rc_res_resource *
 651 bin_to_res_fontdir (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 652 {
 653   rc_uint_type c, i;
 654   rc_fontdir *first, **pp;
 655   rc_res_resource *r;
 656
 657   if (length < 2)
 658     toosmall (_("fontdir header"));
 659
 660   c = windres_get_16 (wrbfd, data, 2);
 661
 662   first = NULL;
 663   pp = &first;
 664
 665   for (i = 0; i < c; i++)
 666     {
 667       const struct bin_fontdir_item *bfi;
 668       rc_fontdir *fd;
 669       unsigned int off;
 670
 671       if (length < 56)
 672         toosmall (_("fontdir"));
 673
 674       bfi = (const struct bin_fontdir_item *) data;
 675       fd = (rc_fontdir *) res_alloc (sizeof *fd);
 676       fd->index = windres_get_16 (wrbfd, bfi->index, 2);
 677
 678       /* To work out the length of the fontdir data, we must get the
 679          length of the device name and face name strings, even though
 680          we don't store them in the rc_fontdir.  The
 681          documentation says that these are NULL terminated char
 682          strings, not Unicode strings.  */
 683
 684       off = 56;
 685
 686       while (off < length && data[off] != '\0')
 687         ++off;
 688       if (off >= length)
 689         toosmall (_("fontdir device name"));
 690       ++off;
 691
 692       while (off < length && data[off] != '\0')
 693         ++off;
 694       if (off >= length)
 695         toosmall (_("fontdir face name"));
 696       ++off;
 697
 698       fd->length = off;
 699       fd->data = data;
 700
 701       fd->next = NULL;
 702       *pp = fd;
 703       pp = &fd->next;
 704
 705       /* The documentation does not indicate that any rounding is
 706          required.  */
 707
 708       data += off;
 709       length -= off;
 710     }
 711
 712   r = (rc_res_resource *) res_alloc (sizeof *r);
 713   r->type = RES_TYPE_FONTDIR;
 714   r->u.fontdir = first;
 715
 716   return r;
 717 }
 718
 719 /* Convert an accelerators resource from binary.  */
 720
 721 static rc_res_resource *
 722 bin_to_res_accelerators (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 723 {
 724   rc_accelerator *first, **pp;
 725   rc_res_resource *r;
 726
 727   first = NULL;
 728   pp = &first;
 729
 730   while (1)
 731     {
 732       rc_accelerator *a;
 733
 734       if (length < 8)
 735         toosmall (_("accelerator"));
 736
 737       a = (rc_accelerator *) res_alloc (sizeof (rc_accelerator));
 738
 739       a->flags = windres_get_16 (wrbfd, data, 2);
 740       a->key = windres_get_16 (wrbfd, data + 2, 2);
 741       a->id = windres_get_16 (wrbfd, data + 4, 2);
 742
 743       a->next = NULL;
 744       *pp = a;
 745       pp = &a->next;
 746
 747       if ((a->flags & ACC_LAST) != 0)
 748         break;
 749
 750       data += 8;
 751       length -= 8;
 752     }
 753
 754   r = (rc_res_resource *) res_alloc (sizeof (rc_res_resource));
 755   r->type = RES_TYPE_ACCELERATOR;
 756   r->u.acc = first;
 757
 758   return r;
 759 }
 760
 761 /* Convert an rcdata resource from binary.  */
 762
 763 static rc_res_resource *
 764 bin_to_res_rcdata (windres_bfd *wrbfd ATTRIBUTE_UNUSED, const bfd_byte *data,
 765                    rc_uint_type length, int rctyp)
 766 {
 767   rc_rcdata_item *ri;
 768   rc_res_resource *r;
 769
 770   ri = (rc_rcdata_item *) res_alloc (sizeof (rc_rcdata_item));
 771
 772   ri->next = NULL;
 773   ri->type = RCDATA_BUFFER;
 774   ri->u.buffer.length = length;
 775   ri->u.buffer.data = data;
 776
 777   r = (rc_res_resource *) res_alloc (sizeof *r);
 778   r->type = rctyp;
 779   r->u.rcdata = ri;
 780
 781   return r;
 782 }
 783
 784 /* Convert a group cursor resource from binary.  */
 785
 786 static rc_res_resource *
 787 bin_to_res_group_cursor (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 788 {
 789   int type, c, i;
 790   rc_group_cursor *first, **pp;
 791   rc_res_resource *r;
 792
 793   if (length < 6)
 794     toosmall (_("group cursor header"));
 795
 796   type = windres_get_16 (wrbfd, data + 2, 2);
 797   if (type != 2)
 798     fatal (_("unexpected group cursor type %d"), type);
 799
 800   c = windres_get_16 (wrbfd, data + 4, 2);
 801
 802   data += 6;
 803   length -= 6;
 804
 805   first = NULL;
 806   pp = &first;
 807
 808   for (i = 0; i < c; i++)
 809     {
 810       rc_group_cursor *gc;
 811
 812       if (length < 14)
 813         toosmall (_("group cursor"));
 814
 815       gc = (rc_group_cursor *) res_alloc (sizeof *gc);
 816
 817       gc->width = windres_get_16 (wrbfd, data, 2);
 818       gc->height = windres_get_16 (wrbfd, data + 2, 2);
 819       gc->planes = windres_get_16 (wrbfd, data + 4, 2);
 820       gc->bits = windres_get_16 (wrbfd, data + 6, 2);
 821       gc->bytes = windres_get_32 (wrbfd, data + 8, 4);
 822       gc->index = windres_get_16 (wrbfd, data + 12, 2);
 823
 824       gc->next = NULL;
 825       *pp = gc;
 826       pp = &gc->next;
 827
 828       data += 14;
 829       length -= 14;
 830     }
 831
 832   r = (rc_res_resource *) res_alloc (sizeof (rc_res_resource));
 833   r->type = RES_TYPE_GROUP_CURSOR;
 834   r->u.group_cursor = first;
 835
 836   return r;
 837 }
 838
 839 /* Convert a group icon resource from binary.  */
 840
 841 static rc_res_resource *
 842 bin_to_res_group_icon (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 843 {
 844   int type, c, i;
 845   rc_group_icon *first, **pp;
 846   rc_res_resource *r;
 847
 848   if (length < 6)
 849     toosmall (_("group icon header"));
 850
 851   type = windres_get_16 (wrbfd, data + 2, 2);
 852   if (type != 1)
 853     fatal (_("unexpected group icon type %d"), type);
 854
 855   c = windres_get_16 (wrbfd, data + 4, 2);
 856
 857   data += 6;
 858   length -= 6;
 859
 860   first = NULL;
 861   pp = &first;
 862
 863   for (i = 0; i < c; i++)
 864     {
 865       rc_group_icon *gi;
 866
 867       if (length < 14)
 868         toosmall (_("group icon"));
 869
 870       gi = (rc_group_icon *) res_alloc (sizeof (rc_group_icon));
 871
 872       gi->width = windres_get_8 (wrbfd, data, 1);
 873       gi->height = windres_get_8 (wrbfd, data + 1, 1);
 874       gi->colors = windres_get_8 (wrbfd, data + 2, 1);
 875       gi->planes = windres_get_16 (wrbfd, data + 4, 2);
 876       gi->bits = windres_get_16 (wrbfd, data + 6, 2);
 877       gi->bytes = windres_get_32 (wrbfd, data + 8, 4);
 878       gi->index = windres_get_16 (wrbfd, data + 12, 2);
 879
 880       gi->next = NULL;
 881       *pp = gi;
 882       pp = &gi->next;
 883
 884       data += 14;
 885       length -= 14;
 886     }
 887
 888   r = (rc_res_resource *) res_alloc (sizeof *r);
 889   r->type = RES_TYPE_GROUP_ICON;
 890   r->u.group_icon = first;
 891
 892   return r;
 893 }
 894
 895 /* Extract data from a version header.  If KEY is not NULL, then the
 896    key must be KEY; otherwise, the key is returned in *PKEY.  This
 897    sets *LEN to the total length, *VALLEN to the value length, *TYPE
 898    to the type, and *OFF to the offset to the children.  */
 899
 900 static void
 901 get_version_header (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length,
 902                     const char *key, unichar **pkey,
 903                     rc_uint_type *len, rc_uint_type *vallen, rc_uint_type *type,
 904                     rc_uint_type *off)
 905 {
 906   if (length < 8)
 907     toosmall (key);
 908
 909   *len = (windres_get_16 (wrbfd, data, 2) + 3) & ~3;
 910   *vallen = windres_get_16 (wrbfd, data + 2, 2);
 911   *type = windres_get_16 (wrbfd, data + 4, 2);
 912
 913   *off = 6;
 914
 915   length -= 6;
 916   data += 6;
 917
 918   if (key == NULL)
 919     {
 920       rc_uint_type sublen;
 921
 922       *pkey = get_unicode (wrbfd, data, length, &sublen);
 923       *off += (sublen + 1) * sizeof (unichar);
 924     }
 925   else
 926     {
 927       while (1)
 928         {
 929           if (length < 2)
 930             toosmall (key);
 931           if (windres_get_16 (wrbfd, data, 2) != (bfd_byte) *key)
 932             fatal (_("unexpected version string"));
 933
 934           *off += 2;
 935           length -= 2;
 936           data += 2;
 937
 938           if (*key == '\0')
 939             break;
 940
 941           ++key;
 942         }
 943     }
 944
 945   *off = (*off + 3) &~ 3;
 946 }
 947
 948 /* Convert a version resource from binary.  */
 949
 950 static rc_res_resource *
 951 bin_to_res_version (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
 952 {
 953   rc_uint_type verlen, vallen, type, off;
 954   rc_fixed_versioninfo *fi;
 955   rc_ver_info *first, **pp;
 956   rc_versioninfo *v;
 957   rc_res_resource *r;
 958
 959   get_version_header (wrbfd, data, length, "VS_VERSION_INFO",
 960                       (unichar **) NULL, &verlen, &vallen, &type, &off);
 961
 962   /* PR 17512: The verlen field does not include padding length.  */
 963   if (verlen > length)
 964     fatal (_("version length %lu greater than resource length %lu"),
 965            (unsigned long) verlen, (unsigned long) length);
 966
 967   if (type != 0)
 968     fatal (_("unexpected version type %d"), (int) type);
 969
 970   data += off;
 971   length -= off;
 972
 973   if (vallen == 0)
 974     fi = NULL;
 975   else
 976     {
 977       unsigned long signature, fiv;
 978
 979       if (vallen != 52)
 980         fatal (_("unexpected fixed version information length %ld"), (long) vallen);
 981
 982       if (length < 52)
 983         toosmall (_("fixed version info"));
 984
 985       signature = windres_get_32 (wrbfd, data, 4);
 986       if (signature != 0xfeef04bd)
 987         fatal (_("unexpected fixed version signature %lu"), signature);
 988
 989       fiv = windres_get_32 (wrbfd, data + 4, 4);
 990       if (fiv != 0 && fiv != 0x10000)
 991         fatal (_("unexpected fixed version info version %lu"), fiv);
 992
 993       fi = (rc_fixed_versioninfo *) res_alloc (sizeof (rc_fixed_versioninfo));
 994
 995       fi->file_version_ms = windres_get_32 (wrbfd, data + 8, 4);
 996       fi->file_version_ls = windres_get_32 (wrbfd, data + 12, 4);
 997       fi->product_version_ms = windres_get_32 (wrbfd, data + 16, 4);
 998       fi->product_version_ls = windres_get_32 (wrbfd, data + 20, 4);
 999       fi->file_flags_mask = windres_get_32 (wrbfd, data + 24, 4);
1000       fi->file_flags = windres_get_32 (wrbfd, data + 28, 4);
1001       fi->file_os = windres_get_32 (wrbfd, data + 32, 4);
1002       fi->file_type = windres_get_32 (wrbfd, data + 36, 4);
1003       fi->file_subtype = windres_get_32 (wrbfd, data + 40, 4);
1004       fi->file_date_ms = windres_get_32 (wrbfd, data + 44, 4);
1005       fi->file_date_ls = windres_get_32 (wrbfd, data + 48, 4);
1006
1007       data += 52;
1008       length -= 52;
1009     }
1010
1011   first = NULL;
1012   pp = &first;
1013
1014   while (length > 0)
1015     {
1016       rc_ver_info *vi;
1017       int ch;
1018
1019       if (length < 8)
1020         toosmall (_("version var info"));
1021
1022       vi = (rc_ver_info *) res_alloc (sizeof (rc_ver_info));
1023
1024       ch = windres_get_16 (wrbfd, data + 6, 2);
1025
1026       if (ch == 'S')
1027         {
1028           rc_ver_stringtable **ppvst;
1029
1030           vi->type = VERINFO_STRING;
1031
1032           get_version_header (wrbfd, data, length, "StringFileInfo",
1033                               (unichar **) NULL, &verlen, &vallen, &type,
1034                               &off);
1035
1036           if (vallen != 0)
1037             fatal (_("unexpected stringfileinfo value length %ld"), (long) vallen);
1038
1039           data += off;
1040           length -= off;
1041
1042           verlen -= off;
1043
1044           vi->u.string.stringtables = NULL;
1045           ppvst = &vi->u.string.stringtables;
1046
1047           while (verlen > 0)
1048             {
1049               rc_ver_stringtable *vst;
1050               rc_uint_type stverlen;
1051               rc_ver_stringinfo **ppvs;
1052
1053               if (length < 8)
1054                 toosmall (_("version stringtable"));
1055
1056               vst = (rc_ver_stringtable *) res_alloc (sizeof (rc_ver_stringtable));
1057
1058               get_version_header (wrbfd, data, length, (const char *) NULL,
1059                                   &vst->language, &stverlen, &vallen, &type, &off);
1060
1061               if (vallen != 0)
1062                 fatal (_("unexpected version stringtable value length %ld"), (long) vallen);
1063
1064               data += off;
1065               length -= off;
1066               verlen -= off;
1067
1068           stverlen -= off;
1069
1070           vst->strings = NULL;
1071           ppvs = &vst->strings;
1072
1073           while (stverlen > 0)
1074             {
1075               rc_ver_stringinfo *vs;
1076               rc_uint_type sverlen, vslen, valoff;
1077
1078               if (length < 8)
1079                 toosmall (_("version string"));
1080
1081               vs = (rc_ver_stringinfo *) res_alloc (sizeof (rc_ver_stringinfo));
1082
1083               get_version_header (wrbfd, data, length, (const char *) NULL,
1084                                   &vs->key, &sverlen, &vallen, &type, &off);
1085
1086               data += off;
1087               length -= off;
1088
1089               vs->value = get_unicode (wrbfd, data, length, &vslen);
1090               valoff = vslen * 2 + 2;
1091               valoff = (valoff + 3) & ~3;
1092
1093               if (off + valoff != sverlen)
1094                 fatal (_("unexpected version string length %ld != %ld + %ld"),
1095                        (long) sverlen, (long) off, (long) valoff);
1096
1097               data += valoff;
1098               length -= valoff;
1099
1100               if (stverlen < sverlen)
1101                 fatal (_("unexpected version string length %ld < %ld"),
1102                        (long) verlen, (long) sverlen);
1103               stverlen -= sverlen;
1104               verlen -= sverlen;
1105
1106               vs->next = NULL;
1107               *ppvs = vs;
1108               ppvs = &vs->next;
1109             }
1110
1111           vst->next = NULL;
1112           *ppvst = vst;
1113           ppvst = &vst->next;
1114             }
1115         }
1116       else if (ch == 'V')
1117         {
1118           rc_ver_varinfo **ppvv;
1119
1120           vi->type = VERINFO_VAR;
1121
1122           get_version_header (wrbfd, data, length, "VarFileInfo",
1123                               (unichar **) NULL, &verlen, &vallen, &type,
1124                               &off);
1125
1126           if (vallen != 0)
1127             fatal (_("unexpected varfileinfo value length %ld"), (long) vallen);
1128
1129           data += off;
1130           length -= off;
1131
1132           get_version_header (wrbfd, data, length, (const char *) NULL,
1133                               &vi->u.var.key, &verlen, &vallen, &type, &off);
1134
1135           data += off;
1136           length -= off;
1137
1138           vi->u.var.var = NULL;
1139           ppvv = &vi->u.var.var;
1140
1141           while (vallen > 0)
1142             {
1143               rc_ver_varinfo *vv;
1144
1145               if (length < 4)
1146                 toosmall (_("version varfileinfo"));
1147
1148               vv = (rc_ver_varinfo *) res_alloc (sizeof (rc_ver_varinfo));
1149
1150               vv->language = windres_get_16 (wrbfd, data, 2);
1151               vv->charset = windres_get_16 (wrbfd, data + 2, 2);
1152
1153               vv->next = NULL;
1154               *ppvv = vv;
1155               ppvv = &vv->next;
1156
1157               data += 4;
1158               length -= 4;
1159
1160               if (vallen < 4)
1161                 fatal (_("unexpected version value length %ld"), (long) vallen);
1162
1163               vallen -= 4;
1164             }
1165         }
1166       else if (ch == 0)
1167         {
1168           if (length == 8)
1169             /* Padding - skip.  */
1170             break;
1171           fatal (_("nul bytes found in version string"));
1172         }
1173       else
1174         fatal (_("unexpected version string character: %x"), ch);
1175
1176       vi->next = NULL;
1177       *pp = vi;
1178       pp = &vi->next;
1179     }
1180
1181   v = (rc_versioninfo *) res_alloc (sizeof (rc_versioninfo));
1182   v->fixed = fi;
1183   v->var = first;
1184
1185   r = (rc_res_resource *) res_alloc (sizeof *r);
1186   r->type = RES_TYPE_VERSIONINFO;
1187   r->u.versioninfo = v;
1188
1189   return r;
1190 }
1191
1192 /* Convert an arbitrary user defined resource from binary.  */
1193
1194 static rc_res_resource *
1195 bin_to_res_userdata (windres_bfd *wrbfd ATTRIBUTE_UNUSED, const bfd_byte *data,
1196                      rc_uint_type length)
1197 {
1198   rc_rcdata_item *ri;
1199   rc_res_resource *r;
1200
1201   ri = (rc_rcdata_item *) res_alloc (sizeof (rc_rcdata_item));
1202
1203   ri->next = NULL;
1204   ri->type = RCDATA_BUFFER;
1205   ri->u.buffer.length = length;
1206   ri->u.buffer.data = data;
1207
1208   r = (rc_res_resource *) res_alloc (sizeof *r);
1209   r->type = RES_TYPE_USERDATA;
1210   r->u.rcdata = ri;
1211
1212   return r;
1213 }
1214 \f
1215 static rc_res_resource *
1216 bin_to_res_toolbar (windres_bfd *wrbfd, const bfd_byte *data, rc_uint_type length)
1217 {
1218   rc_toolbar *ri;
1219   rc_res_resource *r;
1220   rc_uint_type i;
1221
1222   ri = (rc_toolbar *) res_alloc (sizeof (rc_toolbar));
1223   ri->button_width = windres_get_32 (wrbfd, data, 4);
1224   ri->button_height = windres_get_32 (wrbfd, data + 4, 4);
1225   ri->nitems = windres_get_32 (wrbfd, data + 8, 4);
1226   ri->items = NULL;
1227
1228   data += 12;
1229   length -= 12;
1230   for (i=0 ; i < ri->nitems; i++)
1231   {
1232     rc_toolbar_item *it;
1233     it = (rc_toolbar_item *) res_alloc (sizeof (rc_toolbar_item));
1234     it->id.named = 0;
1235     it->id.u.id = (int) windres_get_32 (wrbfd, data, 4);
1236     it->prev = it->next = NULL;
1237     data += 4;
1238     length -= 4;
1239     if(ri->items) {
1240       rc_toolbar_item *ii = ri->items;
1241       while (ii->next != NULL)
1242         ii = ii->next;
1243       it->prev = ii;
1244       ii->next = it;
1245     }
1246     else
1247       ri->items = it;
1248   }
1249   r = (rc_res_resource *) res_alloc (sizeof *r);
1250   r->type = RES_TYPE_TOOLBAR;
1251   r->u.toolbar = ri;
1252   return r;
1253 }
1254
1255
1256 /* Local functions used to convert resources to binary format.  */
1257
1258 static rc_uint_type resid_to_bin (windres_bfd *, rc_uint_type, rc_res_id);
1259 static rc_uint_type unicode_to_bin (windres_bfd *, rc_uint_type, const unichar *);
1260 static rc_uint_type res_to_bin_accelerator (windres_bfd *, rc_uint_type, const rc_accelerator *);
1261 static rc_uint_type res_to_bin_cursor (windres_bfd *, rc_uint_type, const rc_cursor *);
1262 static rc_uint_type res_to_bin_group_cursor (windres_bfd *, rc_uint_type, const rc_group_cursor *);
1263 static rc_uint_type res_to_bin_dialog (windres_bfd *, rc_uint_type, const rc_dialog *);
1264 static rc_uint_type res_to_bin_fontdir (windres_bfd *, rc_uint_type, const rc_fontdir *);
1265 static rc_uint_type res_to_bin_group_icon (windres_bfd *, rc_uint_type, const rc_group_icon *);
1266 static rc_uint_type res_to_bin_menu (windres_bfd *, rc_uint_type, const rc_menu *);
1267 static rc_uint_type res_to_bin_menuitems (windres_bfd *, rc_uint_type, const rc_menuitem *);
1268 static rc_uint_type res_to_bin_menuexitems (windres_bfd *, rc_uint_type, const rc_menuitem *);
1269 static rc_uint_type res_to_bin_rcdata (windres_bfd *, rc_uint_type, const rc_rcdata_item *);
1270 static rc_uint_type res_to_bin_stringtable (windres_bfd *, rc_uint_type, const rc_stringtable *);
1271 static rc_uint_type string_to_unicode_bin (windres_bfd *, rc_uint_type, const char *);
1272 static rc_uint_type res_to_bin_toolbar (windres_bfd *, rc_uint_type, rc_toolbar *tb);
1273 static rc_uint_type res_to_bin_versioninfo (windres_bfd *, rc_uint_type, const rc_versioninfo *);
1274 static rc_uint_type res_to_bin_generic (windres_bfd *, rc_uint_type, rc_uint_type,
1275                                         const bfd_byte *);
1276
1277 /* Convert a resource to binary.  */
1278
1279 rc_uint_type
1280 res_to_bin (windres_bfd *wrbfd, rc_uint_type off, const rc_res_resource *res)
1281 {
1282   switch (res->type)
1283     {
1284     case RES_TYPE_BITMAP:
1285     case RES_TYPE_FONT:
1286     case RES_TYPE_ICON:
1287     case RES_TYPE_MESSAGETABLE:
1288       return res_to_bin_generic (wrbfd, off, res->u.data.length, res->u.data.data);
1289     case RES_TYPE_ACCELERATOR:
1290       return res_to_bin_accelerator (wrbfd, off, res->u.acc);
1291     case RES_TYPE_CURSOR:
1292       return res_to_bin_cursor (wrbfd, off, res->u.cursor);
1293     case RES_TYPE_GROUP_CURSOR:
1294       return res_to_bin_group_cursor (wrbfd, off, res->u.group_cursor);
1295     case RES_TYPE_DIALOG:
1296       return res_to_bin_dialog (wrbfd, off, res->u.dialog);
1297     case RES_TYPE_FONTDIR:
1298       return res_to_bin_fontdir (wrbfd, off, res->u.fontdir);
1299     case RES_TYPE_GROUP_ICON:
1300       return res_to_bin_group_icon (wrbfd, off, res->u.group_icon);
1301     case RES_TYPE_MENU:
1302       return res_to_bin_menu (wrbfd, off, res->u.menu);
1303     case RES_TYPE_STRINGTABLE:
1304       return res_to_bin_stringtable (wrbfd, off, res->u.stringtable);
1305     case RES_TYPE_VERSIONINFO:
1306       return res_to_bin_versioninfo (wrbfd, off, res->u.versioninfo);
1307     case RES_TYPE_TOOLBAR:
1308       return res_to_bin_toolbar (wrbfd, off, res->u.toolbar);
1309     case RES_TYPE_USERDATA:
1310     case RES_TYPE_RCDATA:
1311     default:
1312       return res_to_bin_rcdata (wrbfd, off, res->u.rcdata);
1313     }
1314 }
1315
1316 /* Convert a resource ID to binary.  This always returns exactly one
1317    bindata structure.  */
1318
1319 static rc_uint_type
1320 resid_to_bin (windres_bfd *wrbfd, rc_uint_type off, rc_res_id id)
1321 {
1322   if (! id.named)
1323     {
1324       if (wrbfd)
1325         {
1326           struct bin_res_id bri;
1327
1328           windres_put_16 (wrbfd, bri.sig, 0xffff);
1329           windres_put_16 (wrbfd, bri.id, id.u.id);
1330           set_windres_bfd_content (wrbfd, &bri, off, BIN_RES_ID);
1331         }
1332       off += BIN_RES_ID;
1333     }
1334   else
1335     {
1336       rc_uint_type len = (id.u.n.name ? unichar_len (id.u.n.name) : 0);
1337       if (wrbfd)
1338         {
1339           bfd_byte *d = (bfd_byte *) reswr_alloc ((len + 1) * sizeof (unichar));
1340           rc_uint_type i;
1341           for (i = 0; i < len; i++)
1342             windres_put_16 (wrbfd, d + (i * sizeof (unichar)), id.u.n.name[i]);
1343           windres_put_16 (wrbfd, d + (len * sizeof (unichar)), 0);
1344           set_windres_bfd_content (wrbfd, d, off, (len + 1) * sizeof (unichar));
1345     }
1346       off += (rc_uint_type) ((len + 1) * sizeof (unichar));
1347     }
1348   return off;
1349 }
1350
1351 /* Convert a null terminated unicode string to binary.  This always
1352    returns exactly one bindata structure.  */
1353
1354 static rc_uint_type
1355 unicode_to_bin (windres_bfd *wrbfd, rc_uint_type off, const unichar *str)
1356 {
1357   rc_uint_type len = 0;
1358
1359   if (str != NULL)
1360     len = unichar_len (str);
1361
1362   if (wrbfd)
1363     {
1364       bfd_byte *d;
1365       rc_uint_type i;
1366       d = (bfd_byte *) reswr_alloc ( (len + 1) * sizeof (unichar));
1367       for (i = 0; i < len; i++)
1368         windres_put_16 (wrbfd, d + (i * sizeof (unichar)), str[i]);
1369       windres_put_16 (wrbfd, d + (len * sizeof (unichar)), 0);
1370       set_windres_bfd_content (wrbfd, d, off, (len + 1) * sizeof (unichar));
1371     }
1372   off += (rc_uint_type) ((len + 1) * sizeof (unichar));
1373
1374   return off;
1375 }
1376
1377 /* Convert an accelerator resource to binary.  */
1378
1379 static rc_uint_type
1380 res_to_bin_accelerator (windres_bfd *wrbfd, rc_uint_type off,
1381                         const rc_accelerator *accelerators)
1382 {
1383   const rc_accelerator *a;
1384
1385   for (a = accelerators; a != NULL; a = a->next)
1386     {
1387       if (wrbfd)
1388         {
1389           struct bin_accelerator ba;
1390
1391           windres_put_16 (wrbfd, ba.flags, a->flags | (a->next != NULL ? 0 : ACC_LAST));
1392           windres_put_16 (wrbfd, ba.key, a->key);
1393           windres_put_16 (wrbfd, ba.id, a->id);
1394           windres_put_16 (wrbfd, ba.pad, 0);
1395           set_windres_bfd_content (wrbfd, &ba, off, BIN_ACCELERATOR_SIZE);
1396     }
1397       off += BIN_ACCELERATOR_SIZE;
1398     }
1399   return off;
1400 }
1401
1402 /* Convert a cursor resource to binary.  */
1403
1404 static rc_uint_type
1405 res_to_bin_cursor (windres_bfd *wrbfd, rc_uint_type off, const rc_cursor *c)
1406 {
1407   if (wrbfd)
1408     {
1409       struct bin_cursor bc;
1410
1411       windres_put_16 (wrbfd, bc.xhotspot, c->xhotspot);
1412       windres_put_16 (wrbfd, bc.yhotspot, c->yhotspot);
1413       set_windres_bfd_content (wrbfd, &bc, off, BIN_CURSOR_SIZE);
1414       if (c->length)
1415         set_windres_bfd_content (wrbfd, c->data, off + BIN_CURSOR_SIZE, c->length);
1416     }
1417   off = (off + BIN_CURSOR_SIZE + (rc_uint_type) c->length);
1418   return off;
1419 }
1420
1421 /* Convert a group cursor resource to binary.  */
1422
1423 static rc_uint_type
1424 res_to_bin_group_cursor (windres_bfd *wrbfd, rc_uint_type off,
1425                          const rc_group_cursor *group_cursors)
1426 {
1427   int c = 0;
1428   const rc_group_cursor *gc;
1429   struct bin_group_cursor bgc;
1430   struct bin_group_cursor_item bgci;
1431   rc_uint_type start = off;
1432
1433   off += BIN_GROUP_CURSOR_SIZE;
1434
1435   for (c = 0, gc = group_cursors; gc != NULL; gc = gc->next, c++)
1436     {
1437       if (wrbfd)
1438         {
1439           windres_put_16 (wrbfd, bgci.width, gc->width);
1440           windres_put_16 (wrbfd, bgci.height, gc->height);
1441           windres_put_16 (wrbfd, bgci.planes, gc->planes);
1442           windres_put_16 (wrbfd, bgci.bits, gc->bits);
1443           windres_put_32 (wrbfd, bgci.bytes, gc->bytes);
1444           windres_put_16 (wrbfd, bgci.index, gc->index);
1445           set_windres_bfd_content (wrbfd, &bgci, off, BIN_GROUP_CURSOR_ITEM_SIZE);
1446     }
1447
1448       off += BIN_GROUP_CURSOR_ITEM_SIZE;
1449     }
1450   if (wrbfd)
1451     {
1452       windres_put_16 (wrbfd, bgc.sig1, 0);
1453       windres_put_16 (wrbfd, bgc.sig2, 2);
1454       windres_put_16 (wrbfd, bgc.nitems, c);
1455       set_windres_bfd_content (wrbfd, &bgc, start, BIN_GROUP_CURSOR_SIZE);
1456     }
1457   return off;
1458 }
1459
1460 /* Convert a dialog resource to binary.  */
1461
1462 static rc_uint_type
1463 res_to_bin_dialog (windres_bfd *wrbfd, rc_uint_type off, const rc_dialog *dialog)
1464 {
1465   rc_uint_type off_delta;
1466   rc_uint_type start, marker;
1467   int dialogex;
1468   int c;
1469   rc_dialog_control *dc;
1470   struct bin_dialogex bdx;
1471   struct bin_dialog bd;
1472
1473   off_delta = off;
1474   start = off;
1475   dialogex = extended_dialog (dialog);
1476
1477   if (wrbfd)
1478     {
1479   if (! dialogex)
1480     {
1481           windres_put_32 (wrbfd, bd.style, dialog->style);
1482           windres_put_32 (wrbfd, bd.exstyle, dialog->exstyle);
1483           windres_put_16 (wrbfd, bd.x, dialog->x);
1484           windres_put_16 (wrbfd, bd.y, dialog->y);
1485           windres_put_16 (wrbfd, bd.width, dialog->width);
1486           windres_put_16 (wrbfd, bd.height, dialog->height);
1487     }
1488   else
1489     {
1490           windres_put_16 (wrbfd, bdx.sig1, 1);
1491           windres_put_16 (wrbfd, bdx.sig2, 0xffff);
1492           windres_put_32 (wrbfd, bdx.help, (dialog->ex ? dialog->ex->help : 0));
1493           windres_put_32 (wrbfd, bdx.exstyle, dialog->exstyle);
1494           windres_put_32 (wrbfd, bdx.style, dialog->style);
1495           windres_put_16 (wrbfd, bdx.x, dialog->x);
1496           windres_put_16 (wrbfd, bdx.y, dialog->y);
1497           windres_put_16 (wrbfd, bdx.width, dialog->width);
1498           windres_put_16 (wrbfd, bdx.height, dialog->height);
1499         }
1500     }
1501
1502   off += (dialogex != 0 ? BIN_DIALOGEX_SIZE : BIN_DIALOG_SIZE);
1503
1504   off = resid_to_bin (wrbfd, off, dialog->menu);
1505   off = resid_to_bin (wrbfd, off, dialog->class);
1506   off = unicode_to_bin (wrbfd, off, dialog->caption);
1507
1508   if ((dialog->style & DS_SETFONT) != 0)
1509     {
1510       if (wrbfd)
1511         {
1512           if (! dialogex)
1513             {
1514               struct bin_dialogfont bdf;
1515               windres_put_16 (wrbfd, bdf.pointsize, dialog->pointsize);
1516               set_windres_bfd_content (wrbfd, &bdf, off, BIN_DIALOGFONT_SIZE);
1517             }
1518           else
1519             {
1520               struct bin_dialogexfont bdxf;
1521               windres_put_16 (wrbfd, bdxf.pointsize, dialog->pointsize);
1522               windres_put_16 (wrbfd, bdxf.weight, (dialog->ex == NULL ? 0 : dialog->ex->weight));
1523               windres_put_8 (wrbfd, bdxf.italic, (dialog->ex == NULL ? 0 : dialog->ex->italic));
1524               windres_put_8 (wrbfd, bdxf.charset, (dialog->ex == NULL ? 1 : dialog->ex->charset));
1525               set_windres_bfd_content (wrbfd, &bdxf, off, BIN_DIALOGEXFONT_SIZE);
1526             }
1527         }
1528       off += (dialogex ? BIN_DIALOGEXFONT_SIZE : BIN_DIALOGFONT_SIZE);
1529       off = unicode_to_bin (wrbfd, off, dialog->font);
1530     }
1531   for (c = 0, dc = dialog->controls; dc != NULL; dc = dc->next, c++)
1532     {
1533       bfd_byte dc_rclen[2];
1534
1535       off += (4 - ((off - off_delta) & 3)) & 3;
1536       if (wrbfd)
1537         {
1538       if (! dialogex)
1539         {
1540               struct bin_dialog_control bdc;
1541
1542               windres_put_32 (wrbfd, bdc.style, dc->style);
1543               windres_put_32 (wrbfd, bdc.exstyle, dc->exstyle);
1544               windres_put_16 (wrbfd, bdc.x, dc->x);
1545               windres_put_16 (wrbfd, bdc.y, dc->y);
1546               windres_put_16 (wrbfd, bdc.width, dc->width);
1547               windres_put_16 (wrbfd, bdc.height, dc->height);
1548               windres_put_16 (wrbfd, bdc.id, dc->id);
1549               set_windres_bfd_content (wrbfd, &bdc, off, BIN_DIALOG_CONTROL_SIZE);
1550         }
1551       else
1552         {
1553               struct bin_dialogex_control bdc;
1554
1555               windres_put_32 (wrbfd, bdc.help, dc->help);
1556               windres_put_32 (wrbfd, bdc.exstyle, dc->exstyle);
1557               windres_put_32 (wrbfd, bdc.style, dc->style);
1558               windres_put_16 (wrbfd, bdc.x, dc->x);
1559               windres_put_16 (wrbfd, bdc.y, dc->y);
1560               windres_put_16 (wrbfd, bdc.width, dc->width);
1561               windres_put_16 (wrbfd, bdc.height, dc->height);
1562               windres_put_32 (wrbfd, bdc.id, dc->id);
1563               set_windres_bfd_content (wrbfd, &bdc, off, BIN_DIALOGEX_CONTROL_SIZE);
1564             }
1565         }
1566       off += (dialogex != 0 ? BIN_DIALOGEX_CONTROL_SIZE : BIN_DIALOG_CONTROL_SIZE);
1567
1568       off = resid_to_bin (wrbfd, off, dc->class);
1569       off = resid_to_bin (wrbfd, off, dc->text);
1570
1571       marker = off; /* Save two bytes for size of optional data.  */
1572       off += 2;
1573
1574       if (dc->data == NULL)
1575         {
1576           if (wrbfd)
1577             windres_put_16 (wrbfd, dc_rclen, 0);
1578         }
1579       else
1580         {
1581           rc_uint_type saved_off = off;
1582           rc_uint_type old_off;
1583
1584           old_off = off;
1585           off = res_to_bin_rcdata (wrbfd, off, dc->data);
1586           if ((off - old_off) == 0)
1587             old_off = off = saved_off;
1588           if (wrbfd)
1589             windres_put_16 (wrbfd, dc_rclen, off - old_off);
1590         }
1591       if (wrbfd)
1592         set_windres_bfd_content (wrbfd, dc_rclen, marker, 2);
1593     }
1594
1595   if (wrbfd)
1596     {
1597       windres_put_16 (wrbfd, (dialogex != 0 ? bdx.off : bd.off), c);
1598       if (! dialogex)
1599         set_windres_bfd_content (wrbfd, &bd, start, BIN_DIALOG_SIZE);
1600       else
1601         set_windres_bfd_content (wrbfd, &bdx, start, BIN_DIALOGEX_SIZE);
1602     }
1603
1604   return off;
1605 }
1606
1607 /* Convert a fontdir resource to binary.  */
1608 static rc_uint_type
1609 res_to_bin_fontdir (windres_bfd *wrbfd, rc_uint_type off, const rc_fontdir *fontdirs)
1610 {
1611   rc_uint_type start;
1612   int c;
1613   const rc_fontdir *fd;
1614
1615   start = off;
1616   off += 2;
1617
1618   for (c = 0, fd = fontdirs; fd != NULL; fd = fd->next, c++)
1619     {
1620       if (wrbfd)
1621         {
1622           bfd_byte d[2];
1623           windres_put_16 (wrbfd, d, fd->index);
1624           set_windres_bfd_content (wrbfd, d, off, 2);
1625           if (fd->length)
1626             set_windres_bfd_content (wrbfd, fd->data, off + 2, fd->length);
1627         }
1628       off += (rc_uint_type) fd->length + 2;
1629     }
1630
1631   if (wrbfd)
1632     {
1633       bfd_byte d[2];
1634       windres_put_16 (wrbfd, d, c);
1635       set_windres_bfd_content (wrbfd, d, start, 2);
1636     }
1637   return off;
1638 }
1639
1640 /* Convert a group icon resource to binary.  */
1641
1642 static rc_uint_type
1643 res_to_bin_group_icon (windres_bfd *wrbfd, rc_uint_type off, const rc_group_icon *group_icons)
1644 {
1645   rc_uint_type start;
1646   struct bin_group_icon bgi;
1647   int c;
1648   const rc_group_icon *gi;
1649
1650   start = off;
1651   off += BIN_GROUP_ICON_SIZE;
1652
1653   for (c = 0, gi = group_icons; gi != NULL; gi = gi->next, c++)
1654     {
1655       struct bin_group_icon_item bgii;
1656
1657       if (wrbfd)
1658         {
1659           windres_put_8 (wrbfd, bgii.width, gi->width);
1660           windres_put_8 (wrbfd, bgii.height, gi->height);
1661           windres_put_8 (wrbfd, bgii.colors, gi->colors);
1662           windres_put_8 (wrbfd, bgii.pad, 0);
1663           windres_put_16 (wrbfd, bgii.planes, gi->planes);
1664           windres_put_16 (wrbfd, bgii.bits, gi->bits);
1665           windres_put_32 (wrbfd, bgii.bytes, gi->bytes);
1666           windres_put_16 (wrbfd, bgii.index, gi->index);
1667           set_windres_bfd_content (wrbfd, &bgii, off, BIN_GROUP_ICON_ITEM_SIZE);
1668         }
1669       off += BIN_GROUP_ICON_ITEM_SIZE;
1670     }
1671
1672   if (wrbfd)
1673     {
1674       windres_put_16 (wrbfd, bgi.sig1, 0);
1675       windres_put_16 (wrbfd, bgi.sig2, 1);
1676       windres_put_16 (wrbfd, bgi.count, c);
1677       set_windres_bfd_content (wrbfd, &bgi, start, BIN_GROUP_ICON_SIZE);
1678     }
1679   return off;
1680 }
1681
1682 /* Convert a menu resource to binary.  */
1683
1684 static rc_uint_type
1685 res_to_bin_menu (windres_bfd *wrbfd, rc_uint_type off, const rc_menu *menu)
1686 {
1687   int menuex;
1688
1689   menuex = extended_menu (menu);
1690
1691   if (wrbfd)
1692     {
1693   if (! menuex)
1694     {
1695           struct bin_menu bm;
1696           windres_put_16 (wrbfd, bm.sig1, 0);
1697           windres_put_16 (wrbfd, bm.sig2, 0);
1698           set_windres_bfd_content (wrbfd, &bm, off, BIN_MENU_SIZE);
1699     }
1700   else
1701     {
1702           struct bin_menuex bm;
1703           windres_put_16 (wrbfd, bm.sig1, 1);
1704           windres_put_16 (wrbfd, bm.sig2, 4);
1705           windres_put_32 (wrbfd, bm.help, menu->help);
1706           set_windres_bfd_content (wrbfd, &bm, off, BIN_MENUEX_SIZE);
1707     }
1708     }
1709   off += (menuex != 0 ? BIN_MENUEX_SIZE : BIN_MENU_SIZE);
1710   if (! menuex)
1711     {
1712       off = res_to_bin_menuitems (wrbfd, off, menu->items);
1713     }
1714   else
1715     {
1716       off = res_to_bin_menuexitems (wrbfd, off, menu->items);
1717     }
1718   return off;
1719 }
1720
1721 /* Convert menu items to binary.  */
1722
1723 static rc_uint_type
1724 res_to_bin_menuitems (windres_bfd *wrbfd, rc_uint_type off, const rc_menuitem *items)
1725 {
1726   const rc_menuitem *mi;
1727
1728   for (mi = items; mi != NULL; mi = mi->next)
1729     {
1730       struct bin_menuitem bmi;
1731       int flags;
1732
1733       flags = mi->type;
1734       if (mi->next == NULL)
1735         flags |= MENUITEM_ENDMENU;
1736       if (mi->popup != NULL)
1737         flags |= MENUITEM_POPUP;
1738
1739       if (wrbfd)
1740         {
1741           windres_put_16 (wrbfd, bmi.flags, flags);
1742       if (mi->popup == NULL)
1743             windres_put_16 (wrbfd, bmi.id, mi->id);
1744           set_windres_bfd_content (wrbfd, &bmi, off,
1745                                    mi->popup == NULL ? BIN_MENUITEM_SIZE
1746                                                      : BIN_MENUITEM_POPUP_SIZE);
1747         }
1748       off += (mi->popup == NULL ? BIN_MENUITEM_SIZE : BIN_MENUITEM_POPUP_SIZE);
1749
1750       off = unicode_to_bin (wrbfd, off, mi->text);
1751
1752       if (mi->popup != NULL)
1753         {
1754           off = res_to_bin_menuitems (wrbfd, off, mi->popup);
1755         }
1756     }
1757   return off;
1758 }
1759
1760 /* Convert menuex items to binary.  */
1761
1762 static rc_uint_type
1763 res_to_bin_menuexitems (windres_bfd *wrbfd, rc_uint_type off, const rc_menuitem *items)
1764 {
1765   rc_uint_type off_delta = off;
1766   const rc_menuitem *mi;
1767
1768   for (mi = items; mi != NULL; mi = mi->next)
1769     {
1770       struct bin_menuitemex bmi;
1771       int flags;
1772
1773       off += (4 - ((off - off_delta) & 3)) & 3;
1774
1775       flags = 0;
1776       if (mi->next == NULL)
1777         flags |= 0x80;
1778       if (mi->popup != NULL)
1779         flags |= 1;
1780
1781       if (wrbfd)
1782         {
1783           windres_put_32 (wrbfd, bmi.type, mi->type);
1784           windres_put_32 (wrbfd, bmi.state, mi->state);
1785           windres_put_32 (wrbfd, bmi.id, mi->id);
1786           windres_put_16 (wrbfd, bmi.flags, flags);
1787           set_windres_bfd_content (wrbfd, &bmi, off, BIN_MENUITEMEX_SIZE);
1788         }
1789       off += BIN_MENUITEMEX_SIZE;
1790
1791       off = unicode_to_bin (wrbfd, off, mi->text);
1792
1793       if (mi->popup != NULL)
1794         {
1795           bfd_byte help[4];
1796
1797           off += (4 - ((off - off_delta) & 3)) & 3;
1798
1799           if (wrbfd)
1800             {
1801               windres_put_32 (wrbfd, help, mi->help);
1802               set_windres_bfd_content (wrbfd, help, off, 4);
1803             }
1804           off += 4;
1805           off = res_to_bin_menuexitems (wrbfd, off, mi->popup);
1806         }
1807     }
1808   return off;
1809 }
1810
1811 /* Convert an rcdata resource to binary.  This is also used to convert
1812    other information which happens to be stored in rc_rcdata_item lists
1813    to binary.  */
1814
1815 static rc_uint_type
1816 res_to_bin_rcdata (windres_bfd *wrbfd, rc_uint_type off, const rc_rcdata_item *items)
1817 {
1818   const rc_rcdata_item *ri;
1819
1820   for (ri = items; ri != NULL; ri = ri->next)
1821     {
1822       rc_uint_type len;
1823       switch (ri->type)
1824         {
1825         default:
1826           abort ();
1827         case RCDATA_WORD:
1828           len = 2;
1829           break;
1830         case RCDATA_DWORD:
1831           len = 4;
1832           break;
1833         case RCDATA_STRING:
1834           len = ri->u.string.length;
1835           break;
1836         case RCDATA_WSTRING:
1837           len = ri->u.wstring.length * sizeof (unichar);
1838           break;
1839         case RCDATA_BUFFER:
1840           len = ri->u.buffer.length;
1841           break;
1842         }
1843       if (wrbfd)
1844         {
1845           bfd_byte h[4];
1846           bfd_byte *hp = &h[0];
1847           switch (ri->type)
1848             {
1849             case RCDATA_WORD:
1850               windres_put_16 (wrbfd, hp, ri->u.word);
1851               break;
1852             case RCDATA_DWORD:
1853               windres_put_32 (wrbfd, hp, ri->u.dword);
1854               break;
1855             case RCDATA_STRING:
1856               hp = (bfd_byte *) ri->u.string.s;
1857           break;
1858         case RCDATA_WSTRING:
1859           {
1860                 rc_uint_type i;
1861
1862                 hp = (bfd_byte *) reswr_alloc (len);
1863             for (i = 0; i < ri->u.wstring.length; i++)
1864                   windres_put_16 (wrbfd, hp + i * sizeof (unichar), ri->u.wstring.w[i]);
1865           }
1866               break;
1867         case RCDATA_BUFFER:
1868               hp = (bfd_byte *) ri->u.buffer.data;
1869           break;
1870         }
1871           set_windres_bfd_content (wrbfd, hp, off, len);
1872     }
1873       off += len;
1874     }
1875   return off;
1876 }
1877
1878 /* Convert a stringtable resource to binary.  */
1879
1880 static rc_uint_type
1881 res_to_bin_stringtable (windres_bfd *wrbfd, rc_uint_type off,
1882                         const rc_stringtable *st)
1883 {
1884   int i;
1885
1886   for (i = 0; i < 16; i++)
1887     {
1888       rc_uint_type slen, length;
1889       unichar *s;
1890
1891       slen = (rc_uint_type) st->strings[i].length;
1892       if (slen == 0xffffffff) slen = 0;
1893       s = st->strings[i].string;
1894
1895       length = 2 + slen * 2;
1896       if (wrbfd)
1897         {
1898           bfd_byte *hp;
1899           rc_uint_type j;
1900
1901           hp = (bfd_byte *) reswr_alloc (length);
1902           windres_put_16 (wrbfd, hp, slen);
1903
1904       for (j = 0; j < slen; j++)
1905             windres_put_16 (wrbfd, hp + 2 + j * 2, s[j]);
1906           set_windres_bfd_content (wrbfd, hp, off, length);
1907     }
1908       off += length;
1909     }
1910   return off;
1911 }
1912
1913 /* Convert an ASCII string to a unicode binary string.  This always
1914    returns exactly one bindata structure.  */
1915
1916 static rc_uint_type
1917 string_to_unicode_bin (windres_bfd *wrbfd, rc_uint_type off, const char *s)
1918 {
1919   rc_uint_type len;
1920
1921   len = (rc_uint_type) strlen (s);
1922
1923   if (wrbfd)
1924     {
1925       rc_uint_type i;
1926       bfd_byte *hp;
1927
1928       hp = (bfd_byte *) reswr_alloc ((len + 1) * sizeof (unichar));
1929
1930       for (i = 0; i < len; i++)
1931         windres_put_16 (wrbfd, hp + i * 2, s[i]);
1932       windres_put_16 (wrbfd, hp + i * 2, 0);
1933       set_windres_bfd_content (wrbfd, hp, off, (len + 1) * sizeof (unichar));
1934     }
1935   off += (rc_uint_type) ((len + 1) * sizeof (unichar));
1936   return off;
1937 }
1938
1939 static rc_uint_type
1940 res_to_bin_toolbar (windres_bfd *wrbfd, rc_uint_type off, rc_toolbar *tb)
1941 {
1942   if (wrbfd)
1943     {
1944       struct bin_toolbar bt;
1945       windres_put_32 (wrbfd, bt.button_width, tb->button_width);
1946       windres_put_32 (wrbfd, bt.button_height, tb->button_height);
1947       windres_put_32 (wrbfd, bt.nitems, tb->nitems);
1948       set_windres_bfd_content (wrbfd, &bt, off, BIN_TOOLBAR_SIZE);
1949       if (tb->nitems > 0)
1950         {
1951           rc_toolbar_item *it;
1952           bfd_byte *ids;
1953           rc_uint_type i = 0;
1954
1955           ids = (bfd_byte *) reswr_alloc (tb->nitems * 4);
1956           it=tb->items;
1957           while(it != NULL)
1958             {
1959               windres_put_32 (wrbfd, ids + i, it->id.u.id);
1960               i += 4;
1961               it = it->next;
1962             }
1963           set_windres_bfd_content (wrbfd, ids, off + BIN_TOOLBAR_SIZE, i);
1964         }
1965     }
1966   off += BIN_TOOLBAR_SIZE + tb->nitems * 4;
1967
1968   return off;
1969 }
1970
1971 /* Convert a versioninfo resource to binary.  */
1972
1973 static rc_uint_type
1974 res_to_bin_versioninfo (windres_bfd *wrbfd, rc_uint_type off,
1975                         const rc_versioninfo *versioninfo)
1976 {
1977   rc_uint_type off_delta = off;
1978   rc_uint_type start;
1979   struct bin_versioninfo bvi;
1980   rc_ver_info *vi;
1981
1982   start = off;
1983   off += BIN_VERSIONINFO_SIZE;
1984   off = string_to_unicode_bin (wrbfd, off, "VS_VERSION_INFO");
1985   off += (4 - ((off - off_delta) & 3)) & 3;
1986
1987   if (versioninfo->fixed != NULL)
1988     {
1989       if (wrbfd)
1990         {
1991           struct bin_fixed_versioninfo bfv;
1992           const rc_fixed_versioninfo *fi;
1993
1994       fi = versioninfo->fixed;
1995           windres_put_32 (wrbfd, bfv.sig1, 0xfeef04bd);
1996           windres_put_32 (wrbfd, bfv.sig2, 0x10000);
1997           windres_put_32 (wrbfd, bfv.file_version, fi->file_version_ms);
1998           windres_put_32 (wrbfd, bfv.file_version_ls, fi->file_version_ls);
1999           windres_put_32 (wrbfd, bfv.product_version_ms, fi->product_version_ms);
2000           windres_put_32 (wrbfd, bfv.product_version_ls, fi->product_version_ls);
2001           windres_put_32 (wrbfd, bfv.file_flags_mask, fi->file_flags_mask);
2002           windres_put_32 (wrbfd, bfv.file_flags, fi->file_flags);
2003           windres_put_32 (wrbfd, bfv.file_os, fi->file_os);
2004           windres_put_32 (wrbfd, bfv.file_type, fi->file_type);
2005           windres_put_32 (wrbfd, bfv.file_subtype, fi->file_subtype);
2006           windres_put_32 (wrbfd, bfv.file_date_ms, fi->file_date_ms);
2007           windres_put_32 (wrbfd, bfv.file_date_ls, fi->file_date_ls);
2008           set_windres_bfd_content (wrbfd, &bfv, off, BIN_FIXED_VERSIONINFO_SIZE);
2009         }
2010       off += BIN_FIXED_VERSIONINFO_SIZE;
2011     }
2012
2013   for (vi = versioninfo->var; vi != NULL; vi = vi->next)
2014     {
2015       struct bin_ver_info bv;
2016       rc_uint_type bv_off;
2017
2018       off += (4 - ((off - off_delta) & 3)) & 3;
2019
2020       bv_off = off;
2021
2022       off += BIN_VER_INFO_SIZE;
2023
2024       switch (vi->type)
2025         {
2026         default:
2027           abort ();
2028         case VERINFO_STRING:
2029           {
2030             const rc_ver_stringtable *vst;
2031
2032             off = string_to_unicode_bin (wrbfd, off, "StringFileInfo");
2033
2034             if (!vi->u.string.stringtables)
2035               off += (4 - ((off - off_delta) & 3)) & 3;
2036
2037             for (vst = vi->u.string.stringtables; vst != NULL; vst = vst->next)
2038               {
2039                 struct bin_ver_info bvst;
2040                 rc_uint_type vst_off;
2041                 const rc_ver_stringinfo *vs;
2042
2043                 off += (4 - ((off - off_delta) & 3)) & 3;
2044
2045                 vst_off = off;
2046                 off += BIN_VER_INFO_SIZE;
2047
2048                 off = unicode_to_bin (wrbfd, off, vst->language);
2049
2050                 for (vs = vst->strings; vs != NULL; vs = vs->next)
2051                   {
2052                     struct bin_ver_info bvs;
2053                     rc_uint_type vs_off, str_off;
2054
2055                     off += (4 - ((off - off_delta) & 3)) & 3;
2056
2057                     vs_off = off;
2058                     off += BIN_VER_INFO_SIZE;
2059
2060                     off = unicode_to_bin (wrbfd, off, vs->key);
2061
2062                     off += (4 - ((off - off_delta) & 3)) & 3;
2063
2064                     str_off = off;
2065                     off = unicode_to_bin (wrbfd, off, vs->value);
2066
2067                     if (wrbfd)
2068                       {
2069                         windres_put_16 (wrbfd, bvs.size, off - vs_off);
2070                         windres_put_16 (wrbfd, bvs.sig1, (off - str_off) / 2);
2071                         windres_put_16 (wrbfd, bvs.sig2, 1);
2072                         set_windres_bfd_content (wrbfd, &bvs, vs_off,
2073                                                  BIN_VER_INFO_SIZE);
2074                       }
2075                   }
2076
2077                 if (wrbfd)
2078                   {
2079                     windres_put_16 (wrbfd, bvst.size, off - vst_off);
2080                     windres_put_16 (wrbfd, bvst.sig1, 0);
2081                     windres_put_16 (wrbfd, bvst.sig2, 1);
2082                     set_windres_bfd_content (wrbfd, &bvst, vst_off,
2083                                              BIN_VER_INFO_SIZE);
2084                   }
2085               }
2086             break;
2087           }
2088
2089         case VERINFO_VAR:
2090           {
2091             rc_uint_type vvd_off, vvvd_off;
2092             struct bin_ver_info bvvd;
2093             const rc_ver_varinfo *vv;
2094
2095             off = string_to_unicode_bin (wrbfd, off, "VarFileInfo");
2096
2097             off += (4 - ((off - off_delta) & 3)) & 3;
2098
2099             vvd_off = off;
2100             off += BIN_VER_INFO_SIZE;
2101
2102             off = unicode_to_bin (wrbfd, off, vi->u.var.key);
2103
2104             off += (4 - ((off - off_delta) & 3)) & 3;
2105
2106             vvvd_off = off;
2107
2108             for (vv = vi->u.var.var; vv != NULL; vv = vv->next)
2109               {
2110                 if (wrbfd)
2111                   {
2112                     bfd_byte vvsd[4];
2113
2114                     windres_put_16 (wrbfd, &vvsd[0], vv->language);
2115                     windres_put_16 (wrbfd, &vvsd[2], vv->charset);
2116                     set_windres_bfd_content (wrbfd, vvsd, off, 4);
2117                   }
2118                 off += 4;
2119               }
2120             if (wrbfd)
2121             {
2122                 windres_put_16 (wrbfd, bvvd.size, off - vvd_off);
2123                 windres_put_16 (wrbfd, bvvd.sig1, off - vvvd_off);
2124                 windres_put_16 (wrbfd, bvvd.sig2, 0);
2125                 set_windres_bfd_content (wrbfd, &bvvd, vvd_off,
2126                                          BIN_VER_INFO_SIZE);
2127             }
2128
2129             break;
2130           }
2131         }
2132
2133       if (wrbfd)
2134         {
2135           windres_put_16 (wrbfd, bv.size, off - bv_off);
2136           windres_put_16 (wrbfd, bv.sig1, 0);
2137           windres_put_16 (wrbfd, bv.sig2, 1);
2138           set_windres_bfd_content (wrbfd, &bv, bv_off,
2139                                    BIN_VER_INFO_SIZE);
2140         }
2141     }
2142
2143   if (wrbfd)
2144     {
2145       windres_put_16 (wrbfd, bvi.size, off - start);
2146       windres_put_16 (wrbfd, bvi.fixed_size,
2147                       versioninfo->fixed == NULL ? 0
2148                                                  : BIN_FIXED_VERSIONINFO_SIZE);
2149       windres_put_16 (wrbfd, bvi.sig2, 0);
2150       set_windres_bfd_content (wrbfd, &bvi, start, BIN_VER_INFO_SIZE);
2151     }
2152   return off;
2153 }
2154
2155 /* Convert a generic resource to binary.  */
2156
2157 static rc_uint_type
2158 res_to_bin_generic (windres_bfd *wrbfd, rc_uint_type off, rc_uint_type length,
2159                     const bfd_byte *data)
2160 {
2161   if (wrbfd && length != 0)
2162     set_windres_bfd_content (wrbfd, data, off, length);
2163   return off + (rc_uint_type) length;
2164 }