dosmod protocol revision 3, featuring MPROTECT and ENTERIDLE.
[wine] / tools / bin2res.c
1 /************************************************
2  *
3  * Converting binary resources from/to *.rc files
4  *
5  * Copyright 1999 Juergen Schmied
6  *
7  * 11/99 first release
8  */
9
10 #include "config.h"
11
12 #ifdef HAVE_SYS_PARAM_H
13 # include <sys/param.h>
14 #endif
15 #include <sys/types.h>
16 #include <sys/stat.h>
17
18 #include <ctype.h>
19 #include <string.h>
20
21 #include <stdio.h>
22 #include <stdlib.h>
23
24 #include <fcntl.h>
25 #include <unistd.h>
26 #ifdef HAVE_SYS_MMAN_H
27 # include <sys/mman.h>
28 #endif
29 #include "winuser.h"
30
31 extern char*   g_lpstrFileName;
32
33 /* global options */
34
35 char*   g_lpstrFileName = NULL;
36 char*   g_lpstrInputFile = NULL;
37 int     b_to_binary = 0;
38 int     b_force_overwrite = 0;
39 LPBYTE p_in_file = NULL;
40
41 static char*    errorOpenFile = "Unable to open file.\n";
42 static char*    errorRCFormat = "Unexpexted syntax in rc file line %i\n";
43
44 void usage(void)
45 {
46     printf("Usage: bin2res [-d bin] [input file]\n");
47     printf("  -d bin convert a *.res back to a binary\n");
48     printf("  -f force overwriting newer files\n");
49     exit(-1);
50 }
51
52 void parse_options(int argc, char **argv)
53 {
54   int i;
55
56   switch( argc )
57   {
58     case 2:
59          g_lpstrInputFile = argv[1];
60          break;
61
62     case 3:
63     case 4:
64     case 5:
65          for( i = 1; i < argc - 1; i++ )
66          {
67            if( argv[i][0] != '-' ||
68                strlen(argv[i]) != 2 ) break;
69
70            if( argv[i][1] == 'd')
71            {
72              if (strcmp ("bin", argv[i+1])==0)
73              {
74                b_to_binary =1;
75                i++;
76              }
77              else
78              {
79                usage();
80              }
81              
82            }
83            else if ( argv[i][1] == 'f')
84            {
85              b_force_overwrite = 1;
86            }
87            else
88            {
89              usage();
90            }
91          } 
92          if( i == argc - 1 )
93          {
94            g_lpstrInputFile = argv[i];
95            break;
96          }
97     default: usage();
98   }
99 }
100
101 int insert_hex (char * infile, FILE * outfile)
102 {
103         int i;
104         int             fd;
105         struct stat     st;
106
107         if( (fd = open( infile, O_RDONLY))==-1 ) 
108         {
109           fprintf(stderr, errorOpenFile );
110           exit(1);
111         }
112         if ((fstat(fd, &st) == -1) || (p_in_file = mmap(NULL, st.st_size, PROT_READ, MAP_PRIVATE, fd, 0)) == (void *)-1)
113         {
114           fprintf(stderr, errorOpenFile );
115           close(fd);
116           exit(1);
117         }
118
119         fprintf (outfile, "{\n '");
120         i = 0;
121         while (1)
122         {
123           fprintf(outfile, "%02X", p_in_file[i]);
124           if (++i >= st.st_size) break;
125           fprintf(outfile, "%s", (i == (i & 0xfffffff0)) ? "'\n '" :" ");
126         }
127         fprintf (outfile, "'\n}");
128         munmap(p_in_file, st.st_size);
129         close(fd);
130         return 1;       
131 }
132
133 int convert_to_res ()
134 {
135         FILE    *fin, *ftemp;
136         char    buffer[255];
137         char    infile[255];
138         char    tmpfile[L_tmpnam];
139         char    *pos;
140         int     c, len;
141         struct stat     st;
142         int line = 0;
143         time_t  tinput;
144         long startpos, endpos;
145
146         strcpy( tmpfile, g_lpstrInputFile );
147         strcat( tmpfile, "-tmp" );
148         /* FIXME: should use better tmp name and create with O_EXCL */
149         if( (ftemp = fopen( tmpfile, "w")) == NULL ) goto error_open_file;
150         
151         if( (fin = fopen( g_lpstrInputFile, "r")) == NULL || stat(g_lpstrInputFile, &st)) goto error_open_file;
152         tinput = st.st_ctime;
153         
154         while ( NULL != fgets(buffer, 255, fin))
155         {
156           fputs(buffer, ftemp);
157           line++;
158           if ( (pos = strstr(buffer, "BINRES")) != NULL)
159           {
160             /* get the out-file name */
161             len = 0; pos += 6; startpos=0; endpos=0;
162             while ( *pos == ' ') pos++;
163             while ( pos[len] != ' ') len++;
164             strncpy(infile, pos, len);
165             infile[len]=0;
166             
167             if ( (!stat(infile, &st) && st.st_ctime > tinput) || b_force_overwrite)
168             {
169               /* write a output file */
170               printf("[%s:c]", infile);
171               while((c = fgetc(fin))!='{' && c != EOF) fputc(c, ftemp);
172               if (c == EOF ) goto error_rc_format;
173               while((c = fgetc(fin))!='}' && c != EOF);
174               if (c == EOF ) goto error_rc_format;
175
176               insert_hex(infile, ftemp);
177             }
178             else
179             {
180               printf("[%s:s]", infile);
181             }
182           }
183         }
184         
185         fclose(fin);
186         fclose(ftemp);
187         if (rename(tmpfile, g_lpstrInputFile) == -1)
188         {
189             perror("rename");
190             unlink(tmpfile);
191             return 0;
192         }
193         return 1;       
194
195 error_open_file:
196         fprintf(stderr, errorOpenFile );
197         return 0;
198
199 error_rc_format:        
200         fprintf(stderr, errorRCFormat, line);
201         return 0;
202 }
203
204 int convert_to_bin()
205 {
206         FILE    *fin, *fout;
207         char    buffer[255];
208         char    outfile[255];
209         char    *pos;
210         int     len, index, in_resource;
211         unsigned int    byte;
212         struct stat     st;
213         int line = 0;
214         time_t  tinput;
215                 
216         if( (fin = fopen( g_lpstrInputFile, "r")) == NULL || stat(g_lpstrInputFile, &st)) goto error_open_file;
217         tinput = st.st_ctime;
218         
219         while ( NULL != fgets(buffer, 255, fin))
220         {
221           line++;
222           if ( (pos = strstr(buffer, "BINRES")) != NULL)
223           {
224             /* get the out-file name */
225             len = 0; pos += 6;
226             while ( *pos == ' ') pos++;
227             while ( pos[len] != ' ') len++;
228             strncpy(outfile, pos, len);
229             outfile[len]=0;
230             
231             if ( stat(outfile, &st) || st.st_ctime < tinput || b_force_overwrite)
232             {
233               /* write a output file */
234               printf("[%s:c]", outfile);
235               if ( (fout = fopen( outfile, "w")) == NULL) goto error_open_file;
236
237               in_resource = 0;
238               while (1)
239               {
240                 if ( NULL == fgets(buffer, 255, fin)) goto error_rc_format;
241                 line++;
242
243                 /* parse a line */
244                 for ( index = 0; buffer[index] != 0; index++ )
245                 {
246                   if ( ! in_resource )
247                   {
248                     if ( buffer[index] == '{' ) in_resource = 1;
249                     continue;
250                   }
251
252                   if ( buffer[index] == ' ' || buffer[index] == '\''|| buffer[index] == '\n' ) continue;
253                   if ( buffer[index] == '}' ) goto end_of_resource;
254                   if ( ! isxdigit(buffer[index])) goto error_rc_format;
255                   index += sscanf(&buffer[index], "%02x", &byte);
256                   fputc(byte, fout);
257                 }  
258               }
259               fclose(fout);
260             }
261             else
262             {
263               printf("[%s:s]", outfile);
264             }
265 end_of_resource:            
266           }
267         }
268         
269         fclose(fin);
270         return 1;       
271
272 error_open_file:
273         fprintf(stderr, errorOpenFile );
274         return 0;
275
276 error_rc_format:        
277         fprintf(stderr, errorRCFormat, line);
278         return 0;
279 }
280
281 int main(int argc, char **argv)
282 {
283         parse_options( argc, argv);
284
285         if (b_to_binary == 0)
286         {
287           convert_to_res();
288         }
289         else
290         {
291           convert_to_bin();
292         }
293         printf("\n");
294         return 0;
295 }