4 * Copyright 2004 Ove Kaaven
5 * Copyright 2006 Jacek Caban for CodeWeavers
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #include "wine/port.h"
35 #define NONAMELESSUNION
36 #define NONAMELESSSTRUCT
38 #include <host/typedefs.h>
45 #include "widltypes.h"
46 #include "typelib_struct.h"
50 static typelib_t
*typelib
;
52 type_t
*duptype(type_t
*t
, int dupname
)
54 type_t
*d
= alloc_type();
57 if (dupname
&& t
->name
)
58 d
->name
= xstrdup(t
->name
);
64 type_t
*alias(type_t
*t
, const char *name
)
66 type_t
*a
= duptype(t
, 0);
68 a
->name
= xstrdup(name
);
69 a
->kind
= TKIND_ALIAS
;
76 int is_ptr(const type_t
*t
)
78 unsigned char c
= t
->type
;
85 int is_array(const type_t
*t
)
95 case RPC_FC_BOGUS_ARRAY
:
102 /* List of oleauto types that should be recognized by name.
103 * (most of) these seem to be intrinsic types in mktyplib. */
105 static const struct oatype
{
112 {"DECIMAL", VT_DECIMAL
},
113 {"HRESULT", VT_HRESULT
},
115 {"LPWSTR", VT_LPWSTR
},
117 {"VARIANT", VT_VARIANT
},
118 {"VARIANT_BOOL", VT_BOOL
}
120 #define NTYPES (sizeof(oatypes)/sizeof(oatypes[0]))
121 #define KWP(p) ((const struct oatype *)(p))
123 static int kw_cmp_func(const void *s1
, const void *s2
)
125 return strcmp(KWP(s1
)->kw
, KWP(s2
)->kw
);
128 static unsigned short builtin_vt(const type_t
*t
)
130 const char *kw
= t
->name
;
132 const struct oatype
*kwp
;
135 kwp
= bsearch(&key
, oatypes
, NTYPES
, sizeof(oatypes
[0]), kw_cmp_func
);
139 for (kwp
=NULL
, i
=0; i
< NTYPES
; i
++)
140 if (!kw_cmp_func(&key
, &oatypes
[i
])) {
149 if (is_string_type (t
->attrs
, t
))
150 switch (t
->ref
->type
)
152 case RPC_FC_CHAR
: return VT_LPSTR
;
153 case RPC_FC_WCHAR
: return VT_LPWSTR
;
159 static int match(const char*n
, const char*m
)
162 return !strcmp(n
, m
);
165 unsigned short get_type_vt(type_t
*t
)
169 chat("get_type_vt: %p type->name %s\n", t
, t
->name
);
175 if (t
->kind
== TKIND_ALIAS
&& t
->attrs
)
176 return VT_USERDEFINED
;
186 return VT_I2
; /* mktyplib seems to parse wchar_t as short */
192 if (match(t
->name
, "int")) return VT_INT
;
195 if (match(t
->name
, "int")) return VT_UINT
;
198 if (t
->sign
< 0) return VT_UI8
;
199 if (match(t
->name
, "MIDL_uhyper")) return VT_UI8
;
213 if (match(t
->ref
->name
, "SAFEARRAY"))
218 error("get_type_vt: unknown-deref-type: %d\n", t
->ref
->type
);
221 if(match(t
->name
, "IUnknown"))
223 if(match(t
->name
, "IDispatch"))
225 return VT_USERDEFINED
;
231 case RPC_FC_CPSTRUCT
:
232 case RPC_FC_CVSTRUCT
:
233 case RPC_FC_BOGUS_STRUCT
:
234 return VT_USERDEFINED
;
236 return t
->kind
== TKIND_PRIMITIVE
? VT_VOID
: VT_USERDEFINED
;
238 error("get_type_vt: unknown type: 0x%02x\n", t
->type
);
243 void start_typelib(char *name
, attr_list_t
*attrs
)
246 if (!do_typelib
) return;
248 typelib
= xmalloc(sizeof(*typelib
));
249 typelib
->name
= xstrdup(name
);
250 typelib
->filename
= xstrdup(typelib_name
);
251 typelib
->attrs
= attrs
;
252 list_init( &typelib
->entries
);
253 list_init( &typelib
->importlibs
);
255 if (is_attr(attrs
, ATTR_POINTERDEFAULT
))
256 pointer_default
= get_attrv(attrs
, ATTR_POINTERDEFAULT
);
259 void end_typelib(void)
262 if (!typelib
) return;
264 create_msft_typelib(typelib
);
265 pointer_default
= RPC_FC_UP
;
269 void add_typelib_entry(type_t
*t
)
271 typelib_entry_t
*entry
;
272 if (!typelib
) return;
274 chat("add kind %i: %s\n", t
->kind
, t
->name
);
275 entry
= xmalloc(sizeof(*entry
));
277 list_add_tail( &typelib
->entries
, &entry
->entry
);
280 static void tlb_read(int fd
, void *buf
, int count
)
282 if(read(fd
, buf
, count
) < count
)
283 error("error while reading importlib.\n");
286 static void tlb_lseek(int fd
, off_t offset
)
288 if(lseek(fd
, offset
, SEEK_SET
) == -1)
289 error("lseek failed\n");
292 static void msft_read_guid(int fd
, MSFT_SegDir
*segdir
, int offset
, GUID
*guid
)
294 tlb_lseek(fd
, segdir
->pGuidTab
.offset
+offset
);
295 tlb_read(fd
, guid
, sizeof(GUID
));
298 static void read_msft_importlib(importlib_t
*importlib
, int fd
)
305 importlib
->allocated
= 0;
308 tlb_read(fd
, &header
, sizeof(header
));
310 importlib
->version
= header
.version
;
312 typeinfo_offs
= xmalloc(header
.nrtypeinfos
*sizeof(INT
));
313 tlb_read(fd
, typeinfo_offs
, header
.nrtypeinfos
*sizeof(INT
));
314 tlb_read(fd
, &segdir
, sizeof(segdir
));
316 msft_read_guid(fd
, &segdir
, header
.posguid
, &importlib
->guid
);
318 importlib
->ntypeinfos
= header
.nrtypeinfos
;
319 importlib
->importinfos
= xmalloc(importlib
->ntypeinfos
*sizeof(importinfo_t
));
321 for(i
=0; i
< importlib
->ntypeinfos
; i
++) {
322 MSFT_TypeInfoBase base
;
323 MSFT_NameIntro nameintro
;
326 tlb_lseek(fd
, sizeof(MSFT_Header
) + header
.nrtypeinfos
*sizeof(INT
) + sizeof(MSFT_SegDir
)
328 tlb_read(fd
, &base
, sizeof(base
));
330 importlib
->importinfos
[i
].importlib
= importlib
;
331 importlib
->importinfos
[i
].flags
= (base
.typekind
&0xf)<<24;
332 importlib
->importinfos
[i
].offset
= -1;
333 importlib
->importinfos
[i
].id
= i
;
335 if(base
.posguid
!= -1) {
336 importlib
->importinfos
[i
].flags
|= MSFT_IMPINFO_OFFSET_IS_GUID
;
337 msft_read_guid(fd
, &segdir
, base
.posguid
, &importlib
->importinfos
[i
].guid
);
339 else memset( &importlib
->importinfos
[i
].guid
, 0, sizeof(importlib
->importinfos
[i
].guid
));
341 tlb_lseek(fd
, segdir
.pNametab
.offset
+ base
.NameOffset
);
342 tlb_read(fd
, &nameintro
, sizeof(nameintro
));
344 len
= nameintro
.namelen
& 0xff;
346 importlib
->importinfos
[i
].name
= xmalloc(len
+1);
347 tlb_read(fd
, importlib
->importinfos
[i
].name
, len
);
348 importlib
->importinfos
[i
].name
[len
] = 0;
354 static void read_importlib(importlib_t
*importlib
)
360 file_name
= wpp_find_include(importlib
->name
, NULL
);
362 fd
= open(file_name
, O_RDONLY
| O_BINARY
);
365 fd
= open(importlib
->name
, O_RDONLY
| O_BINARY
);
369 error("Could not open importlib %s.\n", importlib
->name
);
371 tlb_read(fd
, &magic
, sizeof(magic
));
375 read_msft_importlib(importlib
, fd
);
378 error("Wrong or unsupported typelib magic %x\n", magic
);
384 void add_importlib(const char *name
)
386 importlib_t
*importlib
;
390 LIST_FOR_EACH_ENTRY( importlib
, &typelib
->importlibs
, importlib_t
, entry
)
391 if(!strcmp(name
, importlib
->name
))
394 chat("add_importlib: %s\n", name
);
396 importlib
= xmalloc(sizeof(*importlib
));
397 memset( importlib
, 0, sizeof(*importlib
) );
398 importlib
->name
= xstrdup(name
);
400 read_importlib(importlib
);
401 list_add_head( &typelib
->importlibs
, &importlib
->entry
);