?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* gas/ppc/altivec_xcoff64.d: Adjust for aix5 target.
[binutils.git] / binutils / resrc.c
blob3cf708a707c7aaf11c2440e4fa9367941ba7c4c5
1 /* resrc.c -- read and write Windows rc files.
2 Copyright 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
3 Written by Ian Lance Taylor, Cygnus Support.
4
5 This file is part of GNU Binutils.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA. */
21
22 /* This file contains functions that read and write Windows rc files.
23 These are text files that represent resources. */
24
25 #include "bfd.h"
26 #include "bucomm.h"
27 #include "libiberty.h"
28 #include "safe-ctype.h"
29 #include "windres.h"
30
31 #include <assert.h>
32 #include <errno.h>
33 #include <sys/stat.h>
34 #ifdef HAVE_UNISTD_H
35 #include <unistd.h>
36 #endif
37
38 #ifdef HAVE_SYS_WAIT_H
39 #include <sys/wait.h>
40 #else /* ! HAVE_SYS_WAIT_H */
41 #if ! defined (_WIN32) || defined (__CYGWIN__)
42 #ifndef WIFEXITED
43 #define WIFEXITED(w) (((w)&0377) == 0)
44 #endif
45 #ifndef WIFSIGNALED
46 #define WIFSIGNALED(w) (((w)&0377) != 0177 && ((w)&~0377) == 0)
47 #endif
48 #ifndef WTERMSIG
49 #define WTERMSIG(w) ((w) & 0177)
50 #endif
51 #ifndef WEXITSTATUS
52 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
53 #endif
54 #else /* defined (_WIN32) && ! defined (__CYGWIN__) */
55 #ifndef WIFEXITED
56 #define WIFEXITED(w) (((w) & 0xff) == 0)
57 #endif
58 #ifndef WIFSIGNALED
59 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
60 #endif
61 #ifndef WTERMSIG
62 #define WTERMSIG(w) ((w) & 0x7f)
63 #endif
64 #ifndef WEXITSTATUS
65 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
66 #endif
67 #endif /* defined (_WIN32) && ! defined (__CYGWIN__) */
68 #endif /* ! HAVE_SYS_WAIT_H */
69
70 #ifndef STDOUT_FILENO
71 #define STDOUT_FILENO 1
72 #endif
73
74 #if defined (_WIN32) && ! defined (__CYGWIN__)
75 #define popen _popen
76 #define pclose _pclose
77 #endif
78
79 /* The default preprocessor. */
80
81 #define DEFAULT_PREPROCESSOR "gcc -E -xc -DRC_INVOKED"
82
83 /* We read the directory entries in a cursor or icon file into
84 instances of this structure. */
85
86 struct icondir
87 {
88 /* Width of image. */
89 unsigned char width;
90 /* Height of image. */
91 unsigned char height;
92 /* Number of colors in image. */
93 unsigned char colorcount;
94 union
95 {
96 struct
97 {
98 /* Color planes. */
99 unsigned short planes;
100 /* Bits per pixel. */
101 unsigned short bits;
102 } icon;
103 struct
104 {
105 /* X coordinate of hotspot. */
106 unsigned short xhotspot;
107 /* Y coordinate of hotspot. */
108 unsigned short yhotspot;
109 } cursor;
110 } u;
111 /* Bytes in image. */
112 unsigned long bytes;
113 /* File offset of image. */
114 unsigned long offset;
115 };
116
117 /* The name of the rc file we are reading. */
118
119 char *rc_filename;
120
121 /* The line number in the rc file. */
122
123 int rc_lineno;
124
125 /* The pipe we are reading from, so that we can close it if we exit. */
126
127 static FILE *cpp_pipe;
128
129 /* The temporary file used if we're not using popen, so we can delete it
130 if we exit. */
131
132 static char *cpp_temp_file;
133
134 /* Input stream is either a file or a pipe. */
135
136 static enum {ISTREAM_PIPE, ISTREAM_FILE} istream_type;
137
138 /* As we read the rc file, we attach information to this structure. */
139
140 static struct res_directory *resources;
141
142 /* The number of cursor resources we have written out. */
143
144 static int cursors;
145
146 /* The number of font resources we have written out. */
147
148 static int fonts;
149
150 /* Font directory information. */
151
152 struct fontdir *fontdirs;
153
154 /* Resource info to use for fontdirs. */
155
156 struct res_res_info fontdirs_resinfo;
157
158 /* The number of icon resources we have written out. */
159
160 static int icons;
161
162 /* Local functions. */
163
164 static int run_cmd PARAMS ((char *, const char *));
165 static FILE *open_input_stream PARAMS ((char *));
166 static FILE *look_for_default PARAMS ((char *, const char *, int,
167 const char *, const char *));
168 static void close_input_stream PARAMS ((void));
169 static void unexpected_eof PARAMS ((const char *));
170 static int get_word PARAMS ((FILE *, const char *));
171 static unsigned long get_long PARAMS ((FILE *, const char *));
172 static void get_data
173 PARAMS ((FILE *, unsigned char *, unsigned long, const char *));
174 static void define_fontdirs PARAMS ((void));
175 \f
176 /* Run `cmd' and redirect the output to `redir'. */
177
178 static int
179 run_cmd (cmd, redir)
180 char *cmd;
181 const char *redir;
182 {
183 char *s;
184 int pid, wait_status, retcode;
185 int i;
186 const char **argv;
187 char *errmsg_fmt, *errmsg_arg;
188 char *temp_base = choose_temp_base ();
189 int in_quote;
190 char sep;
191 int redir_handle = -1;
192 int stdout_save = -1;
193
194 /* Count the args. */
195 i = 0;
196
197 for (s = cmd; *s; s++)
198 if (*s == ' ')
199 i++;
200
201 i++;
202 argv = alloca (sizeof (char *) * (i + 3));
203 i = 0;
204 s = cmd;
205
206 while (1)
207 {
208 while (*s == ' ' && *s != 0)
209 s++;
210
211 if (*s == 0)
212 break;
213
214 in_quote = (*s == '\'' || *s == '"');
215 sep = (in_quote) ? *s++ : ' ';
216 argv[i++] = s;
217
218 while (*s != sep && *s != 0)
219 s++;
220
221 if (*s == 0)
222 break;
223
224 *s++ = 0;
225
226 if (in_quote)
227 s++;
228 }
229 argv[i++] = NULL;
230
231 /* Setup the redirection. We can't use the usual fork/exec and redirect
232 since we may be running on non-POSIX Windows host. */
233
234 fflush (stdout);
235 fflush (stderr);
236
237 /* Open temporary output file. */
238 redir_handle = open (redir, O_WRONLY | O_TRUNC | O_CREAT, 0666);
239 if (redir_handle == -1)
240 fatal (_("can't open temporary file `%s': %s"), redir,
241 strerror (errno));
242
243 /* Duplicate the stdout file handle so it can be restored later. */
244 stdout_save = dup (STDOUT_FILENO);
245 if (stdout_save == -1)
246 fatal (_("can't redirect stdout: `%s': %s"), redir, strerror (errno));
247
248 /* Redirect stdout to our output file. */
249 dup2 (redir_handle, STDOUT_FILENO);
250
251 pid = pexecute (argv[0], (char * const *) argv, program_name, temp_base,
252 &errmsg_fmt, &errmsg_arg, PEXECUTE_ONE | PEXECUTE_SEARCH);
253
254 /* Restore stdout to its previous setting. */
255 dup2 (stdout_save, STDOUT_FILENO);
256
257 /* Close reponse file. */
258 close (redir_handle);
259
260 if (pid == -1)
261 {
262 fatal (_("%s %s: %s"), errmsg_fmt, errmsg_arg, strerror (errno));
263 return 1;
264 }
265
266 retcode = 0;
267 pid = pwait (pid, &wait_status, 0);
268
269 if (pid == -1)
270 {
271 fatal (_("wait: %s"), strerror (errno));
272 retcode = 1;
273 }
274 else if (WIFSIGNALED (wait_status))
275 {
276 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status));
277 retcode = 1;
278 }
279 else if (WIFEXITED (wait_status))
280 {
281 if (WEXITSTATUS (wait_status) != 0)
282 {
283 fatal (_("%s exited with status %d"), cmd,
284 WEXITSTATUS (wait_status));
285 retcode = 1;
286 }
287 }
288 else
289 retcode = 1;
290
291 return retcode;
292 }
293
294 static FILE *
295 open_input_stream (cmd)
296 char *cmd;
297 {
298 if (istream_type == ISTREAM_FILE)
299 {
300 char *fileprefix;
301
302 fileprefix = choose_temp_base ();
303 cpp_temp_file = (char *) xmalloc (strlen (fileprefix) + 5);
304 sprintf (cpp_temp_file, "%s.irc", fileprefix);
305 free (fileprefix);
306
307 if (run_cmd (cmd, cpp_temp_file))
308 fatal (_("can't execute `%s': %s"), cmd, strerror (errno));
309
310 cpp_pipe = fopen (cpp_temp_file, FOPEN_RT);;
311 if (cpp_pipe == NULL)
312 fatal (_("can't open temporary file `%s': %s"),
313 cpp_temp_file, strerror (errno));
314
315 if (verbose)
316 fprintf (stderr,
317 _("Using temporary file `%s' to read preprocessor output\n"),
318 cpp_temp_file);
319 }
320 else
321 {
322 cpp_pipe = popen (cmd, FOPEN_RT);
323 if (cpp_pipe == NULL)
324 fatal (_("can't popen `%s': %s"), cmd, strerror (errno));
325 if (verbose)
326 fprintf (stderr, _("Using popen to read preprocessor output\n"));
327 }
328
329 xatexit (close_input_stream);
330 return cpp_pipe;
331 }
332
333 /* look for the preprocessor program */
334
335 static FILE *
336 look_for_default (cmd, prefix, end_prefix, preprocargs, filename)
337 char *cmd;
338 const char *prefix;
339 int end_prefix;
340 const char *preprocargs;
341 const char *filename;
342 {
343 char *space;
344 int found;
345 struct stat s;
346
347 strcpy (cmd, prefix);
348
349 sprintf (cmd + end_prefix, "%s", DEFAULT_PREPROCESSOR);
350 space = strchr (cmd + end_prefix, ' ');
351 if (space)
352 *space = 0;
353
354 if (
355 #if defined (__DJGPP__) || defined (__CYGWIN__) || defined (_WIN32)
356 strchr (cmd, '\\') ||
357 #endif
358 strchr (cmd, '/'))
359 {
360 found = (stat (cmd, &s) == 0
361 #ifdef HAVE_EXECUTABLE_SUFFIX
362 || stat (strcat (cmd, EXECUTABLE_SUFFIX), &s) == 0
363 #endif
364 );
365
366 if (! found)
367 {
368 if (verbose)
369 fprintf (stderr, _("Tried `%s'\n"), cmd);
370 return NULL;
371 }
372 }
373
374 strcpy (cmd, prefix);
375
376 sprintf (cmd + end_prefix, "%s %s %s",
377 DEFAULT_PREPROCESSOR, preprocargs, filename);
378
379 if (verbose)
380 fprintf (stderr, _("Using `%s'\n"), cmd);
381
382 cpp_pipe = open_input_stream (cmd);
383 return cpp_pipe;
384 }
385
386 /* Read an rc file. */
387
388 struct res_directory *
389 read_rc_file (filename, preprocessor, preprocargs, language, use_temp_file)
390 const char *filename;
391 const char *preprocessor;
392 const char *preprocargs;
393 int language;
394 int use_temp_file;
395 {
396 char *cmd;
397
398 istream_type = (use_temp_file) ? ISTREAM_FILE : ISTREAM_PIPE;
399
400 if (preprocargs == NULL)
401 preprocargs = "";
402 if (filename == NULL)
403 filename = "-";
404
405 if (preprocessor)
406 {
407 cmd = xmalloc (strlen (preprocessor)
408 + strlen (preprocargs)
409 + strlen (filename)
410 + 10);
411 sprintf (cmd, "%s %s %s", preprocessor, preprocargs, filename);
412
413 cpp_pipe = open_input_stream (cmd);
414 }
415 else
416 {
417 char *dash, *slash, *cp;
418
419 preprocessor = DEFAULT_PREPROCESSOR;
420
421 cmd = xmalloc (strlen (program_name)
422 + strlen (preprocessor)
423 + strlen (preprocargs)
424 + strlen (filename)
425 #ifdef HAVE_EXECUTABLE_SUFFIX
426 + strlen (EXECUTABLE_SUFFIX)
427 #endif
428 + 10);
429
430
431 dash = slash = 0;
432 for (cp = program_name; *cp; cp++)
433 {
434 if (*cp == '-')
435 dash = cp;
436 if (
437 #if defined (__DJGPP__) || defined (__CYGWIN__) || defined(_WIN32)
438 *cp == ':' || *cp == '\\' ||
439 #endif
440 *cp == '/')
441 {
442 slash = cp;
443 dash = 0;
444 }
445 }
446
447 cpp_pipe = 0;
448
449 if (dash)
450 {
451 /* First, try looking for a prefixed gcc in the windres
452 directory, with the same prefix as windres */
453
454 cpp_pipe = look_for_default (cmd, program_name, dash-program_name+1,
455 preprocargs, filename);
456 }
457
458 if (slash && !cpp_pipe)
459 {
460 /* Next, try looking for a gcc in the same directory as
461 that windres */
462
463 cpp_pipe = look_for_default (cmd, program_name, slash-program_name+1,
464 preprocargs, filename);
465 }
466
467 if (!cpp_pipe)
468 {
469 /* Sigh, try the default */
470
471 cpp_pipe = look_for_default (cmd, "", 0, preprocargs, filename);
472 }
473
474 }
475
476 free (cmd);
477
478 rc_filename = xstrdup (filename);
479 rc_lineno = 1;
480 if (language != -1)
481 rcparse_set_language (language);
482 yyin = cpp_pipe;
483 yyparse ();
484 rcparse_discard_strings ();
485
486 close_input_stream ();
487
488 if (fontdirs != NULL)
489 define_fontdirs ();
490
491 free (rc_filename);
492 rc_filename = NULL;
493
494 return resources;
495 }
496
497 /* Close the input stream if it is open. */
498
499 static void
500 close_input_stream ()
501 {
502 if (istream_type == ISTREAM_FILE)
503 {
504 if (cpp_pipe != NULL)
505 fclose (cpp_pipe);
506
507 if (cpp_temp_file != NULL)
508 {
509 int errno_save = errno;
510
511 unlink (cpp_temp_file);
512 errno = errno_save;
513 free (cpp_temp_file);
514 }
515 }
516 else
517 {
518 if (cpp_pipe != NULL)
519 pclose (cpp_pipe);
520 }
521
522 /* Since this is also run via xatexit, safeguard. */
523 cpp_pipe = NULL;
524 cpp_temp_file = NULL;
525 }
526
527 /* Report an error while reading an rc file. */
528
529 void
530 yyerror (msg)
531 const char *msg;
532 {
533 fatal ("%s:%d: %s", rc_filename, rc_lineno, msg);
534 }
535
536 /* Issue a warning while reading an rc file. */
537
538 void
539 rcparse_warning (msg)
540 const char *msg;
541 {
542 fprintf (stderr, _("%s:%d: %s\n"), rc_filename, rc_lineno, msg);
543 }
544
545 /* Die if we get an unexpected end of file. */
546
547 static void
548 unexpected_eof (msg)
549 const char *msg;
550 {
551 fatal (_("%s: unexpected EOF"), msg);
552 }
553
554 /* Read a 16 bit word from a file. The data is assumed to be little
555 endian. */
556
557 static int
558 get_word (e, msg)
559 FILE *e;
560 const char *msg;
561 {
562 int b1, b2;
563
564 b1 = getc (e);
565 b2 = getc (e);
566 if (feof (e))
567 unexpected_eof (msg);
568 return ((b2 & 0xff) << 8) | (b1 & 0xff);
569 }
570
571 /* Read a 32 bit word from a file. The data is assumed to be little
572 endian. */
573
574 static unsigned long
575 get_long (e, msg)
576 FILE *e;
577 const char *msg;
578 {
579 int b1, b2, b3, b4;
580
581 b1 = getc (e);
582 b2 = getc (e);
583 b3 = getc (e);
584 b4 = getc (e);
585 if (feof (e))
586 unexpected_eof (msg);
587 return (((((((b4 & 0xff) << 8)
588 | (b3 & 0xff)) << 8)
589 | (b2 & 0xff)) << 8)
590 | (b1 & 0xff));
591 }
592
593 /* Read data from a file. This is a wrapper to do error checking. */
594
595 static void
596 get_data (e, p, c, msg)
597 FILE *e;
598 unsigned char *p;
599 unsigned long c;
600 const char *msg;
601 {
602 unsigned long got;
603
604 got = fread (p, 1, c, e);
605 if (got == c)
606 return;
607
608 fatal (_("%s: read of %lu returned %lu"), msg, c, got);
609 }
610 \f
611 /* Define an accelerator resource. */
612
613 void
614 define_accelerator (id, resinfo, data)
615 struct res_id id;
616 const struct res_res_info *resinfo;
617 struct accelerator *data;
618 {
619 struct res_resource *r;
620
621 r = define_standard_resource (&resources, RT_ACCELERATOR, id,
622 resinfo->language, 0);
623 r->type = RES_TYPE_ACCELERATOR;
624 r->u.acc = data;
625 r->res_info = *resinfo;
626 }
627
628 /* Define a bitmap resource. Bitmap data is stored in a file. The
629 first 14 bytes of the file are a standard header, which is not
630 included in the resource data. */
631
632 #define BITMAP_SKIP (14)
633
634 void
635 define_bitmap (id, resinfo, filename)
636 struct res_id id;
637 const struct res_res_info *resinfo;
638 const char *filename;
639 {
640 FILE *e;
641 char *real_filename;
642 struct stat s;
643 unsigned char *data;
644 int i;
645 struct res_resource *r;
646
647 e = open_file_search (filename, FOPEN_RB, "bitmap file", &real_filename);
648
649 if (stat (real_filename, &s) < 0)
650 fatal (_("stat failed on bitmap file `%s': %s"), real_filename,
651 strerror (errno));
652
653 data = (unsigned char *) res_alloc (s.st_size - BITMAP_SKIP);
654
655 for (i = 0; i < BITMAP_SKIP; i++)
656 getc (e);
657
658 get_data (e, data, s.st_size - BITMAP_SKIP, real_filename);
659
660 fclose (e);
661 free (real_filename);
662
663 r = define_standard_resource (&resources, RT_BITMAP, id,
664 resinfo->language, 0);
665
666 r->type = RES_TYPE_BITMAP;
667 r->u.data.length = s.st_size - BITMAP_SKIP;
668 r->u.data.data = data;
669 r->res_info = *resinfo;
670 }
671
672 /* Define a cursor resource. A cursor file may contain a set of
673 bitmaps, each representing the same cursor at various different
674 resolutions. They each get written out with a different ID. The
675 real cursor resource is then a group resource which can be used to
676 select one of the actual cursors. */
677
678 void
679 define_cursor (id, resinfo, filename)
680 struct res_id id;
681 const struct res_res_info *resinfo;
682 const char *filename;
683 {
684 FILE *e;
685 char *real_filename;
686 int type, count, i;
687 struct icondir *icondirs;
688 int first_cursor;
689 struct res_resource *r;
690 struct group_cursor *first, **pp;
691
692 e = open_file_search (filename, FOPEN_RB, "cursor file", &real_filename);
693
694 /* A cursor file is basically an icon file. The start of the file
695 is a three word structure. The first word is ignored. The
696 second word is the type of data. The third word is the number of
697 entries. */
698
699 get_word (e, real_filename);
700 type = get_word (e, real_filename);
701 count = get_word (e, real_filename);
702 if (type != 2)
703 fatal (_("cursor file `%s' does not contain cursor data"), real_filename);
704
705 /* Read in the icon directory entries. */
706
707 icondirs = (struct icondir *) xmalloc (count * sizeof *icondirs);
708
709 for (i = 0; i < count; i++)
710 {
711 icondirs[i].width = getc (e);
712 icondirs[i].height = getc (e);
713 icondirs[i].colorcount = getc (e);
714 getc (e);
715 icondirs[i].u.cursor.xhotspot = get_word (e, real_filename);
716 icondirs[i].u.cursor.yhotspot = get_word (e, real_filename);
717 icondirs[i].bytes = get_long (e, real_filename);
718 icondirs[i].offset = get_long (e, real_filename);
719
720 if (feof (e))
721 unexpected_eof (real_filename);
722 }
723
724 /* Define each cursor as a unique resource. */
725
726 first_cursor = cursors;
727
728 for (i = 0; i < count; i++)
729 {
730 unsigned char *data;
731 struct res_id name;
732 struct cursor *c;
733
734 if (fseek (e, icondirs[i].offset, SEEK_SET) != 0)
735 fatal (_("%s: fseek to %lu failed: %s"), real_filename,
736 icondirs[i].offset, strerror (errno));
737
738 data = (unsigned char *) res_alloc (icondirs[i].bytes);
739
740 get_data (e, data, icondirs[i].bytes, real_filename);
741
742 c = (struct cursor *) res_alloc (sizeof *c);
743 c->xhotspot = icondirs[i].u.cursor.xhotspot;
744 c->yhotspot = icondirs[i].u.cursor.yhotspot;
745 c->length = icondirs[i].bytes;
746 c->data = data;
747
748 ++cursors;
749
750 name.named = 0;
751 name.u.id = cursors;
752
753 r = define_standard_resource (&resources, RT_CURSOR, name,
754 resinfo->language, 0);
755 r->type = RES_TYPE_CURSOR;
756 r->u.cursor = c;
757 r->res_info = *resinfo;
758 }
759
760 fclose (e);
761 free (real_filename);
762
763 /* Define a cursor group resource. */
764
765 first = NULL;
766 pp = &first;
767 for (i = 0; i < count; i++)
768 {
769 struct group_cursor *cg;
770
771 cg = (struct group_cursor *) res_alloc (sizeof *cg);
772 cg->next = NULL;
773 cg->width = icondirs[i].width;
774 cg->height = 2 * icondirs[i].height;
775
776 /* FIXME: What should these be set to? */
777 cg->planes = 1;
778 cg->bits = 1;
779
780 cg->bytes = icondirs[i].bytes + 4;
781 cg->index = first_cursor + i + 1;
782
783 *pp = cg;
784 pp = &(*pp)->next;
785 }
786
787 free (icondirs);
788
789 r = define_standard_resource (&resources, RT_GROUP_CURSOR, id,
790 resinfo->language, 0);
791 r->type = RES_TYPE_GROUP_CURSOR;
792 r->u.group_cursor = first;
793 r->res_info = *resinfo;
794 }
795
796 /* Define a dialog resource. */
797
798 void
799 define_dialog (id, resinfo, dialog)
800 struct res_id id;
801 const struct res_res_info *resinfo;
802 const struct dialog *dialog;
803 {
804 struct dialog *copy;
805 struct res_resource *r;
806
807 copy = (struct dialog *) res_alloc (sizeof *copy);
808 *copy = *dialog;
809
810 r = define_standard_resource (&resources, RT_DIALOG, id,
811 resinfo->language, 0);
812 r->type = RES_TYPE_DIALOG;
813 r->u.dialog = copy;
814 r->res_info = *resinfo;
815 }
816
817 /* Define a dialog control. This does not define a resource, but
818 merely allocates and fills in a structure. */
819
820 struct dialog_control *
821 define_control (text, id, x, y, width, height, class, style, exstyle)
822 const char *text;
823 unsigned long id;
824 unsigned long x;
825 unsigned long y;
826 unsigned long width;
827 unsigned long height;
828 unsigned long class;
829 unsigned long style;
830 unsigned long exstyle;
831 {
832 struct dialog_control *n;
833
834 n = (struct dialog_control *) res_alloc (sizeof *n);
835 n->next = NULL;
836 n->id = id;
837 n->style = style;
838 n->exstyle = exstyle;
839 n->x = x;
840 n->y = y;
841 n->width = width;
842 n->height = height;
843 n->class.named = 0;
844 n->class.u.id = class;
845 if (text == NULL)
846 text = "";
847 res_string_to_id (&n->text, text);
848 n->data = NULL;
849 n->help = 0;
850
851 return n;
852 }
853
854 struct dialog_control *
855 define_icon_control (iid, id, x, y, style, exstyle, help, data, ex)
856 struct res_id iid;
857 unsigned long id;
858 unsigned long x;
859 unsigned long y;
860 unsigned long style;
861 unsigned long exstyle;
862 unsigned long help;
863 struct rcdata_item *data;
864 struct dialog_ex *ex;
865 {
866 struct dialog_control *n;
867 if (style == 0)
868 style = SS_ICON | WS_CHILD | WS_VISIBLE;
869 n = define_control (0, id, x, y, 0, 0, CTL_STATIC, style, exstyle);
870 n->text = iid;
871 if (help && !ex)
872 rcparse_warning (_("help ID requires DIALOGEX"));
873 if (data && !ex)
874 rcparse_warning (_("control data requires DIALOGEX"));
875 n->help = help;
876 n->data = data;
877
878 return n;
879 }
880
881 /* Define a font resource. */
882
883 void
884 define_font (id, resinfo, filename)
885 struct res_id id;
886 const struct res_res_info *resinfo;
887 const char *filename;
888 {
889 FILE *e;
890 char *real_filename;
891 struct stat s;
892 unsigned char *data;
893 struct res_resource *r;
894 long offset;
895 long fontdatalength;
896 unsigned char *fontdata;
897 struct fontdir *fd;
898 const char *device, *face;
899 struct fontdir **pp;
900
901 e = open_file_search (filename, FOPEN_RB, "font file", &real_filename);
902
903 if (stat (real_filename, &s) < 0)
904 fatal (_("stat failed on bitmap file `%s': %s"), real_filename,
905 strerror (errno));
906
907 data = (unsigned char *) res_alloc (s.st_size);
908
909 get_data (e, data, s.st_size, real_filename);
910
911 fclose (e);
912 free (real_filename);
913
914 r = define_standard_resource (&resources, RT_FONT, id,
915 resinfo->language, 0);
916
917 r->type = RES_TYPE_FONT;
918 r->u.data.length = s.st_size;
919 r->u.data.data = data;
920 r->res_info = *resinfo;
921
922 /* For each font resource, we must add an entry in the FONTDIR
923 resource. The FONTDIR resource includes some strings in the font
924 file. To find them, we have to do some magic on the data we have
925 read. */
926
927 offset = ((((((data[47] << 8)
928 | data[46]) << 8)
929 | data[45]) << 8)
930 | data[44]);
931 if (offset > 0 && offset < s.st_size)
932 device = (char *) data + offset;
933 else
934 device = "";
935
936 offset = ((((((data[51] << 8)
937 | data[50]) << 8)
938 | data[49]) << 8)
939 | data[48]);
940 if (offset > 0 && offset < s.st_size)
941 face = (char *) data + offset;
942 else
943 face = "";
944
945 ++fonts;
946
947 fontdatalength = 58 + strlen (device) + strlen (face);
948 fontdata = (unsigned char *) res_alloc (fontdatalength);
949 memcpy (fontdata, data, 56);
950 strcpy ((char *) fontdata + 56, device);
951 strcpy ((char *) fontdata + 57 + strlen (device), face);
952
953 fd = (struct fontdir *) res_alloc (sizeof *fd);
954 fd->next = NULL;
955 fd->index = fonts;
956 fd->length = fontdatalength;
957 fd->data = fontdata;
958
959 for (pp = &fontdirs; *pp != NULL; pp = &(*pp)->next)
960 ;
961 *pp = fd;
962
963 /* For the single fontdirs resource, we always use the resource
964 information of the last font. I don't know what else to do. */
965 fontdirs_resinfo = *resinfo;
966 }
967
968 /* Define the fontdirs resource. This is called after the entire rc
969 file has been parsed, if any font resources were seen. */
970
971 static void
972 define_fontdirs ()
973 {
974 struct res_resource *r;
975 struct res_id id;
976
977 id.named = 0;
978 id.u.id = 1;
979
980 r = define_standard_resource (&resources, RT_FONTDIR, id, 0x409, 0);
981
982 r->type = RES_TYPE_FONTDIR;
983 r->u.fontdir = fontdirs;
984 r->res_info = fontdirs_resinfo;
985 }
986
987 /* Define an icon resource. An icon file may contain a set of
988 bitmaps, each representing the same icon at various different
989 resolutions. They each get written out with a different ID. The
990 real icon resource is then a group resource which can be used to
991 select one of the actual icon bitmaps. */
992
993 void
994 define_icon (id, resinfo, filename)
995 struct res_id id;
996 const struct res_res_info *resinfo;
997 const char *filename;
998 {
999 FILE *e;
1000 char *real_filename;
1001 int type, count, i;
1002 struct icondir *icondirs;
1003 int first_icon;
1004 struct res_resource *r;
1005 struct group_icon *first, **pp;
1006
1007 e = open_file_search (filename, FOPEN_RB, "icon file", &real_filename);
1008
1009 /* The start of an icon file is a three word structure. The first
1010 word is ignored. The second word is the type of data. The third
1011 word is the number of entries. */
1012
1013 get_word (e, real_filename);
1014 type = get_word (e, real_filename);
1015 count = get_word (e, real_filename);
1016 if (type != 1)
1017 fatal (_("icon file `%s' does not contain icon data"), real_filename);
1018
1019 /* Read in the icon directory entries. */
1020
1021 icondirs = (struct icondir *) xmalloc (count * sizeof *icondirs);
1022
1023 for (i = 0; i < count; i++)
1024 {
1025 icondirs[i].width = getc (e);
1026 icondirs[i].height = getc (e);
1027 icondirs[i].colorcount = getc (e);
1028 getc (e);
1029 icondirs[i].u.icon.planes = get_word (e, real_filename);
1030 icondirs[i].u.icon.bits = get_word (e, real_filename);
1031 icondirs[i].bytes = get_long (e, real_filename);
1032 icondirs[i].offset = get_long (e, real_filename);
1033
1034 if (feof (e))
1035 unexpected_eof (real_filename);
1036 }
1037
1038 /* Define each icon as a unique resource. */
1039
1040 first_icon = icons;
1041
1042 for (i = 0; i < count; i++)
1043 {
1044 unsigned char *data;
1045 struct res_id name;
1046
1047 if (fseek (e, icondirs[i].offset, SEEK_SET) != 0)
1048 fatal (_("%s: fseek to %lu failed: %s"), real_filename,
1049 icondirs[i].offset, strerror (errno));
1050
1051 data = (unsigned char *) res_alloc (icondirs[i].bytes);
1052
1053 get_data (e, data, icondirs[i].bytes, real_filename);
1054
1055 ++icons;
1056
1057 name.named = 0;
1058 name.u.id = icons;
1059
1060 r = define_standard_resource (&resources, RT_ICON, name,
1061 resinfo->language, 0);
1062 r->type = RES_TYPE_ICON;
1063 r->u.data.length = icondirs[i].bytes;
1064 r->u.data.data = data;
1065 r->res_info = *resinfo;
1066 }
1067
1068 fclose (e);
1069 free (real_filename);
1070
1071 /* Define an icon group resource. */
1072
1073 first = NULL;
1074 pp = &first;
1075 for (i = 0; i < count; i++)
1076 {
1077 struct group_icon *cg;
1078
1079 /* For some reason, at least in some files the planes and bits
1080 are zero. We instead set them from the color. This is
1081 copied from rcl. */
1082
1083 cg = (struct group_icon *) res_alloc (sizeof *cg);
1084 cg->next = NULL;
1085 cg->width = icondirs[i].width;
1086 cg->height = icondirs[i].height;
1087 cg->colors = icondirs[i].colorcount;
1088
1089 cg->planes = 1;
1090 cg->bits = 0;
1091 while ((1 << cg->bits) < cg->colors)
1092 ++cg->bits;
1093
1094 cg->bytes = icondirs[i].bytes;
1095 cg->index = first_icon + i + 1;
1096
1097 *pp = cg;
1098 pp = &(*pp)->next;
1099 }
1100
1101 free (icondirs);
1102
1103 r = define_standard_resource (&resources, RT_GROUP_ICON, id,
1104 resinfo->language, 0);
1105 r->type = RES_TYPE_GROUP_ICON;
1106 r->u.group_icon = first;
1107 r->res_info = *resinfo;
1108 }
1109
1110 /* Define a menu resource. */
1111
1112 void
1113 define_menu (id, resinfo, menuitems)
1114 struct res_id id;
1115 const struct res_res_info *resinfo;
1116 struct menuitem *menuitems;
1117 {
1118 struct menu *m;
1119 struct res_resource *r;
1120
1121 m = (struct menu *) res_alloc (sizeof *m);
1122 m->items = menuitems;
1123 m->help = 0;
1124
1125 r = define_standard_resource (&resources, RT_MENU, id, resinfo->language, 0);
1126 r->type = RES_TYPE_MENU;
1127 r->u.menu = m;
1128 r->res_info = *resinfo;
1129 }
1130
1131 /* Define a menu item. This does not define a resource, but merely
1132 allocates and fills in a structure. */
1133
1134 struct menuitem *
1135 define_menuitem (text, menuid, type, state, help, menuitems)
1136 const char *text;
1137 int menuid;
1138 unsigned long type;
1139 unsigned long state;
1140 unsigned long help;
1141 struct menuitem *menuitems;
1142 {
1143 struct menuitem *mi;
1144
1145 mi = (struct menuitem *) res_alloc (sizeof *mi);
1146 mi->next = NULL;
1147 mi->type = type;
1148 mi->state = state;
1149 mi->id = menuid;
1150 if (text == NULL)
1151 mi->text = NULL;
1152 else
1153 unicode_from_ascii ((int *) NULL, &mi->text, text);
1154 mi->help = help;
1155 mi->popup = menuitems;
1156 return mi;
1157 }
1158
1159 /* Define a messagetable resource. */
1160
1161 void
1162 define_messagetable (id, resinfo, filename)
1163 struct res_id id;
1164 const struct res_res_info *resinfo;
1165 const char *filename;
1166 {
1167 FILE *e;
1168 char *real_filename;
1169 struct stat s;
1170 unsigned char *data;
1171 struct res_resource *r;
1172
1173 e = open_file_search (filename, FOPEN_RB, "messagetable file",
1174 &real_filename);
1175
1176 if (stat (real_filename, &s) < 0)
1177 fatal (_("stat failed on bitmap file `%s': %s"), real_filename,
1178 strerror (errno));
1179
1180 data = (unsigned char *) res_alloc (s.st_size);
1181
1182 get_data (e, data, s.st_size, real_filename);
1183
1184 fclose (e);
1185 free (real_filename);
1186
1187 r = define_standard_resource (&resources, RT_MESSAGETABLE, id,
1188 resinfo->language, 0);
1189
1190 r->type = RES_TYPE_MESSAGETABLE;
1191 r->u.data.length = s.st_size;
1192 r->u.data.data = data;
1193 r->res_info = *resinfo;
1194 }
1195
1196 /* Define an rcdata resource. */
1197
1198 void
1199 define_rcdata (id, resinfo, data)
1200 struct res_id id;
1201 const struct res_res_info *resinfo;
1202 struct rcdata_item *data;
1203 {
1204 struct res_resource *r;
1205
1206 r = define_standard_resource (&resources, RT_RCDATA, id,
1207 resinfo->language, 0);
1208 r->type = RES_TYPE_RCDATA;
1209 r->u.rcdata = data;
1210 r->res_info = *resinfo;
1211 }
1212
1213 /* Create an rcdata item holding a string. */
1214
1215 struct rcdata_item *
1216 define_rcdata_string (string, len)
1217 const char *string;
1218 unsigned long len;
1219 {
1220 struct rcdata_item *ri;
1221 char *s;
1222
1223 ri = (struct rcdata_item *) res_alloc (sizeof *ri);
1224 ri->next = NULL;
1225 ri->type = RCDATA_STRING;
1226 ri->u.string.length = len;
1227 s = (char *) res_alloc (len);
1228 memcpy (s, string, len);
1229 ri->u.string.s = s;
1230
1231 return ri;
1232 }
1233
1234 /* Create an rcdata item holding a number. */
1235
1236 struct rcdata_item *
1237 define_rcdata_number (val, dword)
1238 unsigned long val;
1239 int dword;
1240 {
1241 struct rcdata_item *ri;
1242
1243 ri = (struct rcdata_item *) res_alloc (sizeof *ri);
1244 ri->next = NULL;
1245 ri->type = dword ? RCDATA_DWORD : RCDATA_WORD;
1246 ri->u.word = val;
1247
1248 return ri;
1249 }
1250
1251 /* Define a stringtable resource. This is called for each string
1252 which appears in a STRINGTABLE statement. */
1253
1254 void
1255 define_stringtable (resinfo, stringid, string)
1256 const struct res_res_info *resinfo;
1257 unsigned long stringid;
1258 const char *string;
1259 {
1260 struct res_id id;
1261 struct res_resource *r;
1262
1263 id.named = 0;
1264 id.u.id = (stringid >> 4) + 1;
1265 r = define_standard_resource (&resources, RT_STRING, id,
1266 resinfo->language, 1);
1267
1268 if (r->type == RES_TYPE_UNINITIALIZED)
1269 {
1270 int i;
1271
1272 r->type = RES_TYPE_STRINGTABLE;
1273 r->u.stringtable = ((struct stringtable *)
1274 res_alloc (sizeof (struct stringtable)));
1275 for (i = 0; i < 16; i++)
1276 {
1277 r->u.stringtable->strings[i].length = 0;
1278 r->u.stringtable->strings[i].string = NULL;
1279 }
1280
1281 r->res_info = *resinfo;
1282 }
1283
1284 unicode_from_ascii (&r->u.stringtable->strings[stringid & 0xf].length,
1285 &r->u.stringtable->strings[stringid & 0xf].string,
1286 string);
1287 }
1288
1289 /* Define a user data resource where the data is in the rc file. */
1290
1291 void
1292 define_user_data (id, type, resinfo, data)
1293 struct res_id id;
1294 struct res_id type;
1295 const struct res_res_info *resinfo;
1296 struct rcdata_item *data;
1297 {
1298 struct res_id ids[3];
1299 struct res_resource *r;
1300
1301 ids[0] = type;
1302 ids[1] = id;
1303 ids[2].named = 0;
1304 ids[2].u.id = resinfo->language;
1305
1306 r = define_resource (&resources, 3, ids, 0);
1307 r->type = RES_TYPE_USERDATA;
1308 r->u.userdata = data;
1309 r->res_info = *resinfo;
1310 }
1311
1312 /* Define a user data resource where the data is in a file. */
1313
1314 void
1315 define_user_file (id, type, resinfo, filename)
1316 struct res_id id;
1317 struct res_id type;
1318 const struct res_res_info *resinfo;
1319 const char *filename;
1320 {
1321 FILE *e;
1322 char *real_filename;
1323 struct stat s;
1324 unsigned char *data;
1325 struct res_id ids[3];
1326 struct res_resource *r;
1327
1328 e = open_file_search (filename, FOPEN_RB, "font file", &real_filename);
1329
1330 if (stat (real_filename, &s) < 0)
1331 fatal (_("stat failed on bitmap file `%s': %s"), real_filename,
1332 strerror (errno));
1333
1334 data = (unsigned char *) res_alloc (s.st_size);
1335
1336 get_data (e, data, s.st_size, real_filename);
1337
1338 fclose (e);
1339 free (real_filename);
1340
1341 ids[0] = type;
1342 ids[1] = id;
1343 ids[2].named = 0;
1344 ids[2].u.id = resinfo->language;
1345
1346 r = define_resource (&resources, 3, ids, 0);
1347 r->type = RES_TYPE_USERDATA;
1348 r->u.userdata = ((struct rcdata_item *)
1349 res_alloc (sizeof (struct rcdata_item)));
1350 r->u.userdata->next = NULL;
1351 r->u.userdata->type = RCDATA_BUFFER;
1352 r->u.userdata->u.buffer.length = s.st_size;
1353 r->u.userdata->u.buffer.data = data;
1354 r->res_info = *resinfo;
1355 }
1356
1357 /* Define a versioninfo resource. */
1358
1359 void
1360 define_versioninfo (id, language, fixedverinfo, verinfo)
1361 struct res_id id;
1362 int language;
1363 struct fixed_versioninfo *fixedverinfo;
1364 struct ver_info *verinfo;
1365 {
1366 struct res_resource *r;
1367
1368 r = define_standard_resource (&resources, RT_VERSION, id, language, 0);
1369 r->type = RES_TYPE_VERSIONINFO;
1370 r->u.versioninfo = ((struct versioninfo *)
1371 res_alloc (sizeof (struct versioninfo)));
1372 r->u.versioninfo->fixed = fixedverinfo;
1373 r->u.versioninfo->var = verinfo;
1374 r->res_info.language = language;
1375 }
1376
1377 /* Add string version info to a list of version information. */
1378
1379 struct ver_info *
1380 append_ver_stringfileinfo (verinfo, language, strings)
1381 struct ver_info *verinfo;
1382 const char *language;
1383 struct ver_stringinfo *strings;
1384 {
1385 struct ver_info *vi, **pp;
1386
1387 vi = (struct ver_info *) res_alloc (sizeof *vi);
1388 vi->next = NULL;
1389 vi->type = VERINFO_STRING;
1390 unicode_from_ascii ((int *) NULL, &vi->u.string.language, language);
1391 vi->u.string.strings = strings;
1392
1393 for (pp = &verinfo; *pp != NULL; pp = &(*pp)->next)
1394 ;
1395 *pp = vi;
1396
1397 return verinfo;
1398 }
1399
1400 /* Add variable version info to a list of version information. */
1401
1402 struct ver_info *
1403 append_ver_varfileinfo (verinfo, key, var)
1404 struct ver_info *verinfo;
1405 const char *key;
1406 struct ver_varinfo *var;
1407 {
1408 struct ver_info *vi, **pp;
1409
1410 vi = (struct ver_info *) res_alloc (sizeof *vi);
1411 vi->next = NULL;
1412 vi->type = VERINFO_VAR;
1413 unicode_from_ascii ((int *) NULL, &vi->u.var.key, key);
1414 vi->u.var.var = var;
1415
1416 for (pp = &verinfo; *pp != NULL; pp = &(*pp)->next)
1417 ;
1418 *pp = vi;
1419
1420 return verinfo;
1421 }
1422
1423 /* Append version string information to a list. */
1424
1425 struct ver_stringinfo *
1426 append_verval (strings, key, value)
1427 struct ver_stringinfo *strings;
1428 const char *key;
1429 const char *value;
1430 {
1431 struct ver_stringinfo *vs, **pp;
1432
1433 vs = (struct ver_stringinfo *) res_alloc (sizeof *vs);
1434 vs->next = NULL;
1435 unicode_from_ascii ((int *) NULL, &vs->key, key);
1436 unicode_from_ascii ((int *) NULL, &vs->value, value);
1437
1438 for (pp = &strings; *pp != NULL; pp = &(*pp)->next)
1439 ;
1440 *pp = vs;
1441
1442 return strings;
1443 }
1444
1445 /* Append version variable information to a list. */
1446
1447 struct ver_varinfo *
1448 append_vertrans (var, language, charset)
1449 struct ver_varinfo *var;
1450 unsigned long language;
1451 unsigned long charset;
1452 {
1453 struct ver_varinfo *vv, **pp;
1454
1455 vv = (struct ver_varinfo *) res_alloc (sizeof *vv);
1456 vv->next = NULL;
1457 vv->language = language;
1458 vv->charset = charset;
1459
1460 for (pp = &var; *pp != NULL; pp = &(*pp)->next)
1461 ;
1462 *pp = vv;
1463
1464 return var;
1465 }
1466 \f
1467 /* Local functions used to write out an rc file. */
1468
1469 static void indent PARAMS ((FILE *, int));
1470 static void write_rc_directory
1471 PARAMS ((FILE *, const struct res_directory *, const struct res_id *,
1472 const struct res_id *, int *, int));
1473 static void write_rc_subdir
1474 PARAMS ((FILE *, const struct res_entry *, const struct res_id *,
1475 const struct res_id *, int *, int));
1476 static void write_rc_resource
1477 PARAMS ((FILE *, const struct res_id *, const struct res_id *,
1478 const struct res_resource *, int *));
1479 static void write_rc_accelerators
1480 PARAMS ((FILE *, const struct accelerator *));
1481 static void write_rc_cursor PARAMS ((FILE *, const struct cursor *));
1482 static void write_rc_group_cursor
1483 PARAMS ((FILE *, const struct group_cursor *));
1484 static void write_rc_dialog PARAMS ((FILE *, const struct dialog *));
1485 static void write_rc_dialog_control
1486 PARAMS ((FILE *, const struct dialog_control *));
1487 static void write_rc_fontdir PARAMS ((FILE *, const struct fontdir *));
1488 static void write_rc_group_icon PARAMS ((FILE *, const struct group_icon *));
1489 static void write_rc_menu PARAMS ((FILE *, const struct menu *, int));
1490 static void write_rc_menuitems
1491 PARAMS ((FILE *, const struct menuitem *, int, int));
1492 static void write_rc_rcdata PARAMS ((FILE *, const struct rcdata_item *, int));
1493 static void write_rc_stringtable
1494 PARAMS ((FILE *, const struct res_id *, const struct stringtable *));
1495 static void write_rc_versioninfo PARAMS ((FILE *, const struct versioninfo *));
1496 static void write_rc_filedata
1497 PARAMS ((FILE *, unsigned long, const unsigned char *));
1498
1499 /* Indent a given number of spaces. */
1500
1501 static void
1502 indent (e, c)
1503 FILE *e;
1504 int c;
1505 {
1506 int i;
1507
1508 for (i = 0; i < c; i++)
1509 putc (' ', e);
1510 }
1511
1512 /* Dump the resources we have read in the format of an rc file.
1513
1514 Actually, we don't use the format of an rc file, because it's way
1515 too much of a pain--for example, we'd have to write icon resources
1516 into a file and refer to that file. We just generate a readable
1517 format that kind of looks like an rc file, and is useful for
1518 understanding the contents of a resource file. Someday we may want
1519 to generate an rc file which the rc compiler can read; if that day
1520 comes, this code will have to be fixed up. */
1521
1522 void
1523 write_rc_file (filename, resources)
1524 const char *filename;
1525 const struct res_directory *resources;
1526 {
1527 FILE *e;
1528 int language;
1529
1530 if (filename == NULL)
1531 e = stdout;
1532 else
1533 {
1534 e = fopen (filename, FOPEN_WT);
1535 if (e == NULL)
1536 fatal (_("can't open `%s' for output: %s"), filename, strerror (errno));
1537 }
1538
1539 language = -1;
1540 write_rc_directory (e, resources, (const struct res_id *) NULL,
1541 (const struct res_id *) NULL, &language, 1);
1542 }
1543
1544 /* Write out a directory. E is the file to write to. RD is the
1545 directory. TYPE is a pointer to the level 1 ID which serves as the
1546 resource type. NAME is a pointer to the level 2 ID which serves as
1547 an individual resource name. LANGUAGE is a pointer to the current
1548 language. LEVEL is the level in the tree. */
1549
1550 static void
1551 write_rc_directory (e, rd, type, name, language, level)
1552 FILE *e;
1553 const struct res_directory *rd;
1554 const struct res_id *type;
1555 const struct res_id *name;
1556 int *language;
1557 int level;
1558 {
1559 const struct res_entry *re;
1560
1561 /* Print out some COFF information that rc files can't represent. */
1562
1563 if (rd->time != 0)
1564 fprintf (e, "// Time stamp: %lu\n", rd->time);
1565 if (rd->characteristics != 0)
1566 fprintf (e, "// Characteristics: %lu\n", rd->characteristics);
1567 if (rd->major != 0 || rd->minor != 0)
1568 fprintf (e, "// Version: %d %d\n", rd->major, rd->minor);
1569
1570 for (re = rd->entries; re != NULL; re = re->next)
1571 {
1572 switch (level)
1573 {
1574 case 1:
1575 /* If we're at level 1, the key of this resource is the
1576 type. This normally duplicates the information we have
1577 stored with the resource itself, but we need to remember
1578 the type if this is a user define resource type. */
1579 type = &re->id;
1580 break;
1581
1582 case 2:
1583 /* If we're at level 2, the key of this resource is the name
1584 we are going to use in the rc printout. */
1585 name = &re->id;
1586 break;
1587
1588 case 3:
1589 /* If we're at level 3, then this key represents a language.
1590 Use it to update the current language. */
1591 if (! re->id.named
1592 && re->id.u.id != (unsigned long) (unsigned int) *language
1593 && (re->id.u.id & 0xffff) == re->id.u.id)
1594 {
1595 fprintf (e, "LANGUAGE %lu, %lu\n",
1596 re->id.u.id & ((1 << SUBLANG_SHIFT) - 1),
1597 (re->id.u.id >> SUBLANG_SHIFT) & 0xff);
1598 *language = re->id.u.id;
1599 }
1600 break;
1601
1602 default:
1603 break;
1604 }
1605
1606 if (re->subdir)
1607 write_rc_subdir (e, re, type, name, language, level);
1608 else
1609 {
1610 if (level == 3)
1611 {
1612 /* This is the normal case: the three levels are
1613 TYPE/NAME/LANGUAGE. NAME will have been set at level
1614 2, and represents the name to use. We probably just
1615 set LANGUAGE, and it will probably match what the
1616 resource itself records if anything. */
1617 write_rc_resource (e, type, name, re->u.res, language);
1618 }
1619 else
1620 {
1621 fprintf (e, "// Resource at unexpected level %d\n", level);
1622 write_rc_resource (e, type, (struct res_id *) NULL, re->u.res,
1623 language);
1624 }
1625 }
1626 }
1627 }
1628
1629 /* Write out a subdirectory entry. E is the file to write to. RE is
1630 the subdirectory entry. TYPE and NAME are pointers to higher level
1631 IDs, or NULL. LANGUAGE is a pointer to the current language.
1632 LEVEL is the level in the tree. */
1633
1634 static void
1635 write_rc_subdir (e, re, type, name, language, level)
1636 FILE *e;
1637 const struct res_entry *re;
1638 const struct res_id *type;
1639 const struct res_id *name;
1640 int *language;
1641 int level;
1642 {
1643 fprintf (e, "\n");
1644 switch (level)
1645 {
1646 case 1:
1647 fprintf (e, "// Type: ");
1648 if (re->id.named)
1649 res_id_print (e, re->id, 1);
1650 else
1651 {
1652 const char *s;
1653
1654 switch (re->id.u.id)
1655 {
1656 case RT_CURSOR: s = "cursor"; break;
1657 case RT_BITMAP: s = "bitmap"; break;
1658 case RT_ICON: s = "icon"; break;
1659 case RT_MENU: s = "menu"; break;
1660 case RT_DIALOG: s = "dialog"; break;
1661 case RT_STRING: s = "stringtable"; break;
1662 case RT_FONTDIR: s = "fontdir"; break;
1663 case RT_FONT: s = "font"; break;
1664 case RT_ACCELERATOR: s = "accelerators"; break;
1665 case RT_RCDATA: s = "rcdata"; break;
1666 case RT_MESSAGETABLE: s = "messagetable"; break;
1667 case RT_GROUP_CURSOR: s = "group cursor"; break;
1668 case RT_GROUP_ICON: s = "group icon"; break;
1669 case RT_VERSION: s = "version"; break;
1670 case RT_DLGINCLUDE: s = "dlginclude"; break;
1671 case RT_PLUGPLAY: s = "plugplay"; break;
1672 case RT_VXD: s = "vxd"; break;
1673 case RT_ANICURSOR: s = "anicursor"; break;
1674 case RT_ANIICON: s = "aniicon"; break;
1675 default: s = NULL; break;
1676 }
1677
1678 if (s != NULL)
1679 fprintf (e, "%s", s);
1680 else
1681 res_id_print (e, re->id, 1);
1682 }
1683 fprintf (e, "\n");
1684 break;
1685
1686 case 2:
1687 fprintf (e, "// Name: ");
1688 res_id_print (e, re->id, 1);
1689 fprintf (e, "\n");
1690 break;
1691
1692 case 3:
1693 fprintf (e, "// Language: ");
1694 res_id_print (e, re->id, 1);
1695 fprintf (e, "\n");
1696 break;
1697
1698 default:
1699 fprintf (e, "// Level %d: ", level);
1700 res_id_print (e, re->id, 1);
1701 fprintf (e, "\n");
1702 }
1703
1704 write_rc_directory (e, re->u.dir, type, name, language, level + 1);
1705 }
1706
1707 /* Write out a single resource. E is the file to write to. TYPE is a
1708 pointer to the type of the resource. NAME is a pointer to the name
1709 of the resource; it will be NULL if there is a level mismatch. RES
1710 is the resource data. LANGUAGE is a pointer to the current
1711 language. */
1712
1713 static void
1714 write_rc_resource (e, type, name, res, language)
1715 FILE *e;
1716 const struct res_id *type;
1717 const struct res_id *name;
1718 const struct res_resource *res;
1719 int *language;
1720 {
1721 const char *s;
1722 int rt;
1723 int menuex = 0;
1724
1725 fprintf (e, "\n");
1726
1727 switch (res->type)
1728 {
1729 default:
1730 abort ();
1731
1732 case RES_TYPE_ACCELERATOR:
1733 s = "ACCELERATOR";
1734 rt = RT_ACCELERATOR;
1735 break;
1736
1737 case RES_TYPE_BITMAP:
1738 s = "BITMAP";
1739 rt = RT_BITMAP;
1740 break;
1741
1742 case RES_TYPE_CURSOR:
1743 s = "CURSOR";
1744 rt = RT_CURSOR;
1745 break;
1746
1747 case RES_TYPE_GROUP_CURSOR:
1748 s = "GROUP_CURSOR";
1749 rt = RT_GROUP_CURSOR;
1750 break;
1751
1752 case RES_TYPE_DIALOG:
1753 if (extended_dialog (res->u.dialog))
1754 s = "DIALOGEX";
1755 else
1756 s = "DIALOG";
1757 rt = RT_DIALOG;
1758 break;
1759
1760 case RES_TYPE_FONT:
1761 s = "FONT";
1762 rt = RT_FONT;
1763 break;
1764
1765 case RES_TYPE_FONTDIR:
1766 s = "FONTDIR";
1767 rt = RT_FONTDIR;
1768 break;
1769
1770 case RES_TYPE_ICON:
1771 s = "ICON";
1772 rt = RT_ICON;
1773 break;
1774
1775 case RES_TYPE_GROUP_ICON:
1776 s = "GROUP_ICON";
1777 rt = RT_GROUP_ICON;
1778 break;
1779
1780 case RES_TYPE_MENU:
1781 if (extended_menu (res->u.menu))
1782 {
1783 s = "MENUEX";
1784 menuex = 1;
1785 }
1786 else
1787 {
1788 s = "MENU";
1789 menuex = 0;
1790 }
1791 rt = RT_MENU;
1792 break;
1793
1794 case RES_TYPE_MESSAGETABLE:
1795 s = "MESSAGETABLE";
1796 rt = RT_MESSAGETABLE;
1797 break;
1798
1799 case RES_TYPE_RCDATA:
1800 s = "RCDATA";
1801 rt = RT_RCDATA;
1802 break;
1803
1804 case RES_TYPE_STRINGTABLE:
1805 s = "STRINGTABLE";
1806 rt = RT_STRING;
1807 break;
1808
1809 case RES_TYPE_USERDATA:
1810 s = NULL;
1811 rt = 0;
1812 break;
1813
1814 case RES_TYPE_VERSIONINFO:
1815 s = "VERSIONINFO";
1816 rt = RT_VERSION;
1817 break;
1818 }
1819
1820 if (rt != 0
1821 && type != NULL
1822 && (type->named || type->u.id != (unsigned long) rt))
1823 {
1824 fprintf (e, "// Unexpected resource type mismatch: ");
1825 res_id_print (e, *type, 1);
1826 fprintf (e, " != %d", rt);
1827 }
1828
1829 if (res->coff_info.codepage != 0)
1830 fprintf (e, "// Code page: %lu\n", res->coff_info.codepage);
1831 if (res->coff_info.reserved != 0)
1832 fprintf (e, "// COFF reserved value: %lu\n", res->coff_info.reserved);
1833
1834 if (name != NULL)
1835 res_id_print (e, *name, 0);
1836 else
1837 fprintf (e, "??Unknown-Name??");
1838
1839 fprintf (e, " ");
1840 if (s != NULL)
1841 fprintf (e, "%s", s);
1842 else if (type != NULL)
1843 res_id_print (e, *type, 0);
1844 else
1845 fprintf (e, "??Unknown-Type??");
1846
1847 if (res->res_info.memflags != 0)
1848 {
1849 if ((res->res_info.memflags & MEMFLAG_MOVEABLE) != 0)
1850 fprintf (e, " MOVEABLE");
1851 if ((res->res_info.memflags & MEMFLAG_PURE) != 0)
1852 fprintf (e, " PURE");
1853 if ((res->res_info.memflags & MEMFLAG_PRELOAD) != 0)
1854 fprintf (e, " PRELOAD");
1855 if ((res->res_info.memflags & MEMFLAG_DISCARDABLE) != 0)
1856 fprintf (e, " DISCARDABLE");
1857 }
1858
1859 if (res->type == RES_TYPE_DIALOG)
1860 {
1861 fprintf (e, " %d, %d, %d, %d", res->u.dialog->x, res->u.dialog->y,
1862 res->u.dialog->width, res->u.dialog->height);
1863 if (res->u.dialog->ex != NULL
1864 && res->u.dialog->ex->help != 0)
1865 fprintf (e, ", %lu", res->u.dialog->ex->help);
1866 }
1867
1868 fprintf (e, "\n");
1869
1870 if ((res->res_info.language != 0 && res->res_info.language != *language)
1871 || res->res_info.characteristics != 0
1872 || res->res_info.version != 0)
1873 {
1874 int modifiers;
1875
1876 switch (res->type)
1877 {
1878 case RES_TYPE_ACCELERATOR:
1879 case RES_TYPE_DIALOG:
1880 case RES_TYPE_MENU:
1881 case RES_TYPE_RCDATA:
1882 case RES_TYPE_STRINGTABLE:
1883 modifiers = 1;
1884 break;
1885
1886 default:
1887 modifiers = 0;
1888 break;
1889 }
1890
1891 if (res->res_info.language != 0 && res->res_info.language != *language)
1892 fprintf (e, "%sLANGUAGE %d, %d\n",
1893 modifiers ? "// " : "",
1894 res->res_info.language & ((1<<SUBLANG_SHIFT)-1),
1895 (res->res_info.language >> SUBLANG_SHIFT) & 0xff);
1896 if (res->res_info.characteristics != 0)
1897 fprintf (e, "%sCHARACTERISTICS %lu\n",
1898 modifiers ? "// " : "",
1899 res->res_info.characteristics);
1900 if (res->res_info.version != 0)
1901 fprintf (e, "%sVERSION %lu\n",
1902 modifiers ? "// " : "",
1903 res->res_info.version);
1904 }
1905
1906 switch (res->type)
1907 {
1908 default:
1909 abort ();
1910
1911 case RES_TYPE_ACCELERATOR:
1912 write_rc_accelerators (e, res->u.acc);
1913 break;
1914
1915 case RES_TYPE_CURSOR:
1916 write_rc_cursor (e, res->u.cursor);
1917 break;
1918
1919 case RES_TYPE_GROUP_CURSOR:
1920 write_rc_group_cursor (e, res->u.group_cursor);
1921 break;
1922
1923 case RES_TYPE_DIALOG:
1924 write_rc_dialog (e, res->u.dialog);
1925 break;
1926
1927 case RES_TYPE_FONTDIR:
1928 write_rc_fontdir (e, res->u.fontdir);
1929 break;
1930
1931 case RES_TYPE_GROUP_ICON:
1932 write_rc_group_icon (e, res->u.group_icon);
1933 break;
1934
1935 case RES_TYPE_MENU:
1936 write_rc_menu (e, res->u.menu, menuex);
1937 break;
1938
1939 case RES_TYPE_RCDATA:
1940 write_rc_rcdata (e, res->u.rcdata, 0);
1941 break;
1942
1943 case RES_TYPE_STRINGTABLE:
1944 write_rc_stringtable (e, name, res->u.stringtable);
1945 break;
1946
1947 case RES_TYPE_USERDATA:
1948 write_rc_rcdata (e, res->u.userdata, 0);
1949 break;
1950
1951 case RES_TYPE_VERSIONINFO:
1952 write_rc_versioninfo (e, res->u.versioninfo);
1953 break;
1954
1955 case RES_TYPE_BITMAP:
1956 case RES_TYPE_FONT:
1957 case RES_TYPE_ICON:
1958 case RES_TYPE_MESSAGETABLE:
1959 write_rc_filedata (e, res->u.data.length, res->u.data.data);
1960 break;
1961 }
1962 }
1963
1964 /* Write out accelerator information. */
1965
1966 static void
1967 write_rc_accelerators (e, accelerators)
1968 FILE *e;
1969 const struct accelerator *accelerators;
1970 {
1971 const struct accelerator *acc;
1972
1973 fprintf (e, "BEGIN\n");
1974 for (acc = accelerators; acc != NULL; acc = acc->next)
1975 {
1976 int printable;
1977
1978 fprintf (e, " ");
1979
1980 if ((acc->key & 0x7f) == acc->key
1981 && ISPRINT (acc->key)
1982 && (acc->flags & ACC_VIRTKEY) == 0)
1983 {
1984 fprintf (e, "\"%c\"", acc->key);
1985 printable = 1;
1986 }
1987 else
1988 {
1989 fprintf (e, "%d", acc->key);
1990 printable = 0;
1991 }
1992
1993 fprintf (e, ", %d", acc->id);
1994
1995 if (! printable)
1996 {
1997 if ((acc->flags & ACC_VIRTKEY) != 0)
1998 fprintf (e, ", VIRTKEY");
1999 else
2000 fprintf (e, ", ASCII");
2001 }
2002
2003 if ((acc->flags & ACC_SHIFT) != 0)
2004 fprintf (e, ", SHIFT");
2005 if ((acc->flags & ACC_CONTROL) != 0)
2006 fprintf (e, ", CONTROL");
2007 if ((acc->flags & ACC_ALT) != 0)
2008 fprintf (e, ", ALT");
2009
2010 fprintf (e, "\n");
2011 }
2012
2013 fprintf (e, "END\n");
2014 }
2015
2016 /* Write out cursor information. This would normally be in a separate
2017 file, which the rc file would include. */
2018
2019 static void
2020 write_rc_cursor (e, cursor)
2021 FILE *e;
2022 const struct cursor *cursor;
2023 {
2024 fprintf (e, "// Hotspot: x: %d; y: %d\n", cursor->xhotspot,
2025 cursor->yhotspot);
2026 write_rc_filedata (e, cursor->length, cursor->data);
2027 }
2028
2029 /* Write out group cursor data. This would normally be built from the
2030 cursor data. */
2031
2032 static void
2033 write_rc_group_cursor (e, group_cursor)
2034 FILE *e;
2035 const struct group_cursor *group_cursor;
2036 {
2037 const struct group_cursor *gc;
2038
2039 for (gc = group_cursor; gc != NULL; gc = gc->next)
2040 {
2041 fprintf (e, "// width: %d; height %d; planes %d; bits %d\n",
2042 gc->width, gc->height, gc->planes, gc->bits);
2043 fprintf (e, "// data bytes: %lu; index: %d\n",
2044 gc->bytes, gc->index);
2045 }
2046 }
2047
2048 /* Write dialog data. */
2049
2050 static void
2051 write_rc_dialog (e, dialog)
2052 FILE *e;
2053 const struct dialog *dialog;
2054 {
2055 const struct dialog_control *control;
2056
2057 fprintf (e, "STYLE 0x%lx\n", dialog->style);
2058
2059 if (dialog->exstyle != 0)
2060 fprintf (e, "EXSTYLE 0x%lx\n", dialog->exstyle);
2061
2062 if ((dialog->class.named && dialog->class.u.n.length > 0)
2063 || dialog->class.u.id != 0)
2064 {
2065 fprintf (e, "CLASS ");
2066 res_id_print (e, dialog->class, 1);
2067 fprintf (e, "\n");
2068 }
2069
2070 if (dialog->caption != NULL)
2071 {
2072 fprintf (e, "CAPTION \"");
2073 unicode_print (e, dialog->caption, -1);
2074 fprintf (e, "\"\n");
2075 }
2076
2077 if ((dialog->menu.named && dialog->menu.u.n.length > 0)
2078 || dialog->menu.u.id != 0)
2079 {
2080 fprintf (e, "MENU ");
2081 res_id_print (e, dialog->menu, 0);
2082 fprintf (e, "\n");
2083 }
2084
2085 if (dialog->font != NULL)
2086 {
2087 fprintf (e, "FONT %d, \"", dialog->pointsize);
2088 unicode_print (e, dialog->font, -1);
2089 fprintf (e, "\"");
2090 if (dialog->ex != NULL
2091 && (dialog->ex->weight != 0
2092 || dialog->ex->italic != 0
2093 || dialog->ex->charset != 1))
2094 fprintf (e, ", %d, %d, %d",
2095 dialog->ex->weight, dialog->ex->italic, dialog->ex->charset);
2096 fprintf (e, "\n");
2097 }
2098
2099 fprintf (e, "BEGIN\n");
2100
2101 for (control = dialog->controls; control != NULL; control = control->next)
2102 write_rc_dialog_control (e, control);
2103
2104 fprintf (e, "END\n");
2105 }
2106
2107 /* For each predefined control keyword, this table provides the class
2108 and the style. */
2109
2110 struct control_info
2111 {
2112 const char *name;
2113 unsigned short class;
2114 unsigned long style;
2115 };
2116
2117 static const struct control_info control_info[] =
2118 {
2119 { "AUTO3STATE", CTL_BUTTON, BS_AUTO3STATE },
2120 { "AUTOCHECKBOX", CTL_BUTTON, BS_AUTOCHECKBOX },
2121 { "AUTORADIOBUTTON", CTL_BUTTON, BS_AUTORADIOBUTTON },
2122 { "CHECKBOX", CTL_BUTTON, BS_CHECKBOX },
2123 { "COMBOBOX", CTL_COMBOBOX, (unsigned long) -1 },
2124 { "CTEXT", CTL_STATIC, SS_CENTER },
2125 { "DEFPUSHBUTTON", CTL_BUTTON, BS_DEFPUSHBUTTON },
2126 { "EDITTEXT", CTL_EDIT, (unsigned long) -1 },
2127 { "GROUPBOX", CTL_BUTTON, BS_GROUPBOX },
2128 { "ICON", CTL_STATIC, SS_ICON },
2129 { "LISTBOX", CTL_LISTBOX, (unsigned long) -1 },
2130 { "LTEXT", CTL_STATIC, SS_LEFT },
2131 { "PUSHBOX", CTL_BUTTON, BS_PUSHBOX },
2132 { "PUSHBUTTON", CTL_BUTTON, BS_PUSHBUTTON },
2133 { "RADIOBUTTON", CTL_BUTTON, BS_RADIOBUTTON },
2134 { "RTEXT", CTL_STATIC, SS_RIGHT },
2135 { "SCROLLBAR", CTL_SCROLLBAR, (unsigned long) -1 },
2136 { "STATE3", CTL_BUTTON, BS_3STATE },
2137 /* It's important that USERBUTTON come after all the other button
2138 types, so that it won't be matched too early. */
2139 { "USERBUTTON", CTL_BUTTON, (unsigned long) -1 },
2140 { NULL, 0, 0 }
2141 };
2142
2143 /* Write a dialog control. */
2144
2145 static void
2146 write_rc_dialog_control (e, control)
2147 FILE *e;
2148 const struct dialog_control *control;
2149 {
2150 const struct control_info *ci;
2151
2152 fprintf (e, " ");
2153
2154 if (control->class.named)
2155 ci = NULL;
2156 else
2157 {
2158 for (ci = control_info; ci->name != NULL; ++ci)
2159 if (ci->class == control->class.u.id
2160 && (ci->style == (unsigned long) -1
2161 || ci->style == (control->style & 0xff)))
2162 break;
2163 }
2164 if (ci == NULL)
2165 fprintf (e, "CONTROL");
2166 else if (ci->name != NULL)
2167 fprintf (e, "%s", ci->name);
2168 else
2169 fprintf (e, "CONTROL");
2170
2171 if (control->text.named || control->text.u.id != 0)
2172 {
2173 fprintf (e, " ");
2174 res_id_print (e, control->text, 1);
2175 fprintf (e, ",");
2176 }
2177
2178 fprintf (e, " %d, ", control->id);
2179
2180 if (ci == NULL)
2181 {
2182 if (control->class.named)
2183 fprintf (e, "\"");
2184 res_id_print (e, control->class, 0);
2185 if (control->class.named)
2186 fprintf (e, "\"");
2187 fprintf (e, ", 0x%lx, ", control->style);
2188 }
2189
2190 fprintf (e, "%d, %d", control->x, control->y);
2191
2192 if (control->style != SS_ICON
2193 || control->exstyle != 0
2194 || control->width != 0
2195 || control->height != 0
2196 || control->help != 0)
2197 {
2198 fprintf (e, ", %d, %d", control->width, control->height);
2199
2200 /* FIXME: We don't need to print the style if it is the default.
2201 More importantly, in certain cases we actually need to turn
2202 off parts of the forced style, by using NOT. */
2203 fprintf (e, ", 0x%lx", control->style);
2204
2205 if (control->exstyle != 0 || control->help != 0)
2206 fprintf (e, ", 0x%lx, %lu", control->exstyle, control->help);
2207 }
2208
2209 fprintf (e, "\n");
2210
2211 if (control->data != NULL)
2212 write_rc_rcdata (e, control->data, 2);
2213 }
2214
2215 /* Write out font directory data. This would normally be built from
2216 the font data. */
2217
2218 static void
2219 write_rc_fontdir (e, fontdir)
2220 FILE *e;
2221 const struct fontdir *fontdir;
2222 {
2223 const struct fontdir *fc;
2224
2225 for (fc = fontdir; fc != NULL; fc = fc->next)
2226 {
2227 fprintf (e, "// Font index: %d\n", fc->index);
2228 write_rc_filedata (e, fc->length, fc->data);
2229 }
2230 }
2231
2232 /* Write out group icon data. This would normally be built from the
2233 icon data. */
2234
2235 static void
2236 write_rc_group_icon (e, group_icon)
2237 FILE *e;
2238 const struct group_icon *group_icon;
2239 {
2240 const struct group_icon *gi;
2241
2242 for (gi = group_icon; gi != NULL; gi = gi->next)
2243 {
2244 fprintf (e, "// width: %d; height %d; colors: %d; planes %d; bits %d\n",
2245 gi->width, gi->height, gi->colors, gi->planes, gi->bits);
2246 fprintf (e, "// data bytes: %lu; index: %d\n",
2247 gi->bytes, gi->index);
2248 }
2249 }
2250
2251 /* Write out a menu resource. */
2252
2253 static void
2254 write_rc_menu (e, menu, menuex)
2255 FILE *e;
2256 const struct menu *menu;
2257 int menuex;
2258 {
2259 if (menu->help != 0)
2260 fprintf (e, "// Help ID: %lu\n", menu->help);
2261 write_rc_menuitems (e, menu->items, menuex, 0);
2262 }
2263
2264 /* Write out menuitems. */
2265
2266 static void
2267 write_rc_menuitems (e, menuitems, menuex, ind)
2268 FILE *e;
2269 const struct menuitem *menuitems;
2270 int menuex;
2271 int ind;
2272 {
2273 const struct menuitem *mi;
2274
2275 indent (e, ind);
2276 fprintf (e, "BEGIN\n");
2277
2278 for (mi = menuitems; mi != NULL; mi = mi->next)
2279 {
2280 indent (e, ind + 2);
2281
2282 if (mi->popup == NULL)
2283 fprintf (e, "MENUITEM");
2284 else
2285 fprintf (e, "POPUP");
2286
2287 if (! menuex
2288 && mi->popup == NULL
2289 && mi->text == NULL
2290 && mi->type == 0
2291 && mi->id == 0)
2292 {
2293 fprintf (e, " SEPARATOR\n");
2294 continue;
2295 }
2296
2297 if (mi->text == NULL)
2298 fprintf (e, " \"\"");
2299 else
2300 {
2301 fprintf (e, " \"");
2302 unicode_print (e, mi->text, -1);
2303 fprintf (e, "\"");
2304 }
2305
2306 if (! menuex)
2307 {
2308 if (mi->popup == NULL)
2309 fprintf (e, ", %d", mi->id);
2310
2311 if ((mi->type & MENUITEM_CHECKED) != 0)
2312 fprintf (e, ", CHECKED");
2313 if ((mi->type & MENUITEM_GRAYED) != 0)
2314 fprintf (e, ", GRAYED");
2315 if ((mi->type & MENUITEM_HELP) != 0)
2316 fprintf (e, ", HELP");
2317 if ((mi->type & MENUITEM_INACTIVE) != 0)
2318 fprintf (e, ", INACTIVE");
2319 if ((mi->type & MENUITEM_MENUBARBREAK) != 0)
2320 fprintf (e, ", MENUBARBREAK");
2321 if ((mi->type & MENUITEM_MENUBREAK) != 0)
2322 fprintf (e, ", MENUBREAK");
2323 }
2324 else
2325 {
2326 if (mi->id != 0 || mi->type != 0 || mi->state != 0 || mi->help != 0)
2327 {
2328 fprintf (e, ", %d", mi->id);
2329 if (mi->type != 0 || mi->state != 0 || mi->help != 0)
2330 {
2331 fprintf (e, ", %lu", mi->type);
2332 if (mi->state != 0 || mi->help != 0)
2333 {
2334 fprintf (e, ", %lu", mi->state);
2335 if (mi->help != 0)
2336 fprintf (e, ", %lu", mi->help);
2337 }
2338 }
2339 }
2340 }
2341
2342 fprintf (e, "\n");
2343
2344 if (mi->popup != NULL)
2345 write_rc_menuitems (e, mi->popup, menuex, ind + 2);
2346 }
2347
2348 indent (e, ind);
2349 fprintf (e, "END\n");
2350 }
2351
2352 /* Write out an rcdata resource. This is also used for other types of
2353 resources that need to print arbitrary data. */
2354
2355 static void
2356 write_rc_rcdata (e, rcdata, ind)
2357 FILE *e;
2358 const struct rcdata_item *rcdata;
2359 int ind;
2360 {
2361 const struct rcdata_item *ri;
2362
2363 indent (e, ind);
2364 fprintf (e, "BEGIN\n");
2365
2366 for (ri = rcdata; ri != NULL; ri = ri->next)
2367 {
2368 if (ri->type == RCDATA_BUFFER && ri->u.buffer.length == 0)
2369 continue;
2370
2371 indent (e, ind + 2);
2372
2373 switch (ri->type)
2374 {
2375 default:
2376 abort ();
2377
2378 case RCDATA_WORD:
2379 fprintf (e, "%d", ri->u.word);
2380 break;
2381
2382 case RCDATA_DWORD:
2383 fprintf (e, "%luL", ri->u.dword);
2384 break;
2385
2386 case RCDATA_STRING:
2387 {
2388 const char *s;
2389 unsigned long i;
2390
2391 fprintf (e, "\"");
2392 s = ri->u.string.s;
2393 for (i = 0; i < ri->u.string.length; i++)
2394 {
2395 if (ISPRINT (*s))
2396 putc (*s, e);
2397 else
2398 fprintf (e, "\\%03o", *s);
2399 }
2400 fprintf (e, "\"");
2401 break;
2402 }
2403
2404 case RCDATA_WSTRING:
2405 fprintf (e, "L\"");
2406 unicode_print (e, ri->u.wstring.w, ri->u.wstring.length);
2407 fprintf (e, "\"");
2408 break;
2409
2410 case RCDATA_BUFFER:
2411 {
2412 unsigned long i;
2413 int first;
2414
2415 /* Assume little endian data. */
2416
2417 first = 1;
2418 for (i = 0; i + 3 < ri->u.buffer.length; i += 4)
2419 {
2420 unsigned long l;
2421 int j;
2422
2423 if (! first)
2424 indent (e, ind + 2);
2425 l = ((((((ri->u.buffer.data[i + 3] << 8)
2426 | ri->u.buffer.data[i + 2]) << 8)
2427 | ri->u.buffer.data[i + 1]) << 8)
2428 | ri->u.buffer.data[i]);
2429 fprintf (e, "%luL", l);
2430 if (i + 4 < ri->u.buffer.length || ri->next != NULL)
2431 fprintf (e, ",");
2432 for (j = 0; j < 4; ++j)
2433 if (! ISPRINT (ri->u.buffer.data[i + j])
2434 && ri->u.buffer.data[i + j] != 0)
2435 break;
2436 if (j >= 4)
2437 {
2438 fprintf (e, "\t// ");
2439 for (j = 0; j < 4; ++j)
2440 {
2441 if (! ISPRINT (ri->u.buffer.data[i + j]))
2442 fprintf (e, "\\%03o", ri->u.buffer.data[i + j]);
2443 else
2444 {
2445 if (ri->u.buffer.data[i + j] == '\\')
2446 fprintf (e, "\\");
2447 fprintf (e, "%c", ri->u.buffer.data[i + j]);
2448 }
2449 }
2450 }
2451 fprintf (e, "\n");
2452 first = 0;
2453 }
2454
2455 if (i + 1 < ri->u.buffer.length)
2456 {
2457 int s;
2458 int j;
2459
2460 if (! first)
2461 indent (e, ind + 2);
2462 s = (ri->u.buffer.data[i + 1] << 8) | ri->u.buffer.data[i];
2463 fprintf (e, "%d", s);
2464 if (i + 2 < ri->u.buffer.length || ri->next != NULL)
2465 fprintf (e, ",");
2466 for (j = 0; j < 2; ++j)
2467 if (! ISPRINT (ri->u.buffer.data[i + j])
2468 && ri->u.buffer.data[i + j] != 0)
2469 break;
2470 if (j >= 2)
2471 {
2472 fprintf (e, "\t// ");
2473 for (j = 0; j < 2; ++j)
2474 {
2475 if (! ISPRINT (ri->u.buffer.data[i + j]))
2476 fprintf (e, "\\%03o", ri->u.buffer.data[i + j]);
2477 else
2478 {
2479 if (ri->u.buffer.data[i + j] == '\\')
2480 fprintf (e, "\\");
2481 fprintf (e, "%c", ri->u.buffer.data[i + j]);
2482 }
2483 }
2484 }
2485 fprintf (e, "\n");
2486 i += 2;
2487 first = 0;
2488 }
2489
2490 if (i < ri->u.buffer.length)
2491 {
2492 if (! first)
2493 indent (e, ind + 2);
2494 if ((ri->u.buffer.data[i] & 0x7f) == ri->u.buffer.data[i]
2495 && ISPRINT (ri->u.buffer.data[i]))
2496 fprintf (e, "\"%c\"", ri->u.buffer.data[i]);
2497 else
2498 fprintf (e, "\"\\%03o\"", ri->u.buffer.data[i]);
2499 if (ri->next != NULL)
2500 fprintf (e, ",");
2501 fprintf (e, "\n");
2502 first = 0;
2503 }
2504
2505 break;
2506 }
2507 }
2508
2509 if (ri->type != RCDATA_BUFFER)
2510 {
2511 if (ri->next != NULL)
2512 fprintf (e, ",");
2513 fprintf (e, "\n");
2514 }
2515 }
2516
2517 indent (e, ind);
2518 fprintf (e, "END\n");
2519 }
2520
2521 /* Write out a stringtable resource. */
2522
2523 static void
2524 write_rc_stringtable (e, name, stringtable)
2525 FILE *e;
2526 const struct res_id *name;
2527 const struct stringtable *stringtable;
2528 {
2529 unsigned long offset;
2530 int i;
2531
2532 if (name != NULL && ! name->named)
2533 offset = (name->u.id - 1) << 4;
2534 else
2535 {
2536 fprintf (e, "// %s string table name\n",
2537 name == NULL ? "Missing" : "Invalid");
2538 offset = 0;
2539 }
2540
2541 fprintf (e, "BEGIN\n");
2542
2543 for (i = 0; i < 16; i++)
2544 {
2545 if (stringtable->strings[i].length != 0)
2546 {
2547 fprintf (e, " %lu, \"", offset + i);
2548 unicode_print (e, stringtable->strings[i].string,
2549 stringtable->strings[i].length);
2550 fprintf (e, "\"\n");
2551 }
2552 }
2553
2554 fprintf (e, "END\n");
2555 }
2556
2557 /* Write out a versioninfo resource. */
2558
2559 static void
2560 write_rc_versioninfo (e, versioninfo)
2561 FILE *e;
2562 const struct versioninfo *versioninfo;
2563 {
2564 const struct fixed_versioninfo *f;
2565 const struct ver_info *vi;
2566
2567 f = versioninfo->fixed;
2568 if (f->file_version_ms != 0 || f->file_version_ls != 0)
2569 fprintf (e, " FILEVERSION %lu, %lu, %lu, %lu\n",
2570 (f->file_version_ms >> 16) & 0xffff,
2571 f->file_version_ms & 0xffff,
2572 (f->file_version_ls >> 16) & 0xffff,
2573 f->file_version_ls & 0xffff);
2574 if (f->product_version_ms != 0 || f->product_version_ls != 0)
2575 fprintf (e, " PRODUCTVERSION %lu, %lu, %lu, %lu\n",
2576 (f->product_version_ms >> 16) & 0xffff,
2577 f->product_version_ms & 0xffff,
2578 (f->product_version_ls >> 16) & 0xffff,
2579 f->product_version_ls & 0xffff);
2580 if (f->file_flags_mask != 0)
2581 fprintf (e, " FILEFLAGSMASK 0x%lx\n", f->file_flags_mask);
2582 if (f->file_flags != 0)
2583 fprintf (e, " FILEFLAGS 0x%lx\n", f->file_flags);
2584 if (f->file_os != 0)
2585 fprintf (e, " FILEOS 0x%lx\n", f->file_os);
2586 if (f->file_type != 0)
2587 fprintf (e, " FILETYPE 0x%lx\n", f->file_type);
2588 if (f->file_subtype != 0)
2589 fprintf (e, " FILESUBTYPE 0x%lx\n", f->file_subtype);
2590 if (f->file_date_ms != 0 || f->file_date_ls != 0)
2591 fprintf (e, "// Date: %lu, %lu\n", f->file_date_ms, f->file_date_ls);
2592
2593 fprintf (e, "BEGIN\n");
2594
2595 for (vi = versioninfo->var; vi != NULL; vi = vi->next)
2596 {
2597 switch (vi->type)
2598 {
2599 case VERINFO_STRING:
2600 {
2601 const struct ver_stringinfo *vs;
2602
2603 fprintf (e, " BLOCK \"StringFileInfo\"\n");
2604 fprintf (e, " BEGIN\n");
2605 fprintf (e, " BLOCK \"");
2606 unicode_print (e, vi->u.string.language, -1);
2607 fprintf (e, "\"\n");
2608 fprintf (e, " BEGIN\n");
2609
2610 for (vs = vi->u.string.strings; vs != NULL; vs = vs->next)
2611 {
2612 fprintf (e, " VALUE \"");
2613 unicode_print (e, vs->key, -1);
2614 fprintf (e, "\", \"");
2615 unicode_print (e, vs->value, -1);
2616 fprintf (e, "\"\n");
2617 }
2618
2619 fprintf (e, " END\n");
2620 fprintf (e, " END\n");
2621 break;
2622 }
2623
2624 case VERINFO_VAR:
2625 {
2626 const struct ver_varinfo *vv;
2627
2628 fprintf (e, " BLOCK \"VarFileInfo\"\n");
2629 fprintf (e, " BEGIN\n");
2630 fprintf (e, " VALUE \"");
2631 unicode_print (e, vi->u.var.key, -1);
2632 fprintf (e, "\"");
2633
2634 for (vv = vi->u.var.var; vv != NULL; vv = vv->next)
2635 fprintf (e, ", 0x%x, %d", (unsigned int) vv->language,
2636 vv->charset);
2637
2638 fprintf (e, "\n END\n");
2639
2640 break;
2641 }
2642 }
2643 }
2644
2645 fprintf (e, "END\n");
2646 }
2647
2648 /* Write out data which would normally be read from a file. */
2649
2650 static void
2651 write_rc_filedata (e, length, data)
2652 FILE *e;
2653 unsigned long length;
2654 const unsigned char *data;
2655 {
2656 unsigned long i;
2657
2658 for (i = 0; i + 15 < length; i += 16)
2659 {
2660 fprintf (e, "// %4lx: ", i);
2661 fprintf (e, "%02x %02x %02x %02x %02x %02x %02x %02x ",
2662 data[i + 0], data[i + 1], data[i + 2], data[i + 3],
2663 data[i + 4], data[i + 5], data[i + 6], data[i + 7]);
2664 fprintf (e, "%02x %02x %02x %02x %02x %02x %02x %02x\n",
2665 data[i + 8], data[i + 9], data[i + 10], data[i + 11],
2666 data[i + 12], data[i + 13], data[i + 14], data[i + 15]);
2667 }
2668
2669 if (i < length)
2670 {
2671 fprintf (e, "// %4lx:", i);
2672 while (i < length)
2673 {
2674 fprintf (e, " %02x", data[i]);
2675 ++i;
2676 }
2677 fprintf (e, "\n");
2678 }
2679 }
git-cvsimport of binutils cvsroot