Sweden-Number/tools/wrc/readres.c

388 lines
8.9 KiB
C

/*
* Read a .res file and create a resource-tree
*
* Copyright 1998 Bertho A. Stultiens
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include "wrc.h"
#include "readres.h"
#include "newstruc.h"
#include "utils.h"
#include "genres.h"
struct resheader32 {
DWORD ressize; /* 0 */
DWORD hdrsize; /* 0x20 */
WORD restype1; /* 0xffff */
WORD restype2; /* 0 */
WORD resname1; /* 0xffff */
WORD resname2; /* 0 */
DWORD dversion; /* 0 */
WORD memopt; /* 0 */
WORD language; /* 0 */
DWORD version; /* 0 */
DWORD characts; /* 0 */
} emptyheader = {0, 0x20, 0xffff, 0, 0xffff, 0, 0, 0, 0, 0, 0},
emptyheaderSWAPPED = {0, BYTESWAP_DWORD(0x20), 0xffff, 0, 0xffff, 0, 0, 0, 0, 0, 0};
/*
*****************************************************************************
* Function :
* Syntax :
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
/*
*****************************************************************************
* Function :
* Syntax :
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
/*
*****************************************************************************
* Function :
* Syntax :
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
int read_data(FILE *fp, size_t size, void *buf)
{
unsigned int r;
int pos = ftell(fp);
r = fread(buf, 1, size, fp);
if(r == size)
return 0;
if(r == 0 && ftell(fp) - pos > 0)
return 1;
else
return -1;
}
/*
*****************************************************************************
* Function :
* Syntax :
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
enum res_e res_type_from_id(name_id_t *nid)
{
if(nid->type == name_str)
return res_usr;
if(nid->type != name_ord)
internal_error(__FILE__, __LINE__, "Invalid name_id descriptor %d", nid->type);
switch(nid->name.i_name)
{
case WRC_RT_CURSOR: return res_cur;
case WRC_RT_BITMAP: return res_bmp;
case WRC_RT_ICON: return res_ico;
case WRC_RT_MENU: return res_men;
case WRC_RT_DIALOG: return res_dlg;
case WRC_RT_STRING: return res_stt;
case WRC_RT_FONTDIR: return res_fntdir;
case WRC_RT_FONT: return res_fnt;
case WRC_RT_ACCELERATOR: return res_acc;
case WRC_RT_RCDATA: return res_rdt;
case WRC_RT_MESSAGETABLE: return res_msg;
case WRC_RT_GROUP_CURSOR: return res_curg;
case WRC_RT_GROUP_ICON: return res_icog;
case WRC_RT_VERSION: return res_ver;
case WRC_RT_TOOLBAR: return res_toolbar;
default:
case WRC_RT_DLGINCLUDE:
case WRC_RT_PLUGPLAY:
case WRC_RT_VXD:
case WRC_RT_ANICURSOR:
case WRC_RT_ANIICON:
warning("Cannot be sure of resource type, using usertype settings");
return res_usr;
}
}
/*
*****************************************************************************
* Function :
* Syntax :
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
#define get_word(idx) (*((WORD *)(&res->data[idx])))
#define get_dword(idx) (*((DWORD *)(&res->data[idx])))
static resource_t *read_res32(FILE *fp)
{
static char wrong_format[] = "Wrong resfile format (32bit)";
DWORD ressize;
DWORD hdrsize;
DWORD totsize;
WORD memopt;
WORD language;
int err;
res_t *res;
resource_t *rsc;
resource_t *tail = NULL;
resource_t *list = NULL;
name_id_t *type = NULL;
name_id_t *name = NULL;
int idx;
enum res_e res_type;
user_t *usrres;
while(1)
{
/* Get headersize and resource size */
err = read_data(fp, sizeof(ressize), &ressize);
if(err < 0)
break;
else if(err > 0)
error(wrong_format);
err = read_data(fp, sizeof(hdrsize), &hdrsize);
if(err)
error(wrong_format);
/* Align sizes and compute total size */
totsize = hdrsize;
if(hdrsize & 3)
{
warning("Hu? .res header needed alignment (anything can happen now)");
totsize += 4 - (hdrsize & 3);
}
totsize += ressize;
if(ressize & 3)
totsize += 4 - (ressize & 3);
/* Read in entire data-block */
fseek(fp, -8, SEEK_CUR);
res = new_res();
if(res->allocsize < totsize)
grow_res(res, totsize - res->allocsize + 8);
err = read_data(fp, totsize, res->data);
if(err)
error(wrong_format);
res->dataidx = hdrsize;
res->size = hdrsize + ressize;
/* Analyse the content of the header */
idx = 8;
/* Get restype */
if(get_word(idx) == 0xffff)
{
idx += sizeof(WORD);
type = new_name_id();
type->type = name_ord;
type->name.i_name = get_word(idx);
idx += sizeof(WORD);
}
else if(get_word(idx) == 0)
{
error("ResType name has zero length (32 bit)");
}
else
{
int tag = idx;
string_t *str;
while(1)
{
idx += sizeof(WORD);
if(!get_word(idx))
break;
}
idx += sizeof(WORD);
str = new_string();
str->type = str_unicode;
str->size = (idx - tag) / 2;
str->str.wstr = (short *)xmalloc(idx-tag+2);
memcpy(str->str.wstr, &res->data[tag], idx-tag);
str->str.wstr[str->size] = 0;
type = new_name_id();
type->type = name_str;
type->name.s_name = str;
}
/* Get resname */
if(get_word(idx) == 0xffff)
{
idx += sizeof(WORD);
name = new_name_id();
name->type = name_ord;
name->name.i_name = get_word(idx);
idx += sizeof(WORD);
}
else if(get_word(idx) == 0)
{
error("ResName name has zero length (32 bit)");
}
else
{
int tag = idx;
string_t *str;
while(1)
{
idx += sizeof(WORD);
if(!get_word(idx))
break;
}
idx += sizeof(WORD);
str = new_string();
str->type = str_unicode;
str->size = (idx - tag) / 2;
str->str.wstr = (short *)xmalloc(idx-tag+2);
memcpy(str->str.wstr, &res->data[tag], idx-tag);
str->str.wstr[str->size] = 0;
name = new_name_id();
name->type = name_str;
name->name.s_name = str;
}
/* align */
if(idx & 0x3)
idx += 4 - (idx & 3);
idx += sizeof(DWORD); /* Skip DataVersion */
memopt = get_word(idx);
idx += sizeof(WORD);
language = get_word(idx);
/* Build a resource_t list */
res_type = res_type_from_id(type);
if(res_type == res_usr)
{
/* User-type has custom ResType for .[s|h] generation */
usrres = new_user(type, NULL, new_int(memopt));
}
else
usrres = NULL;
rsc = new_resource(res_type,
usrres,
memopt,
new_language(PRIMARYLANGID(language),
SUBLANGID(language)));
rsc->binres = res;
rsc->name = name;
rsc->c_name = make_c_name(get_c_typename(res_type), name, rsc->lan);
if(!list)
{
list = rsc;
tail = rsc;
}
else
{
rsc->prev = tail;
tail->next = rsc;
tail = rsc;
}
}
return list;
}
/*
*****************************************************************************
* Function :
* Syntax :
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
static resource_t *read_res16(FILE *fp)
{
internal_error(__FILE__, __LINE__, "Can't yet read 16 bit .res files");
return NULL;
}
/*
*****************************************************************************
* Function : read_resfile
* Syntax : resource_t *read_resfile(char *inname)
* Input :
* Output :
* Description :
* Remarks :
*****************************************************************************
*/
resource_t *read_resfile(char *inname)
{
FILE *fp;
struct resheader32 rh;
int is32bit = 1;
resource_t *top;
fp = fopen(inname, "rb");
if(!fp)
error("Could not open inputfile %s", inname);
/* Determine 16 or 32 bit .res file */
if(fread(&rh, 1, sizeof(rh), fp) != sizeof(rh))
is32bit = 0;
else
{
if(!memcmp(&emptyheader, &rh, sizeof(rh)))
is32bit = 1;
else if(!memcmp(&emptyheaderSWAPPED, &rh, sizeof(rh)))
error("Binary .res-file has its byteorder swapped");
else
is32bit = 0;
}
if(is32bit && !win32)
error("Cannot convert 32-bit .res-file into 16-bit resources (and will, hopefully never, implement it)");
if(!is32bit && win32)
error("Cannot (yet) convert 16-bit .res-file into 32-bit resources");
if(!is32bit)
{
fseek(fp, 0, SEEK_SET);
top = read_res16(fp);
}
else
{
top = read_res32(fp);
}
fclose(fp);
return top;
}