2 * Builtin dlls resource support
4 * Copyright 2000 Alexandre Julliard
14 #include <sys/types.h>
17 #ifdef HAVE_SYS_MMAN_H
24 #define ALIGNMENT 2 /* alignment for resource data */
25 #define ALIGN_MASK ((1 << ALIGNMENT) - 1)
27 /* Unicode string or integer id */
30 char *str
; /* ptr to string */
31 WORD id
; /* integer id if str is NULL */
34 /* descriptor for a resource */
37 struct string_id type
;
38 struct string_id name
;
40 unsigned int data_size
;
44 /* type level of the resource tree */
47 const struct string_id
*type
; /* type name */
48 const struct resource
*res
; /* first resource of this type */
49 unsigned int nb_names
; /* total number of names */
52 static struct resource
*resources
;
53 static int nb_resources
;
55 static struct res_type
*res_types
;
56 static int nb_types
; /* total number of types */
58 static const unsigned char *file_pos
; /* current position in resource file */
59 static const unsigned char *file_end
; /* end of resource file */
60 static const char *file_name
; /* current resource file name */
63 inline static struct resource
*add_resource(void)
65 resources
= xrealloc( resources
, (nb_resources
+ 1) * sizeof(*resources
) );
66 return &resources
[nb_resources
++];
69 static struct res_type
*add_type( const struct resource
*res
)
71 struct res_type
*type
;
72 res_types
= xrealloc( res_types
, (nb_types
+ 1) * sizeof(*res_types
) );
73 type
= &res_types
[nb_types
++];
74 type
->type
= &res
->type
;
80 /* get the next byte from the current resource file */
81 static WORD
get_byte(void)
83 unsigned char ret
= *file_pos
++;
84 if (file_pos
> file_end
) fatal_error( "%s is a truncated/corrupted file\n", file_name
);
88 /* get the next word from the current resource file */
89 static WORD
get_word(void)
91 /* might not be aligned */
92 #ifdef WORDS_BIGENDIAN
93 unsigned char high
= get_byte();
94 unsigned char low
= get_byte();
96 unsigned char low
= get_byte();
97 unsigned char high
= get_byte();
99 return low
| (high
<< 8);
102 /* get the next dword from the current resource file */
103 static DWORD
get_dword(void)
105 #ifdef WORDS_BIGENDIAN
106 WORD high
= get_word();
107 WORD low
= get_word();
109 WORD low
= get_word();
110 WORD high
= get_word();
112 return low
| (high
<< 16);
115 /* get a string from the current resource file */
116 static void get_string( struct string_id
*str
)
118 if (*file_pos
== 0xff)
120 get_byte(); /* skip the 0xff */
122 str
->id
= get_word();
126 char *p
= xmalloc( (strlen(file_pos
) + 1) );
129 while ((*p
++ = get_byte()));
133 /* load the next resource from the current file */
134 static void load_next_resource(void)
136 struct resource
*res
= add_resource();
138 get_string( &res
->type
);
139 get_string( &res
->name
);
140 res
->memopt
= get_word();
141 res
->data_size
= get_dword();
142 res
->data
= file_pos
;
143 file_pos
+= res
->data_size
;
144 if (file_pos
> file_end
) fatal_error( "%s is a truncated/corrupted file\n", file_name
);
147 /* load a Win16 .res file */
148 void load_res16_file( const char *name
)
154 if ((fd
= open( name
, O_RDONLY
)) == -1) fatal_perror( "Cannot open %s", name
);
155 if ((fstat( fd
, &st
) == -1)) fatal_perror( "Cannot stat %s", name
);
156 if (!st
.st_size
) fatal_error( "%s is an empty file\n" );
158 if ((base
= mmap( NULL
, st
.st_size
, PROT_READ
, MAP_PRIVATE
, fd
, 0 )) == (void*)-1)
159 #endif /* HAVE_MMAP */
161 base
= xmalloc( st
.st_size
);
162 if (read( fd
, base
, st
.st_size
) != st
.st_size
)
163 fatal_error( "Cannot read %s\n", name
);
168 file_end
= file_pos
+ st
.st_size
;
169 while (file_pos
< file_end
) load_next_resource();
172 /* compare two strings/ids */
173 static int cmp_string( const struct string_id
*str1
, const struct string_id
*str2
)
177 if (!str2
->str
) return str1
->id
- str2
->id
;
178 return 1; /* an id compares larger than a string */
180 if (!str2
->str
) return -1;
181 return strcasecmp( str1
->str
, str2
->str
);
184 /* compare two resources for sorting the resource directory */
185 /* resources are stored first by type, then by name */
186 static int cmp_res( const void *ptr1
, const void *ptr2
)
188 const struct resource
*res1
= ptr1
;
189 const struct resource
*res2
= ptr2
;
192 if ((ret
= cmp_string( &res1
->type
, &res2
->type
))) return ret
;
193 return cmp_string( &res1
->name
, &res2
->name
);
196 /* build the 2-level (type,name) resource tree */
197 static void build_resource_tree(void)
200 struct res_type
*type
= NULL
;
202 qsort( resources
, nb_resources
, sizeof(*resources
), cmp_res
);
204 for (i
= 0; i
< nb_resources
; i
++)
206 if (!i
|| cmp_string( &resources
[i
].type
, &resources
[i
-1].type
)) /* new type */
207 type
= add_type( &resources
[i
] );
212 inline static void put_byte( unsigned char **buffer
, unsigned char val
)
217 inline static void put_word( unsigned char **buffer
, WORD val
)
219 #ifdef WORDS_BIGENDIAN
220 put_byte( buffer
, HIBYTE(val
) );
221 put_byte( buffer
, LOBYTE(val
) );
223 put_byte( buffer
, LOBYTE(val
) );
224 put_byte( buffer
, HIBYTE(val
) );
228 /* output a string preceded by its length */
229 static void output_string( unsigned char **buffer
, const char *str
)
231 int len
= strlen(str
);
232 put_byte( buffer
, len
);
233 while (len
--) put_byte( buffer
, *str
++ );
236 /* output the resource data */
237 int output_res16_data( FILE *outfile
)
239 const struct resource
*res
;
240 unsigned char *buffer
, *p
;
243 if (!nb_resources
) return 0;
245 for (i
= total
= 0, res
= resources
; i
< nb_resources
; i
++, res
++)
246 total
+= (res
->data_size
+ ALIGN_MASK
) & ~ALIGN_MASK
;
248 buffer
= p
= xmalloc( total
);
249 for (i
= 0, res
= resources
; i
< nb_resources
; i
++, res
++)
251 memcpy( p
, res
->data
, res
->data_size
);
253 while ((int)p
& ALIGN_MASK
) *p
++ = 0;
255 dump_bytes( outfile
, buffer
, total
, "resource_data", 1 );
260 /* output the resource definitions */
261 int output_res16_directory( unsigned char *buffer
)
263 int i
, offset
, res_offset
= 0;
265 const struct res_type
*type
;
266 const struct resource
*res
;
267 unsigned char *start
= buffer
;
269 build_resource_tree();
271 offset
= 4; /* alignment + terminator */
272 offset
+= nb_types
* 8; /* typeinfo structures */
273 offset
+= nb_resources
* 12; /* nameinfo structures */
275 put_word( &buffer
, ALIGNMENT
);
277 /* type and name structures */
279 for (i
= 0, type
= res_types
; i
< nb_types
; i
++, type
++)
283 put_word( &buffer
, offset
);
284 offset
+= strlen(type
->type
->str
) + 1;
287 put_word( &buffer
, type
->type
->id
| 0x8000 );
289 put_word( &buffer
, type
->nb_names
);
290 put_word( &buffer
, 0 );
291 put_word( &buffer
, 0 );
293 for (j
= 0, res
= type
->res
; j
< type
->nb_names
; j
++, res
++)
295 put_word( &buffer
, res_offset
>> ALIGNMENT
);
296 put_word( &buffer
, (res
->data_size
+ ALIGN_MASK
) >> ALIGNMENT
);
297 put_word( &buffer
, res
->memopt
);
300 put_word( &buffer
, offset
);
301 offset
+= strlen(res
->name
.str
) + 1;
304 put_word( &buffer
, res
->name
.id
| 0x8000 );
305 put_word( &buffer
, 0 );
306 put_word( &buffer
, 0 );
307 res_offset
+= (res
->data_size
+ ALIGN_MASK
) & ~ALIGN_MASK
;
310 put_word( &buffer
, 0 ); /* terminator */
314 for (i
= 0, type
= res_types
; i
< nb_types
; i
++, type
++)
316 if (type
->type
->str
) output_string( &buffer
, type
->type
->str
);
317 for (j
= 0, res
= type
->res
; j
< type
->nb_names
; j
++, res
++)
319 if (res
->name
.str
) output_string( &buffer
, res
->name
.str
);
322 put_byte( &buffer
, 0 ); /* names terminator */
323 if ((buffer
- start
) & 1) put_byte( &buffer
, 0 ); /* align on word boundary */
325 return buffer
- start
;