Keep dsound8.c and dsound.c in sync.
[wine] / tools / bin2res.c
1 /************************************************
2  *
3  * Converting binary resources from/to *.rc files
4  *
5  * Copyright 1999 Juergen Schmied
6  * Copyright 2003 Dimitrie O. Paun
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library 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 GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <ctype.h>
29 #include <string.h>
30 #include <sys/stat.h>
31 #include <limits.h>
32 #ifdef HAVE_SYS_PARAM_H
33 # include <sys/param.h>
34 #endif
35
36 static const char* help =
37         "Usage: bin2res [OPTIONS] <rsrc.rc>\n"
38         "  -a archive binaries into the <rsrc.rc> file\n"
39         "  -x extract binaries from the <rsrc.rc> file\n"
40         "  -i <filename> archive the named file into the <rsrc.rc> file\n"
41         "  -o <filename> extract the named file from the <rsrc.rc> file\n"
42         "  -f force processing of older resources\n"
43         "  -v causes the command to be verbous during processing\n" 
44         "  -h print this help screen and exit\n"
45         "\n"
46         "This tool allows the insertion/extractions of embedded binary\n"
47         "resources to/from .rc files, for storage within the cvs tree.\n"
48         "This is accomplished by placing a magic marker in a comment\n"
49         "just above the resource. The marker consists of the BINRES\n"
50         "string followed by the file name. For example, to insert a\n"
51         "brand new binary resource in a .rc file, place the marker\n"
52         "above empty brackets:\n"
53         "    /* BINRES idb_std_small.bmp */\n"
54         "    IDB_STD_SMALL BITMAP idb_std_small.bmp\n"
55         "    /* {\n"
56         "    } */\n"
57         "To merge the binary resources into the .rc file, run:\n"
58         "   bin2res -a myrsrc.rc\n"
59         "Only resources that are newer than the .rc are processed.\n"
60         "To extract the binary resources from the .rc file, run:\n"
61         "  bin2res -x myrsrc.rc\n"
62         "Binary files newer than the .rc file are not overwritten.\n"
63         "\n"
64         "To force processing of all resources, use the -f flag.\n"
65         "To process a particular file, use the -i/-o options.\n";
66
67 void usage(void)
68 {
69     printf(help);
70     exit(1);
71 }
72
73 int insert_hexdump (FILE* outfile, FILE* infile)
74 {
75     int i, c;
76
77     fprintf (outfile, "{\n '");
78     for (i = 0; (c = fgetc(infile)) != EOF; i++)
79     {
80         if (i && (i % 16) == 0) fprintf (outfile, "'\n '");
81         if (i % 16)  fprintf (outfile, " ");
82         fprintf(outfile, "%02X", c);
83     }
84     fprintf (outfile, "'\n}");
85
86     return 1;
87 }
88
89 int hex2bin(char c)
90 {
91     if (!isxdigit(c)) return -1024;
92     if (isdigit(c)) return c - '0';
93     return toupper(c) - 'A' + 10;
94 }
95
96 int extract_hexdump (FILE* outfile, FILE* infile)
97 {
98     int byte, c;
99
100     while ( (c = fgetc(infile)) != EOF && c != '}')
101     {
102         if (isspace(c) || c == '\'') continue;
103         byte = 16 * hex2bin(c);
104         c = fgetc(infile);
105         if (c == EOF) return 0;
106         byte += hex2bin(c);
107         if (byte < 0) return 0;
108         fputc(byte, outfile);
109     }
110     return 1;
111 }
112
113 const char* parse_marker(const char *line, time_t* last_updated)
114 {
115     static char res_file_name[PATH_MAX], *rpos, *wpos;
116     struct stat st;
117
118     if (!(rpos = strstr(line, "BINRES"))) return 0;
119     for (rpos += 6; *rpos && isspace(*rpos); rpos++) /**/;
120     for (wpos = res_file_name; *rpos && !isspace(*rpos); ) *wpos++ = *rpos++;
121     *wpos = 0;
122
123     *last_updated = (stat(res_file_name, &st) < 0) ? 0 : st.st_mtime;
124
125     return res_file_name;
126 }
127
128 int process_resources(const char* input_file_name, const char* specific_file_name, 
129                       int inserting, int force_processing, int verbose)
130 {
131     char buffer[2048], tmp_file_name[PATH_MAX];
132     const char *res_file_name;
133     time_t rc_last_update, res_last_update;
134     FILE *fin, *fres, *ftmp = 0;
135     struct stat st;
136     int fd, c;
137
138     if (!(fin = fopen(input_file_name, "r"))) return 0;
139     if (stat(input_file_name, &st) < 0) return 0;
140     rc_last_update = st.st_mtime;
141
142     if (inserting)
143     {
144         strcpy(tmp_file_name, input_file_name);
145         strcat(tmp_file_name, "-XXXXXX.temp");
146         if ((fd = mkstemps(tmp_file_name, 5)) == -1)
147         {
148             strcpy(tmp_file_name, "/tmp/bin2res-XXXXXX.temp");
149             if ((fd = mkstemps(tmp_file_name, 5)) == -1) return 0;
150         }
151         if (!(ftmp = fdopen(fd, "w"))) return 0;
152     }
153
154     for (c = EOF; fgets(buffer, sizeof(buffer), fin); c = EOF)
155     {
156         if (inserting) fprintf(ftmp, "%s", buffer);
157         if (!(res_file_name = parse_marker(buffer, &res_last_update))) continue;
158         if ( (specific_file_name && strcmp(specific_file_name, res_file_name)) ||
159              (!force_processing && ((rc_last_update < res_last_update) == !inserting)) )
160         {
161             if (verbose) printf("skipping '%s'\n", res_file_name);
162             continue;
163         }
164
165         if (verbose) printf("processing '%s'\n", res_file_name);
166         while ( (c = fgetc(fin)) != EOF && c != '{')
167             if (inserting) fputc(c, ftmp);
168         if (c == EOF) break;
169
170         if (!(fres = fopen(res_file_name, inserting ? "rb" : "wb"))) break;
171         if (inserting)
172         {
173             if (!insert_hexdump(ftmp, fres)) break;
174             while ( (c = fgetc(fin)) != EOF && c != '}') /**/;
175         }
176         else
177         {
178             if (!extract_hexdump(fres, fin)) break;
179         }
180         fclose(fres);
181     }
182
183     fclose(fin);
184
185     if (inserting)
186     {
187         fclose(ftmp);
188         if (c == EOF)
189         {
190             if (rename(tmp_file_name, input_file_name) < 0)
191             {
192                 /* try unlinking first, Windows rename is brain-damaged */
193                 if (unlink(input_file_name) < 0 || rename(tmp_file_name, input_file_name) < 0)
194                 {
195                     unlink(tmp_file_name);
196                     return 0;
197                 }
198             }
199         }
200         else unlink(tmp_file_name);
201     }
202
203     return c == EOF;
204 }
205
206 int main(int argc, char **argv)
207 {
208     int convert_dir = 0, optc;
209     int force_overwrite = 0, verbose = 0;
210     const char* input_file_name = 0;
211     const char* specific_file_name = 0;
212
213     while((optc = getopt(argc, argv, "axi:o:fhv")) != EOF)
214     {
215         switch(optc)
216         {
217         case 'a':
218         case 'x':
219             if (convert_dir) usage();
220             convert_dir = optc;
221         break;
222         case 'i':
223         case 'o':
224             if (specific_file_name) usage();
225             specific_file_name = optarg;
226             optc = ((optc == 'i') ? 'a' : 'x');
227             if (convert_dir && convert_dir != optc) usage();
228             convert_dir = optc;
229         break;
230         case 'f':
231             force_overwrite = 1;
232         break;
233         case 'v':
234             verbose = 1;
235         break;
236         case 'h':
237             printf(help);
238             exit(0);
239         break;
240         default:
241             usage();
242         }
243     }
244
245     if (optind + 1 != argc) usage();
246     input_file_name = argv[optind];
247
248     if (!convert_dir) usage();
249
250     if (!process_resources(input_file_name, specific_file_name, 
251                            convert_dir == 'a', force_overwrite, verbose))
252     {
253         perror("Processing failed");
254         exit(1);
255     }
256
257     return 0;
258 }