niansa-misc/wine
1
0
Fork 0
mirror of synced 2025-03-07 03:53:26 +01:00
Code Issues Projects Releases Packages Wiki Activity

widl: Add initial implementation of SLTG typelib generator.

Browse source 
Signed-off-by: Dmitry Timoshkov <dmitry@baikal.ru>
This commit is contained in:
Dmitry Timoshkov 2015-12-23 19:37:37 +08:00 • committed by Alexandre Julliard
parent 85d029e3b0
commit 0bffa32226
7 changed files with 563 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tools/widl/Makefile.in
View file

@ -21,7 +21,8 @@ SOURCES = \
widl.c \
widl.man.in \
wpp.c \
write_msft.c
write_msft.c \
write_sltg.c
widl_EXTRADEFS = \
-DINCLUDEDIR="\"${includedir}\"" \

7
tools/widl/register.c
View file

@ -316,7 +316,12 @@ void write_typelib_regscript( const statement_list_t *stmts )
if (count && !strendswith( typelib_name, ".res" ))
error( "Cannot store multiple typelibs into %s\n", typelib_name );
else
create_msft_typelib( stmt->u.lib );
{
if (do_old_typelib)
create_sltg_typelib( stmt->u.lib );
else
create_msft_typelib( stmt->u.lib );
}
count++;
}
if (count && strendswith( typelib_name, ".res" )) flush_output_resources( typelib_name );

1
tools/widl/typelib.h
View file

