binutils/resres.c

   1 /* resres.c: read_res_file and write_res_file implementation for windres.
   2    Copyright (C) 1998-2023 Free Software Foundation, Inc.
   3    Written by Anders Norlander <anorland@hem2.passagen.se>.
   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 /* FIXME: This file does not work correctly in a cross configuration.
  24    It assumes that it can use fread and fwrite to read and write
  25    integers.  It does no swapping.  */
  26
  27 #include "sysdep.h"
  28 #include "bfd.h"
  29 #include "bucomm.h"
  30 #include "libiberty.h"
  31 #include "windres.h"
  32
  33 #include <assert.h>
  34
  35 static rc_uint_type write_res_directory (windres_bfd *, rc_uint_type,
  36                                          const rc_res_directory *, const rc_res_id *,
  37                                          const rc_res_id *, rc_uint_type *, int);
  38 static rc_uint_type write_res_resource (windres_bfd *, rc_uint_type,const rc_res_id *,
  39                                         const rc_res_id *, const rc_res_resource *,
  40                                         rc_uint_type *);
  41 static rc_uint_type write_res_bin (windres_bfd *, rc_uint_type, const rc_res_resource *,
  42                                    const rc_res_id *, const rc_res_id *,
  43                                    const rc_res_res_info *);
  44
  45 static rc_uint_type write_res_id (windres_bfd *, rc_uint_type, const rc_res_id *);
  46 static rc_uint_type write_res_info (windres_bfd *, rc_uint_type, const rc_res_res_info *);
  47 static rc_uint_type write_res_data_hdr (windres_bfd *, rc_uint_type, res_hdr *);
  48
  49 static rc_uint_type write_res_header (windres_bfd *, rc_uint_type, rc_uint_type,
  50                                       const rc_res_id *, const rc_res_id *,
  51                                       const rc_res_res_info *);
  52
  53 static int read_resource_entry (windres_bfd *, rc_uint_type *, rc_uint_type);
  54 static void read_res_data (windres_bfd *, rc_uint_type *, rc_uint_type, void *,
  55                            rc_uint_type);
  56 static void read_res_data_hdr (windres_bfd *, rc_uint_type *, rc_uint_type, res_hdr *);
  57 static void read_res_id (windres_bfd *, rc_uint_type *, rc_uint_type, rc_res_id *);
  58 static unichar *read_unistring (windres_bfd *, rc_uint_type *, rc_uint_type, rc_uint_type *);
  59 static void skip_null_resource (windres_bfd *, rc_uint_type *, rc_uint_type);
  60 static int probe_binary (windres_bfd *wrbfd, rc_uint_type);
  61
  62 static unsigned long get_id_size (const rc_res_id *);
  63
  64 static void res_add_resource (rc_res_resource *, const rc_res_id *,
  65                               const rc_res_id *, rc_uint_type, int);
  66
  67 static void res_append_resource (rc_res_directory **, rc_res_resource *,
  68                                  int, const rc_res_id *, int);
  69
  70 static rc_res_directory *resources = NULL;
  71
  72 static const char *filename;
  73
  74 extern char *program_name;
  75
  76 /* Read resource file */
  77 rc_res_directory *
  78 read_res_file (const char *fn)
  79 {
  80   rc_uint_type off, flen;
  81   windres_bfd wrbfd;
  82   bfd *abfd;
  83   asection *sec;
  84   filename = fn;
  85
  86   flen = (rc_uint_type) get_file_size (filename);
  87   if (! flen)
  88     fatal ("can't open '%s' for input.", filename);
  89   abfd = windres_open_as_binary (filename, 1);
  90   sec = bfd_get_section_by_name (abfd, ".data");
  91   if (sec == NULL)
  92     bfd_fatal ("bfd_get_section_by_name");
  93   set_windres_bfd (&wrbfd, abfd, sec,
  94                    (target_is_bigendian ? WR_KIND_BFD_BIN_B
  95                                         : WR_KIND_BFD_BIN_L));
  96   off = 0;
  97
  98   if (! probe_binary (&wrbfd, flen))
  99     set_windres_bfd_endianness (&wrbfd, ! target_is_bigendian);
 100
 101   skip_null_resource (&wrbfd, &off, flen);
 102
 103   while (read_resource_entry (&wrbfd, &off, flen))
 104     ;
 105
 106   bfd_close (abfd);
 107
 108   return resources;
 109 }
 110
 111 /* Write resource file */
 112 void
 113 write_res_file (const char *fn,const rc_res_directory *resdir)
 114 {
 115   asection *sec;
 116   rc_uint_type language;
 117   bfd *abfd;
 118   windres_bfd wrbfd;
 119   unsigned long sec_length = 0,sec_length_wrote;
 120   static const bfd_byte sign[] =
 121   {0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00,
 122    0xFF, 0xFF, 0x00, 0x00, 0xFF, 0xFF, 0x00, 0x00,
 123    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 124    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
 125
 126   filename = fn;
 127
 128   abfd = windres_open_as_binary (filename, 0);
 129   sec = bfd_make_section_with_flags (abfd, ".data",
 130                                      (SEC_HAS_CONTENTS | SEC_ALLOC
 131                                       | SEC_LOAD | SEC_DATA));
 132   if (sec == NULL)
 133     bfd_fatal ("bfd_make_section");
 134   /* Requiring this is probably a bug in BFD.  */
 135   sec->output_section = sec;
 136
 137   set_windres_bfd (&wrbfd, abfd, sec,
 138                    (target_is_bigendian ? WR_KIND_BFD_BIN_B
 139                                         : WR_KIND_BFD_BIN_L));
 140
 141   language = -1;
 142   sec_length = write_res_directory ((windres_bfd *) NULL, 0x20UL, resdir,
 143                                     (const rc_res_id *) NULL,
 144                                     (const rc_res_id *) NULL, &language, 1);
 145   if (!bfd_set_section_size (sec, (sec_length + 3) & ~3))
 146     bfd_fatal ("bfd_set_section_size");
 147   if ((sec_length & 3) != 0)
 148     set_windres_bfd_content (&wrbfd, sign, sec_length, 4-(sec_length & 3));
 149   set_windres_bfd_content (&wrbfd, sign, 0, sizeof (sign));
 150   language = -1;
 151   sec_length_wrote = write_res_directory (&wrbfd, 0x20UL, resdir,
 152                                           (const rc_res_id *) NULL,
 153                                           (const rc_res_id *) NULL,
 154                                           &language, 1);
 155   if (sec_length != sec_length_wrote)
 156     fatal ("res write failed with different sizes (%lu/%lu).",
 157            (unsigned long) sec_length, (unsigned long) sec_length_wrote);
 158
 159   bfd_close (abfd);
 160   return;
 161 }
 162
 163 /* Read a resource entry, returns 0 when all resources are read */
 164 static int
 165 read_resource_entry (windres_bfd *wrbfd, rc_uint_type *off, rc_uint_type omax)
 166 {
 167   rc_res_id type;
 168   rc_res_id name;
 169   rc_res_res_info resinfo;
 170   res_hdr reshdr;
 171   void *buff;
 172
 173   rc_res_resource *r;
 174   struct bin_res_info l;
 175
 176   off[0] = (off[0] + 3) & ~3;
 177
 178   /* Read header */
 179   if ((off[0] + 8) > omax)
 180     return 0;
 181   read_res_data_hdr (wrbfd, off, omax, &reshdr);
 182
 183   /* read resource type */
 184   read_res_id (wrbfd, off, omax, &type);
 185   /* read resource id */
 186   read_res_id (wrbfd, off, omax, &name);
 187
 188   off[0] = (off[0] + 3) & ~3;
 189
 190   /* Read additional resource header */
 191   read_res_data (wrbfd, off, omax, &l, BIN_RES_INFO_SIZE);
 192   resinfo.version = windres_get_32 (wrbfd, l.version, 4);
 193   resinfo.memflags = windres_get_16 (wrbfd, l.memflags, 2);
 194   resinfo.language = windres_get_16 (wrbfd, l.language, 2);
 195   /* resinfo.version2 = windres_get_32 (wrbfd, l.version2, 4); */
 196   resinfo.characteristics = windres_get_32 (wrbfd, l.characteristics, 4);
 197
 198   off[0] = (off[0] + 3) & ~3;
 199
 200   /* Allocate buffer for data */
 201   buff = res_alloc (reshdr.data_size);
 202   /* Read data */
 203   read_res_data (wrbfd, off, omax, buff, reshdr.data_size);
 204   /* Convert binary data to resource */
 205   r = bin_to_res (wrbfd, type, buff, reshdr.data_size);
 206   r->res_info = resinfo;
 207   /* Add resource to resource directory */
 208   res_add_resource (r, &type, &name, resinfo.language, 0);
 209
 210   return 1;
 211 }
 212
 213 /* write resource directory to binary resource file */
 214 static rc_uint_type
 215 write_res_directory (windres_bfd *wrbfd, rc_uint_type off, const rc_res_directory *rd,
 216                      const rc_res_id *type, const rc_res_id *name, rc_uint_type *language,
 217                      int level)
 218 {
 219   const rc_res_entry *re;
 220
 221   for (re = rd->entries; re != NULL; re = re->next)
 222     {
 223       switch (level)
 224         {
 225         case 1:
 226           /* If we're at level 1, the key of this resource is the
 227              type.  This normally duplicates the information we have
 228              stored with the resource itself, but we need to remember
 229              the type if this is a user define resource type.  */
 230           type = &re->id;
 231           break;
 232
 233         case 2:
 234           /* If we're at level 2, the key of this resource is the name
 235              we are going to use in the rc printout.  */
 236           name = &re->id;
 237           break;
 238
 239         case 3:
 240           /* If we're at level 3, then this key represents a language.
 241              Use it to update the current language.  */
 242           if (! re->id.named
 243               && re->id.u.id != (unsigned long) *language
 244               && (re->id.u.id & 0xffff) == re->id.u.id)
 245             {
 246               *language = re->id.u.id;
 247             }
 248           break;
 249
 250         default:
 251           break;
 252         }
 253
 254       if (re->subdir)
 255         off = write_res_directory (wrbfd, off, re->u.dir, type, name, language,
 256                                    level + 1);
 257       else
 258         {
 259           if (level == 3)
 260             {
 261               /* This is the normal case: the three levels are
 262                  TYPE/NAME/LANGUAGE.  NAME will have been set at level
 263                  2, and represents the name to use.  We probably just
 264                  set LANGUAGE, and it will probably match what the
 265                  resource itself records if anything.  */
 266               off = write_res_resource (wrbfd, off, type, name, re->u.res,
 267                                         language);
 268             }
 269           else
 270             {
 271               fprintf (stderr, "// Resource at unexpected level %d\n", level);
 272               off = write_res_resource (wrbfd, off, type, (rc_res_id *) NULL,
 273                                         re->u.res, language);
 274             }
 275         }
 276     }
 277
 278   return off;
 279 }
 280
 281 static rc_uint_type
 282 write_res_resource (windres_bfd *wrbfd, rc_uint_type off, const rc_res_id *type,
 283                     const rc_res_id *name, const rc_res_resource *res,
 284                     rc_uint_type *language ATTRIBUTE_UNUSED)
 285 {
 286   int rt;
 287
 288   switch (res->type)
 289     {
 290     default:
 291       abort ();
 292
 293     case RES_TYPE_ACCELERATOR:
 294       rt = RT_ACCELERATOR;
 295       break;
 296
 297     case RES_TYPE_BITMAP:
 298       rt = RT_BITMAP;
 299       break;
 300
 301     case RES_TYPE_CURSOR:
 302       rt = RT_CURSOR;
 303       break;
 304
 305     case RES_TYPE_GROUP_CURSOR:
 306       rt = RT_GROUP_CURSOR;
 307       break;
 308
 309     case RES_TYPE_DIALOG:
 310       rt = RT_DIALOG;
 311       break;
 312
 313     case RES_TYPE_FONT:
 314       rt = RT_FONT;
 315       break;
 316
 317     case RES_TYPE_FONTDIR:
 318       rt = RT_FONTDIR;
 319       break;
 320
 321     case RES_TYPE_ICON:
 322       rt = RT_ICON;
 323       break;
 324
 325     case RES_TYPE_GROUP_ICON:
 326       rt = RT_GROUP_ICON;
 327       break;
 328
 329     case RES_TYPE_MENU:
 330       rt = RT_MENU;
 331       break;
 332
 333     case RES_TYPE_MESSAGETABLE:
 334       rt = RT_MESSAGETABLE;
 335       break;
 336
 337     case RES_TYPE_RCDATA:
 338       rt = RT_RCDATA;
 339       break;
 340
 341     case RES_TYPE_STRINGTABLE:
 342       rt = RT_STRING;
 343       break;
 344
 345     case RES_TYPE_USERDATA:
 346       rt = 0;
 347       break;
 348
 349     case RES_TYPE_VERSIONINFO:
 350       rt = RT_VERSION;
 351       break;
 352
 353     case RES_TYPE_TOOLBAR:
 354       rt = RT_TOOLBAR;
 355       break;
 356     }
 357
 358   if (rt != 0
 359       && type != NULL
 360       && (type->named || type->u.id != (unsigned long) rt))
 361     {
 362       fprintf (stderr, "// Unexpected resource type mismatch: ");
 363       res_id_print (stderr, *type, 1);
 364       fprintf (stderr, " != %d", rt);
 365       abort ();
 366     }
 367
 368   return write_res_bin (wrbfd, off, res, type, name, &res->res_info);
 369 }
 370
 371 /* Write a resource in binary resource format */
 372 static rc_uint_type
 373 write_res_bin (windres_bfd *wrbfd, rc_uint_type off, const rc_res_resource *res,
 374                const rc_res_id *type, const rc_res_id *name,
 375                const rc_res_res_info *resinfo)
 376 {
 377   rc_uint_type noff;
 378   rc_uint_type datasize = 0;
 379
 380   noff = res_to_bin ((windres_bfd *) NULL, off, res);
 381   datasize = noff - off;
 382
 383   off = write_res_header (wrbfd, off, datasize, type, name, resinfo);
 384   return res_to_bin (wrbfd, off, res);
 385 }
 386
 387 /* Get number of bytes needed to store an id in binary format */
 388 static unsigned long
 389 get_id_size (const rc_res_id *id)
 390 {
 391   if (id->named)
 392     return sizeof (unichar) * (id->u.n.length + 1);
 393   else
 394     return sizeof (unichar) * 2;
 395 }
 396
 397 /* Write a resource header */
 398 static rc_uint_type
 399 write_res_header (windres_bfd *wrbfd, rc_uint_type off, rc_uint_type datasize,
 400                   const rc_res_id *type, const rc_res_id *name,
 401                   const rc_res_res_info *resinfo)
 402 {
 403   res_hdr reshdr;
 404   reshdr.data_size = datasize;
 405   reshdr.header_size = 24 + get_id_size (type) + get_id_size (name);
 406
 407   reshdr.header_size = (reshdr.header_size + 3) & ~3;
 408
 409   off = (off + 3) & ~3;
 410
 411   off = write_res_data_hdr (wrbfd, off, &reshdr);
 412   off = write_res_id (wrbfd, off, type);
 413   off = write_res_id (wrbfd, off, name);
 414
 415   off = (off + 3) & ~3;
 416
 417   off = write_res_info (wrbfd, off, resinfo);
 418   off = (off + 3) & ~3;
 419   return off;
 420 }
 421
 422 static rc_uint_type
 423 write_res_data_hdr (windres_bfd *wrbfd, rc_uint_type off, res_hdr *hdr)
 424 {
 425   if (wrbfd)
 426     {
 427       struct bin_res_hdr brh;
 428       windres_put_32 (wrbfd, brh.data_size, hdr->data_size);
 429       windres_put_32 (wrbfd, brh.header_size, hdr->header_size);
 430       set_windres_bfd_content (wrbfd, &brh, off, BIN_RES_HDR_SIZE);
 431     }
 432   return off + BIN_RES_HDR_SIZE;
 433 }
 434
 435 static void
 436 read_res_data_hdr (windres_bfd *wrbfd, rc_uint_type *off, rc_uint_type omax,
 437                    res_hdr *reshdr)
 438 {
 439   struct bin_res_hdr brh;
 440
 441   if ((off[0] + BIN_RES_HDR_SIZE) > omax)
 442     fatal ("%s: unexpected end of file %ld/%ld", filename,(long) off[0], (long) omax);
 443
 444   get_windres_bfd_content (wrbfd, &brh, off[0], BIN_RES_HDR_SIZE);
 445   reshdr->data_size = windres_get_32 (wrbfd, brh.data_size, 4);
 446   reshdr->header_size = windres_get_32 (wrbfd, brh.header_size, 4);
 447   off[0] += BIN_RES_HDR_SIZE;
 448 }
 449
 450 /* Read data from file, abort on failure */
 451 static void
 452 read_res_data (windres_bfd *wrbfd, rc_uint_type *off, rc_uint_type omax, void *data,
 453                rc_uint_type size)
 454 {
 455   if ((off[0] + size) > omax)
 456     fatal ("%s: unexpected end of file %ld/%ld %ld", filename,(long) off[0],
 457            (long) omax, (long) size);
 458   get_windres_bfd_content (wrbfd, data, off[0], size);
 459   off[0] += size;
 460 }
 461
 462 /* Write a resource id */
 463 static rc_uint_type
 464 write_res_id (windres_bfd *wrbfd, rc_uint_type off, const rc_res_id *id)
 465 {
 466   if (id->named)
 467     {
 468       rc_uint_type len = (((bfd_signed_vma) id->u.n.length < 0 ? 0 : id->u.n.length) + 1);
 469       if (wrbfd)
 470         {
 471           rc_uint_type i;
 472           bfd_byte *d = (bfd_byte *) xmalloc (len * sizeof (unichar));
 473           for (i = 0; i < (len - 1); i++)
 474             windres_put_16 (wrbfd, d + (i * sizeof (unichar)), id->u.n.name[i]);
 475           windres_put_16 (wrbfd, d + (i * sizeof (unichar)), 0);
 476           set_windres_bfd_content (wrbfd, d, off, (len * sizeof (unichar)));
 477         }
 478       off += (len * sizeof (unichar));
 479     }
 480   else
 481     {
 482       if (wrbfd)
 483         {
 484           struct bin_res_id bid;
 485           windres_put_16 (wrbfd, bid.sig, 0xffff);
 486           windres_put_16 (wrbfd, bid.id, id->u.id);
 487           set_windres_bfd_content (wrbfd, &bid, off, BIN_RES_ID);
 488         }
 489       off += BIN_RES_ID;
 490     }
 491   return off;
 492 }
 493
 494 /* Write resource info */
 495 static rc_uint_type
 496 write_res_info (windres_bfd *wrbfd, rc_uint_type off, const rc_res_res_info *info)
 497 {
 498   if (wrbfd)
 499     {
 500       struct bin_res_info l;
 501
 502       windres_put_32 (wrbfd, l.version, info->version);
 503       windres_put_16 (wrbfd, l.memflags, info->memflags);
 504       windres_put_16 (wrbfd, l.language, info->language);
 505       windres_put_32 (wrbfd, l.version2, info->version);
 506       windres_put_32 (wrbfd, l.characteristics, info->characteristics);
 507       set_windres_bfd_content (wrbfd, &l, off, BIN_RES_INFO_SIZE);
 508     }
 509   return off + BIN_RES_INFO_SIZE;
 510 }
 511
 512 /* read a resource identifier */
 513 static void
 514 read_res_id (windres_bfd *wrbfd, rc_uint_type *off, rc_uint_type omax, rc_res_id *id)
 515 {
 516   struct bin_res_id bid;
 517   unsigned short ord;
 518   unichar *id_s = NULL;
 519   rc_uint_type len;
 520
 521   read_res_data (wrbfd, off, omax, &bid, BIN_RES_ID - 2);
 522   ord = (unsigned short) windres_get_16 (wrbfd, bid.sig, 2);
 523   if (ord == 0xFFFF)            /* an ordinal id */
 524     {
 525       read_res_data (wrbfd, off, omax, bid.id, BIN_RES_ID - 2);
 526       id->named = 0;
 527       id->u.id = windres_get_16 (wrbfd, bid.id, 2);
 528     }
 529   else
 530     /* named id */
 531     {
 532       off[0] -= 2;
 533       id_s = read_unistring (wrbfd, off, omax, &len);
 534       id->named = 1;
 535       id->u.n.length = len;
 536       id->u.n.name = id_s;
 537     }
 538 }
 539
 540 /* Read a null terminated UNICODE string */
 541 static unichar *
 542 read_unistring (windres_bfd *wrbfd, rc_uint_type *off, rc_uint_type omax,
 543                 rc_uint_type *len)
 544 {
 545   unichar *s;
 546   bfd_byte d[2];
 547   unichar c;
 548   unichar *p;
 549   rc_uint_type l;
 550   rc_uint_type soff = off[0];
 551
 552   do
 553     {
 554       read_res_data (wrbfd, &soff, omax, d, sizeof (unichar));
 555       c = windres_get_16 (wrbfd, d, 2);
 556     }
 557   while (c != 0);
 558   l = ((soff - off[0]) / sizeof (unichar));
 559
 560   /* there are hardly any names longer than 256 characters, but anyway. */
 561   p = s = (unichar *) xmalloc (sizeof (unichar) * l);
 562   do
 563     {
 564       read_res_data (wrbfd, off, omax, d, sizeof (unichar));
 565       c = windres_get_16 (wrbfd, d, 2);
 566       *p++ = c;
 567     }
 568   while (c != 0);
 569   *len = l - 1;
 570   return s;
 571 }
 572
 573 static int
 574 probe_binary (windres_bfd *wrbfd, rc_uint_type omax)
 575 {
 576   rc_uint_type off;
 577   res_hdr reshdr;
 578
 579   off = 0;
 580   read_res_data_hdr (wrbfd, &off, omax, &reshdr);
 581   if (reshdr.data_size != 0)
 582     return 1;
 583   if ((reshdr.header_size != 0x20 && ! target_is_bigendian)
 584       || (reshdr.header_size != 0x20000000 && target_is_bigendian))
 585     return 1;
 586
 587   /* Subtract size of HeaderSize. DataSize has to be zero. */
 588   off += 0x20 - BIN_RES_HDR_SIZE;
 589   if ((off + BIN_RES_HDR_SIZE) >= omax)
 590     return 1;
 591   read_res_data_hdr (wrbfd, &off, omax, &reshdr);
 592   /* off is advanced by BIN_RES_HDR_SIZE in read_res_data_hdr()
 593      which is part of reshdr.header_size. We shouldn't take it
 594      into account twice.  */
 595   if ((off - BIN_RES_HDR_SIZE + reshdr.data_size + reshdr.header_size) > omax)
 596     return 0;
 597   return 1;
 598 }
 599
 600 /* Check if file is a win32 binary resource file, if so
 601    skip past the null resource. Returns 0 if successful, -1 on
 602    error.
 603  */
 604 static void
 605 skip_null_resource (windres_bfd *wrbfd, rc_uint_type *off, rc_uint_type omax)
 606 {
 607   res_hdr reshdr;
 608   read_res_data_hdr (wrbfd, off, omax, &reshdr);
 609   if (reshdr.data_size != 0)
 610     goto skip_err;
 611   if ((reshdr.header_size != 0x20 && ! target_is_bigendian)
 612     || (reshdr.header_size != 0x20000000 && target_is_bigendian))
 613     goto skip_err;
 614
 615   /* Subtract size of HeaderSize. DataSize has to be zero. */
 616   off[0] += 0x20 - BIN_RES_HDR_SIZE;
 617   if (off[0] >= omax)
 618     goto skip_err;
 619
 620   return;
 621
 622  skip_err:
 623   fprintf (stderr, "%s: %s: Not a valid WIN32 resource file\n", program_name,
 624            filename);
 625   xexit (1);
 626 }
 627
 628 /* Add a resource to resource directory */
 629 static void
 630 res_add_resource (rc_res_resource *r, const rc_res_id *type, const rc_res_id *id,
 631                   rc_uint_type language, int dupok)
 632 {
 633   rc_res_id a[3];
 634
 635   a[0] = *type;
 636   a[1] = *id;
 637   a[2].named = 0;
 638   a[2].u.id = language;
 639   res_append_resource (&resources, r, 3, a, dupok);
 640 }
 641
 642 /* Append a resource to resource directory.
 643    This is just copied from define_resource
 644    and modified to add an existing resource.
 645  */
 646 static void
 647 res_append_resource (rc_res_directory **res_dirs, rc_res_resource *resource,
 648                      int cids, const rc_res_id *ids, int dupok)
 649 {
 650   rc_res_entry *re = NULL;
 651   int i;
 652
 653   assert (cids > 0);
 654   for (i = 0; i < cids; i++)
 655     {
 656       rc_res_entry **pp;
 657
 658       if (*res_dirs == NULL)
 659         {
 660           *res_dirs = ((rc_res_directory *)
 661                         res_alloc (sizeof (rc_res_directory)));
 662
 663           (*res_dirs)->characteristics = 0;
 664           /* Using a real timestamp only serves to create non-deterministic
 665              results.  Use zero instead.  */
 666           (*res_dirs)->time = 0;
 667           (*res_dirs)->major = 0;
 668           (*res_dirs)->minor = 0;
 669           (*res_dirs)->entries = NULL;
 670         }
 671
 672       for (pp = &(*res_dirs)->entries; *pp != NULL; pp = &(*pp)->next)
 673         if (res_id_cmp ((*pp)->id, ids[i]) == 0)
 674           break;
 675
 676       if (*pp != NULL)
 677         re = *pp;
 678       else
 679         {
 680           re = (rc_res_entry *) res_alloc (sizeof (rc_res_entry));
 681           re->next = NULL;
 682           re->id = ids[i];
 683           if ((i + 1) < cids)
 684             {
 685               re->subdir = 1;
 686               re->u.dir = NULL;
 687             }
 688           else
 689             {
 690               re->subdir = 0;
 691               re->u.res = NULL;
 692             }
 693
 694           *pp = re;
 695         }
 696
 697       if ((i + 1) < cids)
 698         {
 699           if (! re->subdir)
 700             {
 701               fprintf (stderr, "%s: ", program_name);
 702               res_ids_print (stderr, i, ids);
 703               fprintf (stderr, ": expected to be a directory\n");
 704               xexit (1);
 705             }
 706
 707           res_dirs = &re->u.dir;
 708         }
 709     }
 710
 711   if (re->subdir)
 712     {
 713       fprintf (stderr, "%s: ", program_name);
 714       res_ids_print (stderr, cids, ids);
 715       fprintf (stderr, ": expected to be a leaf\n");
 716       xexit (1);
 717     }
 718
 719   if (re->u.res != NULL)
 720     {
 721       if (dupok)
 722         return;
 723
 724       fprintf (stderr, "%s: warning: ", program_name);
 725       res_ids_print (stderr, cids, ids);
 726       fprintf (stderr, ": duplicate value\n");
 727     }
 728
 729   re->u.res = resource;
 730 }