@ -83,4 +83,5 @@ enum VARENUM {
extern unsigned short get_type_vt(type_t *t);
extern int create_msft_typelib(typelib_t *typelib);
extern int create_sltg_typelib(typelib_t *typelib);
#endif

8
tools/widl/widl.c
View file

@ -59,6 +59,7 @@ static const char usage[] =
" --nostdinc Do not search the standard include path\n"
" --ns_prefix Prefix namespaces with ABI namespace\n"
" --oldnames Use old naming conventions\n"
" --oldtlb Generate typelib in the old format (SLTG)\n"
" -o, --output=NAME Set the output file name\n"
" -Otype Type of stubs to generate (-Os, -Oi, -Oif)\n"
" -p Generate proxy\n"
@ -98,6 +99,7 @@ int do_everything = 1;
static int preprocess_only = 0;
int do_header = 0;
int do_typelib = 0;
int do_old_typelib = 0;
int do_proxies = 0;
int do_client = 0;
int do_server = 0;
@ -153,6 +155,7 @@ enum {
DLLDATA_ONLY_OPTION,
LOCAL_STUBS_OPTION,
NOSTDINC_OPTION,
OLD_TYPELIB_OPTION,
PACKING_OPTION,
PREFIX_ALL_OPTION,
PREFIX_CLIENT_OPTION,
@ -179,6 +182,7 @@ static const struct long_option long_options[] = {
{ "nostdinc", 0, NOSTDINC_OPTION },
{ "ns_prefix", 0, RT_NS_PREFIX },
{ "oldnames", 0, OLDNAMES_OPTION },
{ "oldtlb", 0, OLD_TYPELIB_OPTION },
{ "output", 0, 'o' },
{ "packing", 1, PACKING_OPTION },
{ "prefix-all", 1, PREFIX_ALL_OPTION },
@ -259,6 +263,7 @@ static void set_everything(int x)
{
do_header = x;
do_typelib = x;
do_old_typelib = x;
do_proxies = x;
do_client = x;
do_server = x;
@ -619,6 +624,9 @@ static void option_callback( int optc, char *optarg )
do_everything = 0;
do_typelib = 1;
break;
case OLD_TYPELIB_OPTION:
do_old_typelib = 1;
break;
case 'T':
typelib_name = xstrdup(optarg);
break;

1
tools/widl/widl.h
View file

@ -39,6 +39,7 @@ extern int pedantic;
extern int do_everything;
extern int do_header;
extern int do_typelib;
extern int do_old_typelib;
extern int do_proxies;
extern int do_client;
extern int do_server;

2
tools/widl/widl.man.in
View file

@ -61,6 +61,8 @@ binary resource file containing the type library is generated instead.
.IP "\fB-L \fIpath\fR"
Add a directory to the library search path for imported typelibs. The
option can be specified multiple times.
.IP \fB--oldtlb\fR
Generate a type library in the old format (SLTG format).
.PP
.B UUID file options:
.IP "\fB-u\fR"

543
tools/widl/write_sltg.c Normal file
View file

@ -0,0 +1,543 @@
/*
* Typelib (SLTG) generation
*
* Copyright 2015 Dmitry Timoshkov
*
* 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <stdio.h>
#include <ctype.h>
#include <time.h>
#include "widl.h"
#include "windef.h"
#include "winbase.h"
#include "typelib.h"
#include "typelib_struct.h"
#include "utils.h"
#include "header.h"
#include "typetree.h"
static const GUID sltg_library_guid = { 0x204ff,0,0,{ 0xc0,0,0,0,0,0,0,0x46 } };
struct sltg_index
{
int size, allocated;
char *names;
};
struct sltg_name_table
{
int size, allocated;
char *names;
};
struct sltg_library
{
short name;
char *helpstring;
char *helpfile;
int helpcontext;
int syskind;
LCID lcid;
int libflags;
int version;
GUID uuid;
};
struct sltg_block
{
int length;
int index_string;
void *data;
};
struct sltg_typelib
{
typelib_t *typelib;
struct sltg_index index;
struct sltg_name_table name_table;
struct sltg_library library;
struct sltg_block *blocks;
int block_count;
int first_block;
short typeinfo_count;
};
static int add_index(struct sltg_index *index, const char *name)
{
int name_offset = index->size;
int new_size = index->size + strlen(name) + 1;
if (new_size > index->allocated)
{
index->allocated = index->allocated ? max(index->allocated * 2, new_size) : new_size;
index->names = xrealloc(index->names, index->allocated);
}
strcpy(index->names + index->size, name);
index->size = new_size;
return name_offset;
}
static void init_index(struct sltg_index *index)
{
static const char compobj[] = { 1,'C','o','m','p','O','b','j',0 };
index->size = 0;
index->allocated = 0;
index->names = NULL;
add_index(index, compobj);
}
static int add_name(struct sltg_name_table *name_table, const char *name)
{
int name_offset = name_table->size;
int new_size = name_table->size + strlen(name) + 1 + 8;
new_size = (new_size + 1) & ~1; /* align */
if (new_size > name_table->allocated)
{
name_table->allocated = name_table->allocated ? max(name_table->allocated * 2, new_size) : new_size;
name_table->names = xrealloc(name_table->names, name_table->allocated);
}
memset(name_table->names + name_table->size, 0xff, 8);
strcpy(name_table->names + name_table->size + 8, name);
name_table->size = new_size;
name_table->names[name_table->size - 1] = 0; /* clear alignment */
return name_offset;
}
static void init_name_table(struct sltg_name_table *name_table)
{
name_table->size = 0;
name_table->allocated = 0;
name_table->names = NULL;
}
static void init_library(struct sltg_typelib *sltg)
{
const attr_t *attr;
sltg->library.name = add_name(&sltg->name_table, sltg->typelib->name);
sltg->library.helpstring = NULL;
sltg->library.helpcontext = 0;
sltg->library.syskind = SYS_WIN32;
sltg->library.lcid = 0x0409;
sltg->library.libflags = 0;
sltg->library.version = 0;
sltg->library.helpfile = NULL;
memset(&sltg->library.uuid, 0, sizeof(sltg->library.uuid));
if (!sltg->typelib->attrs) return;
LIST_FOR_EACH_ENTRY(attr, sltg->typelib->attrs, const attr_t, entry)
{
const expr_t *expr;
switch (attr->type)
{
case ATTR_VERSION:
sltg->library.version = attr->u.ival;
break;
case ATTR_HELPSTRING:
sltg->library.helpstring = attr->u.pval;
break;
case ATTR_HELPFILE:
sltg->library.helpfile = attr->u.pval;
break;
case ATTR_UUID:
sltg->library.uuid = *(GUID *)attr->u.pval;
break;
case ATTR_HELPCONTEXT:
expr = attr->u.pval;
sltg->library.helpcontext = expr->cval;
break;
case ATTR_LIBLCID:
expr = attr->u.pval;
sltg->library.lcid = expr->cval;
break;
case ATTR_CONTROL:
sltg->library.libflags |= 0x02; /* LIBFLAG_FCONTROL */
break;
case ATTR_HIDDEN:
sltg->library.libflags |= 0x04; /* LIBFLAG_FHIDDEN */
break;
case ATTR_RESTRICTED:
sltg->library.libflags |= 0x01; /* LIBFLAG_FRESTRICTED */
break;
default:
break;
}
}
}
static void add_block(struct sltg_typelib *sltg, void *data, int length, const char *name)
{
sltg->blocks = xrealloc(sltg->blocks, sizeof(sltg->blocks[0]) * (sltg->block_count + 1));
sltg->blocks[sltg->block_count].length = length;
sltg->blocks[sltg->block_count].data = data;
sltg->blocks[sltg->block_count].index_string = add_index(&sltg->index, name);
sltg->block_count++;
}
static void add_library_block(struct sltg_typelib *typelib)
{
void *block;
short *p;
int size;
size = sizeof(short) * 9 + sizeof(int) * 3 + sizeof(GUID);
if (typelib->library.helpstring) size += strlen(typelib->library.helpstring);
if (typelib->library.helpfile) size += strlen(typelib->library.helpfile);
block = xmalloc(size);
p = block;
*p++ = 0x51cc; /* magic */
*p++ = 3; /* res02 */
*p++ = typelib->library.name;
*p++ = 0xffff; /* res06 */
if (typelib->library.helpstring)
{
*p++ = strlen(typelib->library.helpstring);
strcpy((char *)p, typelib->library.helpstring);
p = (short *)((char *)p + strlen(typelib->library.helpstring));
}
else
*p++ = 0xffff;
if (typelib->library.helpfile)
{
*p++ = strlen(typelib->library.helpfile);
strcpy((char *)p, typelib->library.helpfile);
p = (short *)((char *)p + strlen(typelib->library.helpfile));
}
else
*p++ = 0xffff;
*(int *)p = typelib->library.helpcontext;
p += 2;
*p++ = typelib->library.syskind;
*p++ = typelib->library.lcid;
*(int *)p = 0; /* res12 */
p += 2;
*p++ = typelib->library.libflags;
*(int *)p = typelib->library.version;
p += 2;
*(GUID *)p = typelib->library.uuid;
add_block(typelib, block, size, "dir");
}
static void add_typedef_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_typedef_typeinfo: %s not implemented\n", type->name);
}
static void add_module_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_module_typeinfo: %s not implemented\n", type->name);
}
static void add_interface_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_interface_typeinfo: %s not implemented\n", type->name);
}
static void add_structure_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_structure_typeinfo: %s not implemented\n", type->name);
}
static void add_enum_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_enum_typeinfo: %s not implemented\n", type->name);
}
static void add_union_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_union_typeinfo: %s not implemented\n", type->name);
}
static void add_coclass_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
error("add_coclass_typeinfo: %s not implemented\n", type->name);
}
static void add_type_typeinfo(struct sltg_typelib *typelib, type_t *type)
{
chat("add_type_typeinfo: adding %s, type %d\n", type->name, type_get_type(type));
switch (type_get_type(type))
{
case TYPE_INTERFACE:
add_interface_typeinfo(typelib, type);
break;
case TYPE_STRUCT:
add_structure_typeinfo(typelib, type);
break;
case TYPE_ENUM:
add_enum_typeinfo(typelib, type);
break;
case TYPE_UNION:
add_union_typeinfo(typelib, type);
break;
case TYPE_COCLASS:
add_coclass_typeinfo(typelib, type);
break;
case TYPE_BASIC:
case TYPE_POINTER:
break;
default:
error("add_type_typeinfo: unhandled type %d for %s\n", type_get_type(type), type->name);
break;
}
}
static void add_statement(struct sltg_typelib *typelib, const statement_t *stmt)
{
switch(stmt->type)
{
case STMT_LIBRARY:
case STMT_IMPORT:
case STMT_PRAGMA:
case STMT_CPPQUOTE:
case STMT_DECLARATION:
/* not included in typelib */
break;
case STMT_IMPORTLIB:
/* not processed here */
break;
case STMT_TYPEDEF:
{
typeref_t *ref;
if (!stmt->u.type_list)
break;
LIST_FOR_EACH_ENTRY(ref, stmt->u.type_list, typeref_t, entry)
{
/* if the type is public then add the typedef, otherwise attempt
* to add the aliased type */
if (is_attr(ref->type->attrs, ATTR_PUBLIC))
add_typedef_typeinfo(typelib, ref->type);
else
add_type_typeinfo(typelib, type_alias_get_aliasee_type(ref->type));
}
break;
}
case STMT_MODULE:
add_module_typeinfo(typelib, stmt->u.type);
break;
case STMT_TYPE:
case STMT_TYPEREF:
{
type_t *type = stmt->u.type;
add_type_typeinfo(typelib, type);
break;
}
default:
error("add_statement: unhandled statement type %d\n", stmt->type);
break;
}
}
static void sltg_write_header(struct sltg_typelib *sltg, int *library_block_start)
{
char pad[0x40];
struct sltg_header
{
int magic;
short block_count;
short res06;
short size_of_index;
short first_blk;
GUID uuid;
int res1c;
int res20;
} header;
struct sltg_block_entry
{
int length;
short index_string;
short next;
} entry;
int i;
header.magic = 0x47544c53;
header.block_count = sltg->block_count + 1; /* 1-based */
header.res06 = 9;
header.size_of_index = sltg->index.size;
header.first_blk = 1; /* 1-based */
header.uuid = sltg_library_guid;
header.res1c = 0x00000044;
header.res20 = 0xffff0000;
put_data(&header, sizeof(header));
/* library block is written separately */
for (i = 0; i < sltg->block_count - 1; i++)
{
entry.length = sltg->blocks[i].length;
entry.index_string = sltg->blocks[i].index_string;
entry.next = header.first_blk + i;
put_data(&entry, sizeof(entry));
}
/* library block length includes helpstrings and name table */
entry.length = sltg->blocks[sltg->block_count - 1].length + 0x40 /* pad after library block */ +
sizeof(sltg->typeinfo_count) + 4 /* library block offset */ + 6 /* dummy help strings */ +
12 /* name table header */ + 0x200 /* name table hash */ + sltg->name_table.size;
entry.index_string = sltg->blocks[sltg->block_count - 1].index_string;
entry.next = 0;
put_data(&entry, sizeof(entry));
put_data(sltg->index.names, sltg->index.size);
memset(pad, 0, 9);
put_data(pad, 9);
/* library block is written separately */
for (i = 0; i < sltg->block_count - 1; i++)
{
chat("sltg_write_header: writing block %d: %d bytes\n", i, sltg->blocks[i].length);
put_data(sltg->blocks[i].data, sltg->blocks[i].length);
}
/* library block */
*library_block_start = output_buffer_pos;
put_data(sltg->blocks[sltg->block_count - 1].data, sltg->blocks[sltg->block_count - 1].length);
memset(pad, 0xff, 0x40);
put_data(pad, 0x40);
}
static void sltg_write_typeinfo(struct sltg_typelib *typelib)
{
put_data(&typelib->typeinfo_count, sizeof(typelib->typeinfo_count));
}
static void sltg_write_helpstrings(struct sltg_typelib *typelib)
{
static const char dummy[6];
put_data(dummy, sizeof(dummy));
}
static void sltg_write_nametable(struct sltg_typelib *typelib)
{
static const short dummy[6] = { 0xffff,1,2,0xff00,0xffff,0xffff };
char pad[0x200];
put_data(dummy, sizeof(dummy));
memset(pad, 0xff, 0x200);
put_data(pad, 0x200);
put_data(&typelib->name_table.size, sizeof(typelib->name_table.size));
put_data(typelib->name_table.names, typelib->name_table.size);
}
static void sltg_write_remainder(void)
{
static const short dummy1[] = { 1,0xfffe,0x0a03,0,0xffff,0xffff };
static const short dummy2[] = { 0xffff,0xffff,0x0200,0,0,0 };
static const char dummy3[] = { 0xf4,0x39,0xb2,0x71,0,0,0,0,0,0,0,0,0,0,0,0 };
static const char TYPELIB[] = { 8,0,0,0,'T','Y','P','E','L','I','B',0 };
int pad;
pad = 0x01ffff01;
put_data(&pad, sizeof(pad));
pad = 0;
put_data(&pad, sizeof(pad));
put_data(dummy1, sizeof(dummy1));
put_data(&sltg_library_guid, sizeof(sltg_library_guid));
put_data(TYPELIB, sizeof(TYPELIB));
put_data(dummy2, sizeof(dummy2));
put_data(dummy3, sizeof(dummy3));
}
static void save_all_changes(struct sltg_typelib *typelib)
{
int library_block_start;
int *name_table_offset;
sltg_write_header(typelib, &library_block_start);
sltg_write_typeinfo(typelib);
name_table_offset = (int *)(output_buffer + output_buffer_pos);
put_data(&library_block_start, sizeof(library_block_start));
sltg_write_helpstrings(typelib);
*name_table_offset = output_buffer_pos - library_block_start;
sltg_write_nametable(typelib);
sltg_write_remainder();
if (strendswith(typelib_name, ".res")) /* create a binary resource file */
{
char typelib_id[13] = "#1";
expr_t *expr = get_attrp(typelib->typelib->attrs, ATTR_ID);
if (expr)
sprintf(typelib_id, "#%d", expr->cval);
add_output_to_resources("TYPELIB", typelib_id);
if (strendswith(typelib_name, "_t.res")) /* add typelib registration */
output_typelib_regscript(typelib->typelib);
}
else flush_output_buffer(typelib_name);
}
int create_sltg_typelib(typelib_t *typelib)
{
struct sltg_typelib sltg;
const statement_t *stmt;
sltg.typelib = typelib;
sltg.typeinfo_count = 0;
sltg.blocks = NULL;
sltg.block_count = 0;
sltg.first_block = 1;
init_index(&sltg.index);
init_name_table(&sltg.name_table);
init_library(&sltg);
add_library_block(&sltg);
if (typelib->stmts)
LIST_FOR_EACH_ENTRY(stmt, typelib->stmts, const statement_t, entry)
add_statement(&sltg, stmt);
save_all_changes(&sltg);
return 1;
}