dlls/dwrite/font.c

   1 /*
   2  *    Font and collections
   3  *
   4  * Copyright 2012, 2014 Nikolay Sivov for CodeWeavers
   5  * Copyright 2014 Aric Stewart for CodeWeavers
   6  *
   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.
  11  *
  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.
  16  *
  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
  20  */
  21
  22 #define COBJMACROS
  23
  24 #include "dwrite_private.h"
  25
  26 WINE_DEFAULT_DEBUG_CHANNEL(dwrite);
  27
  28 #define MS_HEAD_TAG DWRITE_MAKE_OPENTYPE_TAG('h','e','a','d')
  29 #define MS_OS2_TAG  DWRITE_MAKE_OPENTYPE_TAG('O','S','/','2')
  30 #define MS_POST_TAG DWRITE_MAKE_OPENTYPE_TAG('p','o','s','t')
  31 #define MS_CMAP_TAG DWRITE_MAKE_OPENTYPE_TAG('c','m','a','p')
  32 #define MS_NAME_TAG DWRITE_MAKE_OPENTYPE_TAG('n','a','m','e')
  33
  34 struct dwrite_font_data {
  35     LONG ref;
  36
  37     DWRITE_FONT_STYLE style;
  38     DWRITE_FONT_STRETCH stretch;
  39     DWRITE_FONT_WEIGHT weight;
  40     DWRITE_FONT_METRICS metrics;
  41     IDWriteLocalizedStrings *info_strings[DWRITE_INFORMATIONAL_STRING_POSTSCRIPT_CID_NAME+1];
  42
  43     /* data needed to create fontface instance */
  44     IDWriteFactory *factory;
  45     DWRITE_FONT_FACE_TYPE face_type;
  46     IDWriteFontFile *file;
  47     UINT32 face_index;
  48
  49     IDWriteFontFace2 *face;
  50
  51     WCHAR *facename;
  52 };
  53
  54 struct dwrite_fontfamily_data {
  55     LONG ref;
  56
  57     IDWriteLocalizedStrings *familyname;
  58
  59     struct dwrite_font_data **fonts;
  60     UINT32 font_count;
  61     UINT32 font_alloc;
  62 };
  63
  64 struct dwrite_fontcollection {
  65     IDWriteFontCollection IDWriteFontCollection_iface;
  66     LONG ref;
  67
  68     struct dwrite_fontfamily_data **family_data;
  69     UINT32 family_count;
  70     UINT32 family_alloc;
  71 };
  72
  73 struct dwrite_fontfamily {
  74     IDWriteFontFamily IDWriteFontFamily_iface;
  75     LONG ref;
  76
  77     struct dwrite_fontfamily_data *data;
  78
  79     IDWriteFontCollection* collection;
  80 };
  81
  82 struct dwrite_font {
  83     IDWriteFont2 IDWriteFont2_iface;
  84     LONG ref;
  85
  86     IDWriteFontFamily *family;
  87
  88     DWRITE_FONT_SIMULATIONS simulations;
  89     struct dwrite_font_data *data;
  90 };
  91
  92 #define DWRITE_FONTTABLE_MAGIC 0xededfafa
  93
  94 struct dwrite_fonttablecontext {
  95     UINT32 magic;
  96     void  *context;
  97     UINT32 file_index;
  98 };
  99
 100 struct dwrite_fonttable {
 101     void  *data;
 102     void  *context;
 103     UINT32 size;
 104 };
 105
 106 struct dwrite_fontface {
 107     IDWriteFontFace2 IDWriteFontFace2_iface;
 108     LONG ref;
 109
 110     IDWriteFontFile **files;
 111     UINT32 file_count;
 112     UINT32 index;
 113
 114     DWRITE_FONT_SIMULATIONS simulations;
 115     DWRITE_FONT_FACE_TYPE type;
 116
 117     struct dwrite_fonttable cmap;
 118 };
 119
 120 struct dwrite_fontfile {
 121     IDWriteFontFile IDWriteFontFile_iface;
 122     LONG ref;
 123
 124     IDWriteFontFileLoader *loader;
 125     void *reference_key;
 126     UINT32 key_size;
 127     IDWriteFontFileStream *stream;
 128 };
 129
 130 static HRESULT create_fontfamily_from_data(struct dwrite_fontfamily_data *data, IDWriteFontCollection *collection, IDWriteFontFamily **family);
 131 static HRESULT create_font_from_data(struct dwrite_font_data*,IDWriteFontFamily*,DWRITE_FONT_SIMULATIONS,IDWriteFont**);
 132 static HRESULT get_filestream_from_file(IDWriteFontFile*,IDWriteFontFileStream**);
 133
 134 static inline struct dwrite_fontface *impl_from_IDWriteFontFace2(IDWriteFontFace2 *iface)
 135 {
 136     return CONTAINING_RECORD(iface, struct dwrite_fontface, IDWriteFontFace2_iface);
 137 }
 138
 139 static inline struct dwrite_font *impl_from_IDWriteFont2(IDWriteFont2 *iface)
 140 {
 141     return CONTAINING_RECORD(iface, struct dwrite_font, IDWriteFont2_iface);
 142 }
 143
 144 static inline struct dwrite_fontfile *impl_from_IDWriteFontFile(IDWriteFontFile *iface)
 145 {
 146     return CONTAINING_RECORD(iface, struct dwrite_fontfile, IDWriteFontFile_iface);
 147 }
 148
 149 static inline struct dwrite_fontfamily *impl_from_IDWriteFontFamily(IDWriteFontFamily *iface)
 150 {
 151     return CONTAINING_RECORD(iface, struct dwrite_fontfamily, IDWriteFontFamily_iface);
 152 }
 153
 154 static inline struct dwrite_fontcollection *impl_from_IDWriteFontCollection(IDWriteFontCollection *iface)
 155 {
 156     return CONTAINING_RECORD(iface, struct dwrite_fontcollection, IDWriteFontCollection_iface);
 157 }
 158
 159 static inline void* get_fontface_cmap(struct dwrite_fontface *fontface)
 160 {
 161     BOOL exists = FALSE;
 162     HRESULT hr;
 163
 164     if (fontface->cmap.data)
 165         return fontface->cmap.data;
 166
 167     hr = IDWriteFontFace2_TryGetFontTable(&fontface->IDWriteFontFace2_iface, MS_CMAP_TAG, (const void**)&fontface->cmap.data,
 168         &fontface->cmap.size, &fontface->cmap.context, &exists);
 169     if (FAILED(hr) || !exists) {
 170         ERR("Font does not have a CMAP table\n");
 171         return NULL;
 172     }
 173
 174     return fontface->cmap.data;
 175 }
 176
 177 static HRESULT _dwritefontfile_GetFontFileStream(IDWriteFontFile *iface, IDWriteFontFileStream **stream)
 178 {
 179     HRESULT hr;
 180     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
 181     if (!This->stream)
 182     {
 183         hr = IDWriteFontFileLoader_CreateStreamFromKey(This->loader, This->reference_key, This->key_size, &This->stream);
 184         if (FAILED(hr))
 185             return hr;
 186     }
 187     if (This->stream)
 188     {
 189         IDWriteFontFileStream_AddRef(This->stream);
 190         *stream = This->stream;
 191         return S_OK;
 192     }
 193     return E_FAIL;
 194 }
 195
 196 static void release_font_data(struct dwrite_font_data *data)
 197 {
 198     int i;
 199     if (!data)
 200         return;
 201     i = InterlockedDecrement(&data->ref);
 202     if (i > 0)
 203         return;
 204
 205     for (i = DWRITE_INFORMATIONAL_STRING_NONE; i < sizeof(data->info_strings)/sizeof(data->info_strings[0]); i++) {
 206         if (data->info_strings[i])
 207             IDWriteLocalizedStrings_Release(data->info_strings[i]);
 208     }
 209
 210     /* FIXME: factory and file will be always set once system collection is working */
 211     if (data->file)
 212         IDWriteFontFile_Release(data->file);
 213     if (data->factory)
 214         IDWriteFactory_Release(data->factory);
 215     if (data->face)
 216         IDWriteFontFace2_Release(data->face);
 217     heap_free(data->facename);
 218     heap_free(data);
 219 }
 220
 221 static VOID _free_fontfamily_data(struct dwrite_fontfamily_data *data)
 222 {
 223     int i;
 224     if (!data)
 225         return;
 226     i = InterlockedDecrement(&data->ref);
 227     if (i > 0)
 228         return;
 229     for (i = 0; i < data->font_count; i++)
 230         release_font_data(data->fonts[i]);
 231     heap_free(data->fonts);
 232     IDWriteLocalizedStrings_Release(data->familyname);
 233     heap_free(data);
 234 }
 235
 236 static HRESULT WINAPI dwritefontface_QueryInterface(IDWriteFontFace2 *iface, REFIID riid, void **obj)
 237 {
 238     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 239
 240     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 241
 242     if (IsEqualIID(riid, &IID_IDWriteFontFace2) ||
 243         IsEqualIID(riid, &IID_IDWriteFontFace1) ||
 244         IsEqualIID(riid, &IID_IDWriteFontFace) ||
 245         IsEqualIID(riid, &IID_IUnknown))
 246     {
 247         *obj = iface;
 248         IDWriteFontFace2_AddRef(iface);
 249         return S_OK;
 250     }
 251
 252     *obj = NULL;
 253     return E_NOINTERFACE;
 254 }
 255
 256 static ULONG WINAPI dwritefontface_AddRef(IDWriteFontFace2 *iface)
 257 {
 258     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 259     ULONG ref = InterlockedIncrement(&This->ref);
 260     TRACE("(%p)->(%d)\n", This, ref);
 261     return ref;
 262 }
 263
 264 static ULONG WINAPI dwritefontface_Release(IDWriteFontFace2 *iface)
 265 {
 266     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 267     ULONG ref = InterlockedDecrement(&This->ref);
 268
 269     TRACE("(%p)->(%d)\n", This, ref);
 270
 271     if (!ref) {
 272         UINT32 i;
 273
 274         if (This->cmap.context)
 275             IDWriteFontFace2_ReleaseFontTable(iface, This->cmap.context);
 276         for (i = 0; i < This->file_count; i++)
 277             IDWriteFontFile_Release(This->files[i]);
 278         heap_free(This);
 279     }
 280
 281     return ref;
 282 }
 283
 284 static DWRITE_FONT_FACE_TYPE WINAPI dwritefontface_GetType(IDWriteFontFace2 *iface)
 285 {
 286     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 287     TRACE("(%p)\n", This);
 288     return This->type;
 289 }
 290
 291 static HRESULT WINAPI dwritefontface_GetFiles(IDWriteFontFace2 *iface, UINT32 *number_of_files,
 292     IDWriteFontFile **fontfiles)
 293 {
 294     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 295     int i;
 296
 297     TRACE("(%p)->(%p %p)\n", This, number_of_files, fontfiles);
 298     if (fontfiles == NULL)
 299     {
 300         *number_of_files = This->file_count;
 301         return S_OK;
 302     }
 303     if (*number_of_files < This->file_count)
 304         return E_INVALIDARG;
 305
 306     for (i = 0; i < This->file_count; i++)
 307     {
 308         IDWriteFontFile_AddRef(This->files[i]);
 309         fontfiles[i] = This->files[i];
 310     }
 311
 312     return S_OK;
 313 }
 314
 315 static UINT32 WINAPI dwritefontface_GetIndex(IDWriteFontFace2 *iface)
 316 {
 317     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 318     TRACE("(%p)\n", This);
 319     return This->index;
 320 }
 321
 322 static DWRITE_FONT_SIMULATIONS WINAPI dwritefontface_GetSimulations(IDWriteFontFace2 *iface)
 323 {
 324     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 325     TRACE("(%p)\n", This);
 326     return This->simulations;
 327 }
 328
 329 static BOOL WINAPI dwritefontface_IsSymbolFont(IDWriteFontFace2 *iface)
 330 {
 331     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 332     FIXME("(%p): stub\n", This);
 333     return FALSE;
 334 }
 335
 336 static void WINAPI dwritefontface_GetMetrics(IDWriteFontFace2 *iface, DWRITE_FONT_METRICS *metrics)
 337 {
 338     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 339     FIXME("(%p)->(%p): stub\n", This, metrics);
 340 }
 341
 342 static UINT16 WINAPI dwritefontface_GetGlyphCount(IDWriteFontFace2 *iface)
 343 {
 344     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 345     FIXME("(%p): stub\n", This);
 346     return 0;
 347 }
 348
 349 static HRESULT WINAPI dwritefontface_GetDesignGlyphMetrics(IDWriteFontFace2 *iface,
 350     UINT16 const *glyph_indices, UINT32 glyph_count, DWRITE_GLYPH_METRICS *metrics, BOOL is_sideways)
 351 {
 352     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 353     FIXME("(%p)->(%p %u %p %d): stub\n", This, glyph_indices, glyph_count, metrics, is_sideways);
 354     return E_NOTIMPL;
 355 }
 356
 357 static HRESULT WINAPI dwritefontface_GetGlyphIndices(IDWriteFontFace2 *iface, UINT32 const *codepoints,
 358     UINT32 count, UINT16 *glyph_indices)
 359 {
 360     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 361     unsigned int i;
 362     void *data;
 363
 364     TRACE("(%p)->(%p %u %p)\n", This, codepoints, count, glyph_indices);
 365
 366     data = get_fontface_cmap(This);
 367     if (!data)
 368         return E_FAIL;
 369
 370     for (i = 0; i < count; i++)
 371         opentype_cmap_get_glyphindex(data, codepoints[i], &glyph_indices[i]);
 372
 373     return S_OK;
 374 }
 375
 376 static HRESULT WINAPI dwritefontface_TryGetFontTable(IDWriteFontFace2 *iface, UINT32 table_tag,
 377     const void **table_data, UINT32 *table_size, void **context, BOOL *exists)
 378 {
 379     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 380     struct dwrite_fonttablecontext *tablecontext;
 381     HRESULT hr = S_OK;
 382     int i;
 383
 384     TRACE("(%p)->(%u %p %p %p %p)\n", This, table_tag, table_data, table_size, context, exists);
 385
 386     tablecontext = heap_alloc(sizeof(struct dwrite_fonttablecontext));
 387     if (!tablecontext)
 388         return E_OUTOFMEMORY;
 389     tablecontext->magic = DWRITE_FONTTABLE_MAGIC;
 390
 391     *exists = FALSE;
 392     for (i = 0; i < This->file_count && !(*exists); i++) {
 393         IDWriteFontFileStream *stream;
 394         hr = _dwritefontfile_GetFontFileStream(This->files[i], &stream);
 395         if (FAILED(hr))
 396             continue;
 397         tablecontext->file_index = i;
 398
 399         hr = opentype_get_font_table(stream, This->type, This->index, table_tag, table_data, &tablecontext->context, table_size, exists);
 400
 401         IDWriteFontFileStream_Release(stream);
 402     }
 403     if (FAILED(hr) && !*exists)
 404         heap_free(tablecontext);
 405     else
 406         *context = (void*)tablecontext;
 407
 408     return hr;
 409 }
 410
 411 static void WINAPI dwritefontface_ReleaseFontTable(IDWriteFontFace2 *iface, void *table_context)
 412 {
 413     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 414     struct dwrite_fonttablecontext *tablecontext = (struct dwrite_fonttablecontext*)table_context;
 415     IDWriteFontFileStream *stream;
 416     HRESULT hr;
 417     TRACE("(%p)->(%p)\n", This, table_context);
 418
 419     if (tablecontext->magic != DWRITE_FONTTABLE_MAGIC)
 420     {
 421         TRACE("Invalid table magic\n");
 422         return;
 423     }
 424
 425     hr = _dwritefontfile_GetFontFileStream(This->files[tablecontext->file_index], &stream);
 426     if (FAILED(hr))
 427         return;
 428     IDWriteFontFileStream_ReleaseFileFragment(stream, tablecontext->context);
 429     IDWriteFontFileStream_Release(stream);
 430     heap_free(tablecontext);
 431 }
 432
 433 static HRESULT WINAPI dwritefontface_GetGlyphRunOutline(IDWriteFontFace2 *iface, FLOAT emSize,
 434     UINT16 const *glyph_indices, FLOAT const* glyph_advances, DWRITE_GLYPH_OFFSET const *glyph_offsets,
 435     UINT32 glyph_count, BOOL is_sideways, BOOL is_rtl, IDWriteGeometrySink *geometrysink)
 436 {
 437     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 438     FIXME("(%p)->(%f %p %p %p %u %d %d %p): stub\n", This, emSize, glyph_indices, glyph_advances, glyph_offsets,
 439         glyph_count, is_sideways, is_rtl, geometrysink);
 440     return E_NOTIMPL;
 441 }
 442
 443 static HRESULT WINAPI dwritefontface_GetRecommendedRenderingMode(IDWriteFontFace2 *iface, FLOAT emSize,
 444     FLOAT pixels_per_dip, DWRITE_MEASURING_MODE mode, IDWriteRenderingParams* params, DWRITE_RENDERING_MODE* rendering_mode)
 445 {
 446     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 447     FIXME("(%p)->(%f %f %d %p %p): stub\n", This, emSize, pixels_per_dip, mode, params, rendering_mode);
 448     return E_NOTIMPL;
 449 }
 450
 451 static HRESULT WINAPI dwritefontface_GetGdiCompatibleMetrics(IDWriteFontFace2 *iface, FLOAT emSize, FLOAT pixels_per_dip,
 452     DWRITE_MATRIX const *transform, DWRITE_FONT_METRICS *metrics)
 453 {
 454     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 455     FIXME("(%p)->(%f %f %p %p): stub\n", This, emSize, pixels_per_dip, transform, metrics);
 456     return E_NOTIMPL;
 457 }
 458
 459 static HRESULT WINAPI dwritefontface_GetGdiCompatibleGlyphMetrics(IDWriteFontFace2 *iface, FLOAT emSize, FLOAT pixels_per_dip,
 460     DWRITE_MATRIX const *transform, BOOL use_gdi_natural, UINT16 const *glyph_indices, UINT32 glyph_count,
 461     DWRITE_GLYPH_METRICS *metrics, BOOL is_sideways)
 462 {
 463     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 464     FIXME("(%p)->(%f %f %p %d %p %u %p %d): stub\n", This, emSize, pixels_per_dip, transform, use_gdi_natural, glyph_indices,
 465         glyph_count, metrics, is_sideways);
 466     return E_NOTIMPL;
 467 }
 468
 469 static HRESULT WINAPI dwritefontface1_GetMetrics(IDWriteFontFace2 *iface, DWRITE_FONT_METRICS1 *metrics)
 470 {
 471     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 472     FIXME("(%p)->(%p): stub\n", This, metrics);
 473     return E_NOTIMPL;
 474 }
 475
 476 static HRESULT WINAPI dwritefontface1_GetGdiCompatibleMetrics(IDWriteFontFace2 *iface, FLOAT em_size, FLOAT pixels_per_dip,
 477     const DWRITE_MATRIX *transform, DWRITE_FONT_METRICS1 *metrics)
 478 {
 479     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 480     FIXME("(%p)->(%f %f %p %p): stub\n", This, em_size, pixels_per_dip, transform, metrics);
 481     return E_NOTIMPL;
 482 }
 483
 484 static void WINAPI dwritefontface1_GetCaretMetrics(IDWriteFontFace2 *iface, DWRITE_CARET_METRICS *metrics)
 485 {
 486     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 487     FIXME("(%p)->(%p): stub\n", This, metrics);
 488 }
 489
 490 static HRESULT WINAPI dwritefontface1_GetUnicodeRanges(IDWriteFontFace2 *iface, UINT32 max_count,
 491     DWRITE_UNICODE_RANGE *ranges, UINT32 *count)
 492 {
 493     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 494
 495     TRACE("(%p)->(%u %p %p)\n", This, max_count, ranges, count);
 496
 497     *count = 0;
 498     if (max_count && !ranges)
 499         return E_INVALIDARG;
 500
 501     return opentype_cmap_get_unicode_ranges(get_fontface_cmap(This), max_count, ranges, count);
 502 }
 503
 504 static BOOL WINAPI dwritefontface1_IsMonospacedFont(IDWriteFontFace2 *iface)
 505 {
 506     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 507     FIXME("(%p): stub\n", This);
 508     return FALSE;
 509 }
 510
 511 static HRESULT WINAPI dwritefontface1_GetDesignGlyphAdvances(IDWriteFontFace2 *iface,
 512     UINT32 glyph_count, UINT16 const *indices, INT32 *advances, BOOL is_sideways)
 513 {
 514     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 515     FIXME("(%p)->(%u %p %p %d): stub\n", This, glyph_count, indices, advances, is_sideways);
 516     return E_NOTIMPL;
 517 }
 518
 519 static HRESULT WINAPI dwritefontface1_GetGdiCompatibleGlyphAdvances(IDWriteFontFace2 *iface,
 520     FLOAT em_size, FLOAT pixels_per_dip, const DWRITE_MATRIX *transform, BOOL use_gdi_natural,
 521     BOOL is_sideways, UINT32 glyph_count, UINT16 const *indices, INT32 *advances)
 522 {
 523     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 524     FIXME("(%p)->(%f %f %p %d %d %u %p %p): stub\n", This, em_size, pixels_per_dip, transform,
 525         use_gdi_natural, is_sideways, glyph_count, indices, advances);
 526     return E_NOTIMPL;
 527 }
 528
 529 static HRESULT WINAPI dwritefontface1_GetKerningPairAdjustments(IDWriteFontFace2 *iface, UINT32 glyph_count,
 530     const UINT16 *indices, INT32 *adjustments)
 531 {
 532     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 533     FIXME("(%p)->(%u %p %p): stub\n", This, glyph_count, indices, adjustments);
 534     return E_NOTIMPL;
 535 }
 536
 537 static BOOL WINAPI dwritefontface1_HasKerningPairs(IDWriteFontFace2 *iface)
 538 {
 539     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 540     FIXME("(%p): stub\n", This);
 541     return FALSE;
 542 }
 543
 544 static HRESULT WINAPI dwritefontface1_GetRecommendedRenderingMode(IDWriteFontFace2 *iface,
 545     FLOAT font_emsize, FLOAT dpiX, FLOAT dpiY, const DWRITE_MATRIX *transform, BOOL is_sideways,
 546     DWRITE_OUTLINE_THRESHOLD threshold, DWRITE_MEASURING_MODE measuring_mode, DWRITE_RENDERING_MODE *rendering_mode)
 547 {
 548     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 549     FIXME("(%p)->(%f %f %f %p %d %d %d %p): stub\n", This, font_emsize, dpiX, dpiY, transform, is_sideways,
 550         threshold, measuring_mode, rendering_mode);
 551     return E_NOTIMPL;
 552 }
 553
 554 static HRESULT WINAPI dwritefontface1_GetVerticalGlyphVariants(IDWriteFontFace2 *iface, UINT32 glyph_count,
 555     const UINT16 *nominal_indices, UINT16 *vertical_indices)
 556 {
 557     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 558     FIXME("(%p)->(%u %p %p): stub\n", This, glyph_count, nominal_indices, vertical_indices);
 559     return E_NOTIMPL;
 560 }
 561
 562 static BOOL WINAPI dwritefontface1_HasVerticalGlyphVariants(IDWriteFontFace2 *iface)
 563 {
 564     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 565     FIXME("(%p): stub\n", This);
 566     return FALSE;
 567 }
 568
 569 static BOOL WINAPI dwritefontface2_IsColorFont(IDWriteFontFace2 *iface)
 570 {
 571     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 572     FIXME("(%p): stub\n", This);
 573     return FALSE;
 574 }
 575
 576 static UINT32 WINAPI dwritefontface2_GetColorPaletteCount(IDWriteFontFace2 *iface)
 577 {
 578     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 579     FIXME("(%p): stub\n", This);
 580     return 0;
 581 }
 582
 583 static UINT32 WINAPI dwritefontface2_GetPaletteEntryCount(IDWriteFontFace2 *iface)
 584 {
 585     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 586     FIXME("(%p): stub\n", This);
 587     return 0;
 588 }
 589
 590 static HRESULT WINAPI dwritefontface2_GetPaletteEntries(IDWriteFontFace2 *iface, UINT32 palette_index,
 591     UINT32 first_entry_index, UINT32 entry_count, DWRITE_COLOR_F *entries)
 592 {
 593     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 594     FIXME("(%p)->(%u %u %u %p): stub\n", This, palette_index, first_entry_index, entry_count, entries);
 595     return E_NOTIMPL;
 596 }
 597
 598 static HRESULT WINAPI dwritefontface2_GetRecommendedRenderingMode(IDWriteFontFace2 *iface, FLOAT fontEmSize,
 599     FLOAT dpiX, FLOAT dpiY, DWRITE_MATRIX const *transform, BOOL is_sideways, DWRITE_OUTLINE_THRESHOLD threshold,
 600     DWRITE_MEASURING_MODE measuringmode, IDWriteRenderingParams *params, DWRITE_RENDERING_MODE *renderingmode,
 601     DWRITE_GRID_FIT_MODE *gridfitmode)
 602 {
 603     struct dwrite_fontface *This = impl_from_IDWriteFontFace2(iface);
 604     FIXME("(%p)->(%f %f %f %p %d %d %d %p %p %p): stub\n", This, fontEmSize, dpiX, dpiY, transform, is_sideways, threshold,
 605         measuringmode, params, renderingmode, gridfitmode);
 606     return E_NOTIMPL;
 607 }
 608
 609 static const IDWriteFontFace2Vtbl dwritefontfacevtbl = {
 610     dwritefontface_QueryInterface,
 611     dwritefontface_AddRef,
 612     dwritefontface_Release,
 613     dwritefontface_GetType,
 614     dwritefontface_GetFiles,
 615     dwritefontface_GetIndex,
 616     dwritefontface_GetSimulations,
 617     dwritefontface_IsSymbolFont,
 618     dwritefontface_GetMetrics,
 619     dwritefontface_GetGlyphCount,
 620     dwritefontface_GetDesignGlyphMetrics,
 621     dwritefontface_GetGlyphIndices,
 622     dwritefontface_TryGetFontTable,
 623     dwritefontface_ReleaseFontTable,
 624     dwritefontface_GetGlyphRunOutline,
 625     dwritefontface_GetRecommendedRenderingMode,
 626     dwritefontface_GetGdiCompatibleMetrics,
 627     dwritefontface_GetGdiCompatibleGlyphMetrics,
 628     dwritefontface1_GetMetrics,
 629     dwritefontface1_GetGdiCompatibleMetrics,
 630     dwritefontface1_GetCaretMetrics,
 631     dwritefontface1_GetUnicodeRanges,
 632     dwritefontface1_IsMonospacedFont,
 633     dwritefontface1_GetDesignGlyphAdvances,
 634     dwritefontface1_GetGdiCompatibleGlyphAdvances,
 635     dwritefontface1_GetKerningPairAdjustments,
 636     dwritefontface1_HasKerningPairs,
 637     dwritefontface1_GetRecommendedRenderingMode,
 638     dwritefontface1_GetVerticalGlyphVariants,
 639     dwritefontface1_HasVerticalGlyphVariants,
 640     dwritefontface2_IsColorFont,
 641     dwritefontface2_GetColorPaletteCount,
 642     dwritefontface2_GetPaletteEntryCount,
 643     dwritefontface2_GetPaletteEntries,
 644     dwritefontface2_GetRecommendedRenderingMode
 645 };
 646
 647 static void get_font_properties_from_stream(IDWriteFontFileStream *stream, DWRITE_FONT_FACE_TYPE face_type,
 648     UINT32 face_index, DWRITE_FONT_METRICS *metrics, DWRITE_FONT_STRETCH *stretch, DWRITE_FONT_WEIGHT *weight,
 649     DWRITE_FONT_STYLE *style)
 650 {
 651     const void *tt_os2 = NULL, *tt_head = NULL, *tt_post = NULL;
 652     void *os2_context, *head_context, *post_context;
 653
 654     opentype_get_font_table(stream, face_type, face_index, MS_OS2_TAG, &tt_os2, &os2_context, NULL, NULL);
 655     opentype_get_font_table(stream, face_type, face_index, MS_HEAD_TAG, &tt_head, &head_context, NULL, NULL);
 656     opentype_get_font_table(stream, face_type, face_index, MS_POST_TAG, &tt_post, &post_context, NULL, NULL);
 657
 658     get_font_properties(tt_os2, tt_head, tt_post, metrics, stretch, weight, style);
 659
 660     if (tt_os2)
 661         IDWriteFontFileStream_ReleaseFileFragment(stream, os2_context);
 662     if (tt_head)
 663         IDWriteFontFileStream_ReleaseFileFragment(stream, head_context);
 664     if (tt_post)
 665         IDWriteFontFileStream_ReleaseFileFragment(stream, post_context);
 666 }
 667
 668 HRESULT convert_fontface_to_logfont(IDWriteFontFace *face, LOGFONTW *logfont)
 669 {
 670     DWRITE_FONT_SIMULATIONS simulations;
 671     DWRITE_FONT_FACE_TYPE face_type;
 672     IDWriteFontFileStream *stream;
 673     DWRITE_FONT_METRICS metrics;
 674     DWRITE_FONT_STRETCH stretch;
 675     DWRITE_FONT_STYLE style;
 676     DWRITE_FONT_WEIGHT weight;
 677     IDWriteFontFile *file = NULL;
 678     UINT32 index;
 679     HRESULT hr;
 680
 681     memset(logfont, 0, sizeof(*logfont));
 682
 683     index = 1;
 684     hr = IDWriteFontFace_GetFiles(face, &index, &file);
 685     if (FAILED(hr) || !file)
 686         return hr;
 687
 688     hr = get_filestream_from_file(file, &stream);
 689     if (FAILED(hr)) {
 690         IDWriteFontFile_Release(file);
 691         return hr;
 692     }
 693
 694     index = IDWriteFontFace_GetIndex(face);
 695     face_type = IDWriteFontFace_GetType(face);
 696     get_font_properties_from_stream(stream, face_type, index, &metrics, &stretch, &weight, &style);
 697     IDWriteFontFileStream_Release(stream);
 698
 699     simulations = IDWriteFontFace_GetSimulations(face);
 700
 701     logfont->lfCharSet = DEFAULT_CHARSET;
 702     logfont->lfWeight = weight;
 703     logfont->lfItalic = style == DWRITE_FONT_STYLE_ITALIC || (simulations | DWRITE_FONT_SIMULATIONS_OBLIQUE);
 704     logfont->lfOutPrecision = OUT_OUTLINE_PRECIS;
 705     /* TODO: set facename */
 706
 707     return S_OK;
 708 }
 709
 710 static HRESULT get_fontface_from_font(struct dwrite_font *font, IDWriteFontFace2 **fontface)
 711 {
 712     HRESULT hr = S_OK;
 713
 714     *fontface = NULL;
 715
 716     if (!font->data->face) {
 717         struct dwrite_font_data *data = font->data;
 718         IDWriteFontFace *face;
 719
 720         hr = IDWriteFactory_CreateFontFace(data->factory, data->face_type, 1, &data->file,
 721                 data->face_index, font->simulations, &face);
 722         if (FAILED(hr))
 723             return hr;
 724
 725         hr = IDWriteFontFace_QueryInterface(face, &IID_IDWriteFontFace2, (void**)&font->data->face);
 726         IDWriteFontFace_Release(face);
 727     }
 728
 729     *fontface = font->data->face;
 730     return hr;
 731 }
 732
 733 static HRESULT WINAPI dwritefont_QueryInterface(IDWriteFont2 *iface, REFIID riid, void **obj)
 734 {
 735     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 736
 737     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 738
 739     if (IsEqualIID(riid, &IID_IDWriteFont2) ||
 740         IsEqualIID(riid, &IID_IDWriteFont1) ||
 741         IsEqualIID(riid, &IID_IDWriteFont)  ||
 742         IsEqualIID(riid, &IID_IUnknown))
 743     {
 744         *obj = iface;
 745         IDWriteFont2_AddRef(iface);
 746         return S_OK;
 747     }
 748
 749     *obj = NULL;
 750     return E_NOINTERFACE;
 751 }
 752
 753 static ULONG WINAPI dwritefont_AddRef(IDWriteFont2 *iface)
 754 {
 755     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 756     ULONG ref = InterlockedIncrement(&This->ref);
 757     TRACE("(%p)->(%d)\n", This, ref);
 758     return ref;
 759 }
 760
 761 static ULONG WINAPI dwritefont_Release(IDWriteFont2 *iface)
 762 {
 763     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 764     ULONG ref = InterlockedDecrement(&This->ref);
 765
 766     TRACE("(%p)->(%d)\n", This, ref);
 767
 768     if (!ref) {
 769         if (This->family) IDWriteFontFamily_Release(This->family);
 770         release_font_data(This->data);
 771         heap_free(This);
 772     }
 773
 774     return ref;
 775 }
 776
 777 static HRESULT WINAPI dwritefont_GetFontFamily(IDWriteFont2 *iface, IDWriteFontFamily **family)
 778 {
 779     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 780     TRACE("(%p)->(%p)\n", This, family);
 781
 782     *family = This->family;
 783     IDWriteFontFamily_AddRef(*family);
 784     return S_OK;
 785 }
 786
 787 static DWRITE_FONT_WEIGHT WINAPI dwritefont_GetWeight(IDWriteFont2 *iface)
 788 {
 789     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 790     TRACE("(%p)\n", This);
 791     return This->data->weight;
 792 }
 793
 794 static DWRITE_FONT_STRETCH WINAPI dwritefont_GetStretch(IDWriteFont2 *iface)
 795 {
 796     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 797     TRACE("(%p)\n", This);
 798     return This->data->stretch;
 799 }
 800
 801 static DWRITE_FONT_STYLE WINAPI dwritefont_GetStyle(IDWriteFont2 *iface)
 802 {
 803     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 804     TRACE("(%p)\n", This);
 805     return This->data->style;
 806 }
 807
 808 static BOOL WINAPI dwritefont_IsSymbolFont(IDWriteFont2 *iface)
 809 {
 810     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 811     FIXME("(%p): stub\n", This);
 812     return FALSE;
 813 }
 814
 815 static HRESULT WINAPI dwritefont_GetFaceNames(IDWriteFont2 *iface, IDWriteLocalizedStrings **names)
 816 {
 817     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 818     FIXME("(%p)->(%p): stub\n", This, names);
 819     return E_NOTIMPL;
 820 }
 821
 822 static HRESULT WINAPI dwritefont_GetInformationalStrings(IDWriteFont2 *iface,
 823     DWRITE_INFORMATIONAL_STRING_ID stringid, IDWriteLocalizedStrings **strings, BOOL *exists)
 824 {
 825     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 826     struct dwrite_font_data *data = This->data;
 827     HRESULT hr;
 828
 829     TRACE("(%p)->(%d %p %p)\n", This, stringid, strings, exists);
 830
 831     *exists = FALSE;
 832     *strings = NULL;
 833
 834     if (stringid > DWRITE_INFORMATIONAL_STRING_POSTSCRIPT_CID_NAME || stringid == DWRITE_INFORMATIONAL_STRING_NONE)
 835         return S_OK;
 836
 837     if (!data->info_strings[stringid]) {
 838         IDWriteFontFace2 *fontface;
 839         const void *table_data;
 840         BOOL table_exists;
 841         void *context;
 842         UINT32 size;
 843
 844         hr = get_fontface_from_font(This, &fontface);
 845         if (FAILED(hr))
 846             return hr;
 847
 848         table_exists = FALSE;
 849         hr = IDWriteFontFace2_TryGetFontTable(fontface, MS_NAME_TAG, &table_data, &size, &context, &table_exists);
 850         if (FAILED(hr) || !table_exists)
 851             WARN("no NAME table found.\n");
 852
 853         if (table_exists) {
 854             hr = opentype_get_font_strings_from_id(table_data, stringid, &data->info_strings[stringid]);
 855             if (FAILED(hr) || !data->info_strings[stringid])
 856                 return hr;
 857             IDWriteFontFace2_ReleaseFontTable(fontface, context);
 858         }
 859     }
 860
 861     hr = clone_localizedstring(data->info_strings[stringid], strings);
 862     if (FAILED(hr))
 863         return hr;
 864
 865     *exists = TRUE;
 866     return S_OK;
 867 }
 868
 869 static DWRITE_FONT_SIMULATIONS WINAPI dwritefont_GetSimulations(IDWriteFont2 *iface)
 870 {
 871     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 872     TRACE("(%p)\n", This);
 873     return This->simulations;
 874 }
 875
 876 static void WINAPI dwritefont_GetMetrics(IDWriteFont2 *iface, DWRITE_FONT_METRICS *metrics)
 877 {
 878     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 879
 880     TRACE("(%p)->(%p)\n", This, metrics);
 881     *metrics = This->data->metrics;
 882 }
 883
 884 static HRESULT WINAPI dwritefont_HasCharacter(IDWriteFont2 *iface, UINT32 value, BOOL *exists)
 885 {
 886     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 887     IDWriteFontFace2 *fontface;
 888     UINT16 index;
 889     HRESULT hr;
 890
 891     TRACE("(%p)->(0x%08x %p)\n", This, value, exists);
 892
 893     *exists = FALSE;
 894
 895     hr = get_fontface_from_font(This, &fontface);
 896     if (FAILED(hr))
 897         return hr;
 898
 899     index = 0;
 900     hr = IDWriteFontFace2_GetGlyphIndices(fontface, &value, 1, &index);
 901     if (FAILED(hr))
 902         return hr;
 903
 904     *exists = index != 0;
 905     return S_OK;
 906 }
 907
 908 static HRESULT WINAPI dwritefont_CreateFontFace(IDWriteFont2 *iface, IDWriteFontFace **face)
 909 {
 910     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 911     HRESULT hr;
 912
 913     TRACE("(%p)->(%p)\n", This, face);
 914
 915     hr = get_fontface_from_font(This, (IDWriteFontFace2**)face);
 916     if (hr == S_OK)
 917         IDWriteFontFace_AddRef(*face);
 918
 919     return hr;
 920 }
 921
 922 static void WINAPI dwritefont1_GetMetrics(IDWriteFont2 *iface, DWRITE_FONT_METRICS1 *metrics)
 923 {
 924     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 925     FIXME("(%p)->(%p): stub\n", This, metrics);
 926 }
 927
 928 static void WINAPI dwritefont1_GetPanose(IDWriteFont2 *iface, DWRITE_PANOSE *panose)
 929 {
 930     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 931     FIXME("(%p)->(%p): stub\n", This, panose);
 932 }
 933
 934 static HRESULT WINAPI dwritefont1_GetUnicodeRanges(IDWriteFont2 *iface, UINT32 max_count, DWRITE_UNICODE_RANGE *ranges, UINT32 *count)
 935 {
 936     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 937     IDWriteFontFace2 *fontface;
 938     HRESULT hr;
 939
 940     TRACE("(%p)->(%u %p %p)\n", This, max_count, ranges, count);
 941
 942     hr = get_fontface_from_font(This, &fontface);
 943     if (FAILED(hr))
 944         return hr;
 945
 946     return IDWriteFontFace2_GetUnicodeRanges(fontface, max_count, ranges, count);
 947 }
 948
 949 static HRESULT WINAPI dwritefont1_IsMonospacedFont(IDWriteFont2 *iface)
 950 {
 951     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 952     FIXME("(%p): stub\n", This);
 953     return FALSE;
 954 }
 955
 956 static HRESULT WINAPI dwritefont2_IsColorFont(IDWriteFont2 *iface)
 957 {
 958     struct dwrite_font *This = impl_from_IDWriteFont2(iface);
 959     FIXME("(%p): stub\n", This);
 960     return FALSE;
 961 }
 962
 963 static const IDWriteFont2Vtbl dwritefontvtbl = {
 964     dwritefont_QueryInterface,
 965     dwritefont_AddRef,
 966     dwritefont_Release,
 967     dwritefont_GetFontFamily,
 968     dwritefont_GetWeight,
 969     dwritefont_GetStretch,
 970     dwritefont_GetStyle,
 971     dwritefont_IsSymbolFont,
 972     dwritefont_GetFaceNames,
 973     dwritefont_GetInformationalStrings,
 974     dwritefont_GetSimulations,
 975     dwritefont_GetMetrics,
 976     dwritefont_HasCharacter,
 977     dwritefont_CreateFontFace,
 978     dwritefont1_GetMetrics,
 979     dwritefont1_GetPanose,
 980     dwritefont1_GetUnicodeRanges,
 981     dwritefont1_IsMonospacedFont,
 982     dwritefont2_IsColorFont
 983 };
 984
 985 static HRESULT WINAPI dwritefontfamily_QueryInterface(IDWriteFontFamily *iface, REFIID riid, void **obj)
 986 {
 987     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 988     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 989
 990     if (IsEqualIID(riid, &IID_IUnknown) ||
 991         IsEqualIID(riid, &IID_IDWriteFontList) ||
 992         IsEqualIID(riid, &IID_IDWriteFontFamily))
 993     {
 994         *obj = iface;
 995         IDWriteFontFamily_AddRef(iface);
 996         return S_OK;
 997     }
 998
 999     *obj = NULL;
1000     return E_NOINTERFACE;
1001 }
1002
1003 static ULONG WINAPI dwritefontfamily_AddRef(IDWriteFontFamily *iface)
1004 {
1005     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1006     ULONG ref = InterlockedIncrement(&This->ref);
1007     TRACE("(%p)->(%d)\n", This, ref);
1008     return ref;
1009 }
1010
1011 static ULONG WINAPI dwritefontfamily_Release(IDWriteFontFamily *iface)
1012 {
1013     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1014     ULONG ref = InterlockedDecrement(&This->ref);
1015
1016     TRACE("(%p)->(%d)\n", This, ref);
1017
1018     if (!ref)
1019     {
1020         if (This->collection)
1021             IDWriteFontCollection_Release(This->collection);
1022         _free_fontfamily_data(This->data);
1023         heap_free(This);
1024     }
1025
1026     return ref;
1027 }
1028
1029 static HRESULT WINAPI dwritefontfamily_GetFontCollection(IDWriteFontFamily *iface, IDWriteFontCollection **collection)
1030 {
1031     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1032     TRACE("(%p)->(%p)\n", This, collection);
1033
1034     *collection = This->collection;
1035     IDWriteFontCollection_AddRef(This->collection);
1036     return S_OK;
1037 }
1038
1039 static UINT32 WINAPI dwritefontfamily_GetFontCount(IDWriteFontFamily *iface)
1040 {
1041     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1042     TRACE("(%p)\n", This);
1043     return This->data->font_count;
1044 }
1045
1046 static HRESULT WINAPI dwritefontfamily_GetFont(IDWriteFontFamily *iface, UINT32 index, IDWriteFont **font)
1047 {
1048     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1049
1050     TRACE("(%p)->(%u %p)\n", This, index, font);
1051
1052     *font = NULL;
1053
1054     if (This->data->font_count == 0)
1055         return S_FALSE;
1056
1057     if (index >= This->data->font_count)
1058         return E_INVALIDARG;
1059
1060     return create_font_from_data(This->data->fonts[index], iface, DWRITE_FONT_SIMULATIONS_NONE, font);
1061 }
1062
1063 static HRESULT WINAPI dwritefontfamily_GetFamilyNames(IDWriteFontFamily *iface, IDWriteLocalizedStrings **names)
1064 {
1065     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1066     return clone_localizedstring(This->data->familyname, names);
1067 }
1068
1069 static inline BOOL is_matching_font_style(DWRITE_FONT_STYLE style, DWRITE_FONT_STYLE font_style)
1070 {
1071     if (style == font_style)
1072         return TRUE;
1073
1074     if (((style == DWRITE_FONT_STYLE_ITALIC) || (style == DWRITE_FONT_STYLE_OBLIQUE)) && font_style == DWRITE_FONT_STYLE_NORMAL)
1075         return TRUE;
1076
1077     return FALSE;
1078 }
1079
1080 static HRESULT WINAPI dwritefontfamily_GetFirstMatchingFont(IDWriteFontFamily *iface, DWRITE_FONT_WEIGHT weight,
1081     DWRITE_FONT_STRETCH stretch, DWRITE_FONT_STYLE style, IDWriteFont **font)
1082 {
1083     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1084     UINT32 min_weight_diff = ~0u;
1085     int found = -1, i;
1086
1087     TRACE("(%p)->(%d %d %d %p)\n", This, weight, stretch, style, font);
1088
1089     for (i = 0; i < This->data->font_count; i++) {
1090         if (is_matching_font_style(style, This->data->fonts[i]->style) && stretch == This->data->fonts[i]->stretch) {
1091             DWRITE_FONT_WEIGHT font_weight = This->data->fonts[i]->weight;
1092             UINT32 weight_diff = abs(font_weight - weight);
1093             if (weight_diff < min_weight_diff) {
1094                 min_weight_diff = weight_diff;
1095                 found = i;
1096             }
1097         }
1098     }
1099
1100     if (found != -1) {
1101         DWRITE_FONT_SIMULATIONS simulations = DWRITE_FONT_SIMULATIONS_NONE;
1102
1103         if (((style == DWRITE_FONT_STYLE_ITALIC) || (style == DWRITE_FONT_STYLE_OBLIQUE)) &&
1104             This->data->fonts[found]->style == DWRITE_FONT_STYLE_ITALIC) {
1105             simulations = DWRITE_FONT_SIMULATIONS_OBLIQUE;
1106         }
1107         return create_font_from_data(This->data->fonts[found], iface, simulations, font);
1108     }
1109     else {
1110         *font = NULL;
1111         return DWRITE_E_NOFONT;
1112     }
1113 }
1114
1115 static HRESULT WINAPI dwritefontfamily_GetMatchingFonts(IDWriteFontFamily *iface, DWRITE_FONT_WEIGHT weight,
1116     DWRITE_FONT_STRETCH stretch, DWRITE_FONT_STYLE style, IDWriteFontList **fonts)
1117 {
1118     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
1119     FIXME("(%p)->(%d %d %d %p): stub\n", This, weight, stretch, style, fonts);
1120     return E_NOTIMPL;
1121 }
1122
1123 static const IDWriteFontFamilyVtbl fontfamilyvtbl = {
1124     dwritefontfamily_QueryInterface,
1125     dwritefontfamily_AddRef,
1126     dwritefontfamily_Release,
1127     dwritefontfamily_GetFontCollection,
1128     dwritefontfamily_GetFontCount,
1129     dwritefontfamily_GetFont,
1130     dwritefontfamily_GetFamilyNames,
1131     dwritefontfamily_GetFirstMatchingFont,
1132     dwritefontfamily_GetMatchingFonts
1133 };
1134
1135 static HRESULT WINAPI dwritefontcollection_QueryInterface(IDWriteFontCollection *iface, REFIID riid, void **obj)
1136 {
1137     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1138     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
1139
1140     if (IsEqualIID(riid, &IID_IUnknown) ||
1141         IsEqualIID(riid, &IID_IDWriteFontCollection))
1142     {
1143         *obj = iface;
1144         IDWriteFontCollection_AddRef(iface);
1145         return S_OK;
1146     }
1147
1148     *obj = NULL;
1149     return E_NOINTERFACE;
1150 }
1151
1152 static ULONG WINAPI dwritefontcollection_AddRef(IDWriteFontCollection *iface)
1153 {
1154     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1155     ULONG ref = InterlockedIncrement(&This->ref);
1156     TRACE("(%p)->(%d)\n", This, ref);
1157     return ref;
1158 }
1159
1160 static ULONG WINAPI dwritefontcollection_Release(IDWriteFontCollection *iface)
1161 {
1162     unsigned int i;
1163     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1164     ULONG ref = InterlockedDecrement(&This->ref);
1165     TRACE("(%p)->(%d)\n", This, ref);
1166
1167     if (!ref) {
1168         for (i = 0; i < This->family_count; i++)
1169             _free_fontfamily_data(This->family_data[i]);
1170         heap_free(This->family_data);
1171         heap_free(This);
1172     }
1173
1174     return ref;
1175 }
1176
1177 static UINT32 WINAPI dwritefontcollection_GetFontFamilyCount(IDWriteFontCollection *iface)
1178 {
1179     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1180     TRACE("(%p)\n", This);
1181     return This->family_count;
1182 }
1183
1184 static HRESULT WINAPI dwritefontcollection_GetFontFamily(IDWriteFontCollection *iface, UINT32 index, IDWriteFontFamily **family)
1185 {
1186     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1187
1188     TRACE("(%p)->(%u %p)\n", This, index, family);
1189
1190     if (index >= This->family_count) {
1191         *family = NULL;
1192         return E_FAIL;
1193     }
1194
1195     return create_fontfamily_from_data(This->family_data[index], iface, family);
1196 }
1197
1198 static HRESULT collection_find_family(struct dwrite_fontcollection *collection, const WCHAR *name, UINT32 *index, BOOL *exists)
1199 {
1200     UINT32 i;
1201
1202     if (collection->family_count) {
1203         for (i = 0; i < collection->family_count; i++) {
1204             IDWriteLocalizedStrings *family_name = collection->family_data[i]->familyname;
1205             HRESULT hr;
1206             int j;
1207
1208             for (j = 0; j < IDWriteLocalizedStrings_GetCount(family_name); j++) {
1209                 WCHAR buffer[255];
1210                 hr = IDWriteLocalizedStrings_GetString(family_name, j, buffer, 255);
1211                 if (SUCCEEDED(hr)) {
1212                     if (!strcmpW(buffer, name)) {
1213                         *index = i;
1214                         *exists = TRUE;
1215                         return S_OK;
1216                     }
1217                 }
1218             }
1219         }
1220         *index = (UINT32)-1;
1221         *exists = FALSE;
1222     }
1223
1224     return S_OK;
1225 }
1226
1227 static HRESULT WINAPI dwritefontcollection_FindFamilyName(IDWriteFontCollection *iface, const WCHAR *name, UINT32 *index, BOOL *exists)
1228 {
1229     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1230     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(name), index, exists);
1231     return collection_find_family(This, name, index, exists);
1232 }
1233
1234 static HRESULT WINAPI dwritefontcollection_GetFontFromFontFace(IDWriteFontCollection *iface, IDWriteFontFace *face, IDWriteFont **font)
1235 {
1236     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
1237     struct dwrite_fontfamily_data *found_family = NULL;
1238     struct dwrite_font_data *found_font = NULL;
1239     DWRITE_FONT_SIMULATIONS simulations;
1240     IDWriteFontFamily *family;
1241     UINT32 i, j;
1242     HRESULT hr;
1243
1244     TRACE("(%p)->(%p %p)\n", This, face, font);
1245
1246     *font = NULL;
1247
1248     if (!face)
1249         return E_INVALIDARG;
1250
1251     for (i = 0; i < This->family_count; i++) {
1252         struct dwrite_fontfamily_data *family_data = This->family_data[i];
1253         for (j = 0; j < family_data->font_count; j++) {
1254             if ((IDWriteFontFace*)family_data->fonts[j]->face == face) {
1255                 found_font = family_data->fonts[j];
1256                 found_family = family_data;
1257                 break;
1258             }
1259         }
1260     }
1261
1262     if (!found_font)
1263         return E_INVALIDARG;
1264
1265     hr = create_fontfamily_from_data(found_family, iface, &family);
1266     if (FAILED(hr))
1267         return hr;
1268
1269     simulations = IDWriteFontFace_GetSimulations(face);
1270     hr = create_font_from_data(found_font, family, simulations, font);
1271     IDWriteFontFamily_Release(family);
1272     return hr;
1273 }
1274
1275 static const IDWriteFontCollectionVtbl fontcollectionvtbl = {
1276     dwritefontcollection_QueryInterface,
1277     dwritefontcollection_AddRef,
1278     dwritefontcollection_Release,
1279     dwritefontcollection_GetFontFamilyCount,
1280     dwritefontcollection_GetFontFamily,
1281     dwritefontcollection_FindFamilyName,
1282     dwritefontcollection_GetFontFromFontFace
1283 };
1284
1285 static HRESULT fontfamily_add_font(struct dwrite_fontfamily_data *family_data, struct dwrite_font_data *font_data)
1286 {
1287     if (family_data->font_count + 1 >= family_data->font_alloc) {
1288         struct dwrite_font_data **new_list;
1289         UINT32 new_alloc;
1290
1291         new_alloc = family_data->font_alloc * 2;
1292         new_list = heap_realloc(family_data->fonts, sizeof(*family_data->fonts) * new_alloc);
1293         if (!new_list)
1294             return E_OUTOFMEMORY;
1295         family_data->fonts = new_list;
1296         family_data->font_alloc = new_alloc;
1297     }
1298
1299     family_data->fonts[family_data->font_count] = font_data;
1300     InterlockedIncrement(&font_data->ref);
1301     family_data->font_count++;
1302     return S_OK;
1303 }
1304
1305 static HRESULT fontcollection_add_family(struct dwrite_fontcollection *collection, struct dwrite_fontfamily_data *family)
1306 {
1307     if (collection->family_alloc < collection->family_count + 1) {
1308         struct dwrite_fontfamily_data **new_list;
1309         UINT32 new_alloc;
1310
1311         new_alloc = collection->family_alloc * 2;
1312         new_list = heap_realloc(collection->family_data, sizeof(*new_list) * new_alloc);
1313         if (!new_list)
1314             return E_OUTOFMEMORY;
1315
1316         collection->family_alloc = new_alloc;
1317         collection->family_data = new_list;
1318     }
1319
1320     collection->family_data[collection->family_count] = family;
1321     collection->family_count++;
1322
1323     return S_OK;
1324 }
1325
1326 static HRESULT init_font_collection(struct dwrite_fontcollection *collection)
1327 {
1328     collection->IDWriteFontCollection_iface.lpVtbl = &fontcollectionvtbl;
1329     collection->ref = 1;
1330     collection->family_count = 0;
1331     collection->family_alloc = 2;
1332
1333     collection->family_data = heap_alloc(sizeof(*collection->family_data)*2);
1334     if (!collection->family_data)
1335         return E_OUTOFMEMORY;
1336
1337     return S_OK;
1338 }
1339
1340 static HRESULT get_filestream_from_file(IDWriteFontFile *file, IDWriteFontFileStream **stream)
1341 {
1342     IDWriteFontFileLoader *loader;
1343     const void *key;
1344     UINT32 key_size;
1345     HRESULT hr;
1346
1347     *stream = NULL;
1348
1349     hr = IDWriteFontFile_GetReferenceKey(file, &key, &key_size);
1350     if (FAILED(hr))
1351         return hr;
1352
1353     hr = IDWriteFontFile_GetLoader(file, &loader);
1354     if (FAILED(hr))
1355         return hr;
1356
1357     hr = IDWriteFontFileLoader_CreateStreamFromKey(loader, key, key_size, stream);
1358     IDWriteFontFileLoader_Release(loader);
1359     if (FAILED(hr))
1360         return hr;
1361
1362     return hr;
1363 }
1364
1365 static HRESULT init_font_data(IDWriteFactory *factory, IDWriteFontFile *file, UINT32 face_index, DWRITE_FONT_FACE_TYPE face_type, struct dwrite_font_data *data)
1366 {
1367     void *os2_context, *head_context, *post_context;
1368     const void *tt_os2 = NULL, *tt_head = NULL, *tt_post = NULL;
1369     IDWriteFontFileStream *stream;
1370     HRESULT hr;
1371
1372     hr = get_filestream_from_file(file, &stream);
1373     if (FAILED(hr))
1374         return hr;
1375
1376     data->factory = factory;
1377     data->file = file;
1378     data->face = NULL;
1379     data->face_index = face_index;
1380     data->face_type = face_type;
1381     IDWriteFontFile_AddRef(file);
1382     IDWriteFactory_AddRef(factory);
1383
1384     opentype_get_font_table(stream, face_type, face_index, MS_OS2_TAG, &tt_os2, &os2_context, NULL, NULL);
1385     opentype_get_font_table(stream, face_type, face_index, MS_HEAD_TAG, &tt_head, &head_context, NULL, NULL);
1386     opentype_get_font_table(stream, face_type, face_index, MS_POST_TAG, &tt_post, &post_context, NULL, NULL);
1387
1388     get_font_properties(tt_os2, tt_head, tt_post, &data->metrics, &data->stretch, &data->weight, &data->style);
1389
1390     if (tt_os2)
1391         IDWriteFontFileStream_ReleaseFileFragment(stream, os2_context);
1392     if (tt_head)
1393         IDWriteFontFileStream_ReleaseFileFragment(stream, head_context);
1394     if (tt_post)
1395         IDWriteFontFileStream_ReleaseFileFragment(stream, post_context);
1396     IDWriteFontFileStream_Release(stream);
1397
1398     return S_OK;
1399 }
1400
1401 static HRESULT init_fontfamily_data(IDWriteLocalizedStrings *familyname, struct dwrite_fontfamily_data *data)
1402 {
1403     data->ref = 1;
1404     data->font_count = 0;
1405     data->font_alloc = 2;
1406
1407     data->fonts = heap_alloc(sizeof(*data->fonts)*data->font_alloc);
1408     if (!data->fonts) {
1409         heap_free(data);
1410         return E_OUTOFMEMORY;
1411     }
1412
1413     data->familyname = familyname;
1414     IDWriteLocalizedStrings_AddRef(familyname);
1415
1416     return S_OK;
1417 }
1418
1419 HRESULT create_font_collection(IDWriteFactory* factory, IDWriteFontFileEnumerator *enumerator, IDWriteFontCollection **ret)
1420 {
1421     struct dwrite_fontcollection *collection;
1422     BOOL current = FALSE;
1423     HRESULT hr;
1424
1425     *ret = NULL;
1426
1427     collection = heap_alloc(sizeof(struct dwrite_fontcollection));
1428     if (!collection) return E_OUTOFMEMORY;
1429
1430     hr = init_font_collection(collection);
1431     if (FAILED(hr)) {
1432         heap_free(collection);
1433         return hr;
1434     }
1435
1436     *ret = &collection->IDWriteFontCollection_iface;
1437
1438     TRACE("building font collection:\n");
1439
1440     while (1) {
1441         DWRITE_FONT_FACE_TYPE face_type;
1442         DWRITE_FONT_FILE_TYPE file_type;
1443         IDWriteFontFile *file;
1444         UINT32 face_count;
1445         BOOL supported;
1446         int i;
1447
1448         current = FALSE;
1449         hr = IDWriteFontFileEnumerator_MoveNext(enumerator, &current);
1450         if (FAILED(hr) || !current)
1451             break;
1452
1453         hr = IDWriteFontFileEnumerator_GetCurrentFontFile(enumerator, &file);
1454         if (FAILED(hr))
1455             break;
1456
1457         hr = IDWriteFontFile_Analyze(file, &supported, &file_type, &face_type, &face_count);
1458         if (FAILED(hr) || !supported || face_count == 0) {
1459             TRACE("unsupported font (0x%08x, %d, %u)\n", hr, supported, face_count);
1460             IDWriteFontFile_Release(file);
1461             continue;
1462         }
1463
1464         for (i = 0; i < face_count; i++) {
1465             IDWriteLocalizedStrings *family_name = NULL;
1466             struct dwrite_font_data *font_data;
1467             const void *name_table;
1468             void *name_context;
1469             IDWriteFontFileStream *stream;
1470             WCHAR buffer[255];
1471             UINT32 index;
1472             BOOL exists;
1473
1474             /* alloc and init new font data structure */
1475             font_data = heap_alloc_zero(sizeof(struct dwrite_font_data));
1476             init_font_data(factory, file, i, face_type, font_data);
1477
1478             hr = get_filestream_from_file(file, &stream);
1479             if (FAILED(hr)) {
1480                 heap_free (font_data);
1481                 return hr;
1482             }
1483
1484             /* get family name from font file */
1485             name_table = NULL;
1486             opentype_get_font_table(stream, face_type, i, MS_NAME_TAG, &name_table, &name_context, NULL, NULL);
1487             if (name_table)
1488                 hr = opentype_get_font_strings_from_id(name_table, DWRITE_INFORMATIONAL_STRING_WIN32_FAMILY_NAMES, &family_name);
1489             IDWriteFontFileStream_Release(stream);
1490
1491             if (FAILED(hr) || !family_name) {
1492                 WARN("unable to get family name from font\n");
1493                 continue;
1494             }
1495
1496             buffer[0] = 0;
1497             IDWriteLocalizedStrings_GetString(family_name, 0, buffer, sizeof(buffer)/sizeof(WCHAR));
1498
1499             exists = FALSE;
1500             hr = collection_find_family(collection, buffer, &index, &exists);
1501             if (exists)
1502                 hr = fontfamily_add_font(collection->family_data[index], font_data);
1503             else {
1504                 struct dwrite_fontfamily_data *family_data;
1505
1506                 /* create and init new family */
1507                 family_data = heap_alloc(sizeof(*family_data));
1508                 init_fontfamily_data(family_name, family_data);
1509
1510                 /* add font to family, family - to collection */
1511                 fontfamily_add_font(family_data, font_data);
1512                 fontcollection_add_family(collection, family_data);
1513             }
1514
1515             IDWriteLocalizedStrings_Release(family_name);
1516         }
1517
1518         IDWriteFontFile_Release(file);
1519     };
1520
1521     return S_OK;
1522 }
1523
1524 struct system_fontfile_enumerator
1525 {
1526     IDWriteFontFileEnumerator IDWriteFontFileEnumerator_iface;
1527     LONG ref;
1528
1529     IDWriteFactory *factory;
1530     HKEY hkey;
1531     int index;
1532 };
1533
1534 static inline struct system_fontfile_enumerator *impl_from_IDWriteFontFileEnumerator(IDWriteFontFileEnumerator* iface)
1535 {
1536     return CONTAINING_RECORD(iface, struct system_fontfile_enumerator, IDWriteFontFileEnumerator_iface);
1537 }
1538
1539 static HRESULT WINAPI systemfontfileenumerator_QueryInterface(IDWriteFontFileEnumerator *iface, REFIID riid, void **obj)
1540 {
1541     *obj = NULL;
1542
1543     if (IsEqualIID(riid, &IID_IDWriteFontFileEnumerator) || IsEqualIID(riid, &IID_IUnknown)) {
1544         IDWriteFontFileEnumerator_AddRef(iface);
1545         *obj = iface;
1546         return S_OK;
1547     }
1548
1549     return E_NOINTERFACE;
1550 }
1551
1552 static ULONG WINAPI systemfontfileenumerator_AddRef(IDWriteFontFileEnumerator *iface)
1553 {
1554     struct system_fontfile_enumerator *enumerator = impl_from_IDWriteFontFileEnumerator(iface);
1555     return InterlockedIncrement(&enumerator->ref);
1556 }
1557
1558 static ULONG WINAPI systemfontfileenumerator_Release(IDWriteFontFileEnumerator *iface)
1559 {
1560     struct system_fontfile_enumerator *enumerator = impl_from_IDWriteFontFileEnumerator(iface);
1561     ULONG ref = InterlockedDecrement(&enumerator->ref);
1562
1563     if (!ref) {
1564         IDWriteFactory_Release(enumerator->factory);
1565         RegCloseKey(enumerator->hkey);
1566         heap_free(enumerator);
1567     }
1568
1569     return ref;
1570 }
1571
1572 static HRESULT WINAPI systemfontfileenumerator_GetCurrentFontFile(IDWriteFontFileEnumerator *iface, IDWriteFontFile **file)
1573 {
1574     struct system_fontfile_enumerator *enumerator = impl_from_IDWriteFontFileEnumerator(iface);
1575     DWORD ret, type, count;
1576     HRESULT hr;
1577     BYTE *data;
1578
1579     *file = NULL;
1580
1581     if (enumerator->index < 0)
1582         return E_FAIL;
1583
1584     if (RegEnumValueW(enumerator->hkey, enumerator->index, NULL, NULL, NULL, &type, NULL, &count))
1585         return E_FAIL;
1586
1587     if (!(data = heap_alloc(count)))
1588         return E_OUTOFMEMORY;
1589
1590     ret = RegEnumValueW(enumerator->hkey, enumerator->index, NULL, NULL, NULL, &type, data, &count);
1591     if (ret) {
1592         heap_free(data);
1593         return E_FAIL;
1594     }
1595
1596     hr = IDWriteFactory_CreateFontFileReference(enumerator->factory, (WCHAR*)data, NULL, file);
1597     heap_free(data);
1598     return hr;
1599 }
1600
1601 static HRESULT WINAPI systemfontfileenumerator_MoveNext(IDWriteFontFileEnumerator *iface, BOOL *current)
1602 {
1603     struct system_fontfile_enumerator *enumerator = impl_from_IDWriteFontFileEnumerator(iface);
1604
1605     *current = FALSE;
1606     enumerator->index++;
1607
1608     /* iterate until we find next string value */
1609     while (1) {
1610         DWORD type = 0, count;
1611         if (RegEnumValueW(enumerator->hkey, enumerator->index, NULL, NULL, NULL, &type, NULL, &count))
1612             break;
1613         if (type == REG_SZ) {
1614             *current = TRUE;
1615             break;
1616         }
1617         enumerator->index++;
1618     }
1619
1620     TRACE("index = %d, current = %d\n", enumerator->index, *current);
1621     return S_OK;
1622 }
1623
1624 static const struct IDWriteFontFileEnumeratorVtbl systemfontfileenumeratorvtbl =
1625 {
1626     systemfontfileenumerator_QueryInterface,
1627     systemfontfileenumerator_AddRef,
1628     systemfontfileenumerator_Release,
1629     systemfontfileenumerator_MoveNext,
1630     systemfontfileenumerator_GetCurrentFontFile
1631 };
1632
1633 static HRESULT create_system_fontfile_enumerator(IDWriteFactory *factory, IDWriteFontFileEnumerator **ret)
1634 {
1635     struct system_fontfile_enumerator *enumerator;
1636     static const WCHAR fontslistW[] = {
1637         'S','o','f','t','w','a','r','e','\\','M','i','c','r','o','s','o','f','t','\\',
1638         'W','i','n','d','o','w','s',' ','N','T','\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
1639         'F','o','n','t','s',0
1640     };
1641
1642     *ret = NULL;
1643
1644     enumerator = heap_alloc(sizeof(*enumerator));
1645     if (!enumerator)
1646         return E_OUTOFMEMORY;
1647
1648     enumerator->IDWriteFontFileEnumerator_iface.lpVtbl = &systemfontfileenumeratorvtbl;
1649     enumerator->ref = 1;
1650     enumerator->factory = factory;
1651     enumerator->index = -1;
1652     IDWriteFactory_AddRef(factory);
1653
1654     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, fontslistW, 0, GENERIC_READ, &enumerator->hkey)) {
1655         ERR("failed to open fonts list key\n");
1656         IDWriteFactory_Release(factory);
1657         heap_free(enumerator);
1658         return E_FAIL;
1659     }
1660
1661     *ret = &enumerator->IDWriteFontFileEnumerator_iface;
1662
1663     return S_OK;
1664 }
1665
1666 HRESULT get_system_fontcollection(IDWriteFactory *factory, IDWriteFontCollection **collection)
1667 {
1668     IDWriteFontFileEnumerator *enumerator;
1669     HRESULT hr;
1670
1671     *collection = NULL;
1672
1673     hr = create_system_fontfile_enumerator(factory, &enumerator);
1674     if (FAILED(hr))
1675         return hr;
1676
1677     TRACE("building system font collection for factory %p\n", factory);
1678     hr = create_font_collection(factory, enumerator, collection);
1679     IDWriteFontFileEnumerator_Release(enumerator);
1680     return hr;
1681 }
1682
1683 static HRESULT create_fontfamily_from_data(struct dwrite_fontfamily_data *data, IDWriteFontCollection *collection, IDWriteFontFamily **family)
1684 {
1685     struct dwrite_fontfamily *This;
1686
1687     *family = NULL;
1688
1689     This = heap_alloc(sizeof(struct dwrite_fontfamily));
1690     if (!This) return E_OUTOFMEMORY;
1691
1692     This->IDWriteFontFamily_iface.lpVtbl = &fontfamilyvtbl;
1693     This->ref = 1;
1694     This->collection = collection;
1695     if (collection)
1696         IDWriteFontCollection_AddRef(collection);
1697     This->data = data;
1698     InterlockedIncrement(&This->data->ref);
1699
1700     *family = &This->IDWriteFontFamily_iface;
1701
1702     return S_OK;
1703 }
1704
1705 static HRESULT create_font_from_data(struct dwrite_font_data *data, IDWriteFontFamily *family, DWRITE_FONT_SIMULATIONS simulations,
1706     IDWriteFont **font)
1707 {
1708     struct dwrite_font *This;
1709     *font = NULL;
1710
1711     This = heap_alloc(sizeof(struct dwrite_font));
1712     if (!This) return E_OUTOFMEMORY;
1713
1714     This->IDWriteFont2_iface.lpVtbl = &dwritefontvtbl;
1715     This->ref = 1;
1716     This->family = family;
1717     if (family)
1718         IDWriteFontFamily_AddRef(family);
1719     This->simulations = simulations;
1720     This->data = data;
1721     InterlockedIncrement(&This->data->ref);
1722
1723     *font = (IDWriteFont*)&This->IDWriteFont2_iface;
1724
1725     return S_OK;
1726 }
1727
1728 static HRESULT WINAPI dwritefontfile_QueryInterface(IDWriteFontFile *iface, REFIID riid, void **obj)
1729 {
1730     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
1731
1732     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
1733
1734     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDWriteFontFile))
1735     {
1736         *obj = iface;
1737         IDWriteFontFile_AddRef(iface);
1738         return S_OK;
1739     }
1740
1741     *obj = NULL;
1742     return E_NOINTERFACE;
1743 }
1744
1745 static ULONG WINAPI dwritefontfile_AddRef(IDWriteFontFile *iface)
1746 {
1747     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
1748     ULONG ref = InterlockedIncrement(&This->ref);
1749     TRACE("(%p)->(%d)\n", This, ref);
1750     return ref;
1751 }
1752
1753 static ULONG WINAPI dwritefontfile_Release(IDWriteFontFile *iface)
1754 {
1755     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
1756     ULONG ref = InterlockedDecrement(&This->ref);
1757
1758     TRACE("(%p)->(%d)\n", This, ref);
1759
1760     if (!ref)
1761     {
1762         IDWriteFontFileLoader_Release(This->loader);
1763         if (This->stream) IDWriteFontFileStream_Release(This->stream);
1764         heap_free(This->reference_key);
1765         heap_free(This);
1766     }
1767
1768     return ref;
1769 }
1770
1771 static HRESULT WINAPI dwritefontfile_GetReferenceKey(IDWriteFontFile *iface, const void **fontFileReferenceKey, UINT32 *fontFileReferenceKeySize)
1772 {
1773     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
1774     TRACE("(%p)->(%p, %p)\n", This, fontFileReferenceKey, fontFileReferenceKeySize);
1775     *fontFileReferenceKey = This->reference_key;
1776     *fontFileReferenceKeySize = This->key_size;
1777
1778     return S_OK;
1779 }
1780
1781 static HRESULT WINAPI dwritefontfile_GetLoader(IDWriteFontFile *iface, IDWriteFontFileLoader **fontFileLoader)
1782 {
1783     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
1784     TRACE("(%p)->(%p)\n", This, fontFileLoader);
1785     *fontFileLoader = This->loader;
1786     IDWriteFontFileLoader_AddRef(This->loader);
1787
1788     return S_OK;
1789 }
1790
1791 static HRESULT WINAPI dwritefontfile_Analyze(IDWriteFontFile *iface, BOOL *isSupportedFontType, DWRITE_FONT_FILE_TYPE *fontFileType, DWRITE_FONT_FACE_TYPE *fontFaceType, UINT32 *numberOfFaces)
1792 {
1793     struct dwrite_fontfile *This = impl_from_IDWriteFontFile(iface);
1794     IDWriteFontFileStream *stream;
1795     HRESULT hr;
1796
1797     TRACE("(%p)->(%p, %p, %p, %p)\n", This, isSupportedFontType, fontFileType, fontFaceType, numberOfFaces);
1798
1799     *isSupportedFontType = FALSE;
1800     *fontFileType = DWRITE_FONT_FILE_TYPE_UNKNOWN;
1801     if (fontFaceType)
1802         *fontFaceType = DWRITE_FONT_FACE_TYPE_UNKNOWN;
1803     *numberOfFaces = 0;
1804
1805     hr = IDWriteFontFileLoader_CreateStreamFromKey(This->loader, This->reference_key, This->key_size, &stream);
1806     if (FAILED(hr))
1807         return S_OK;
1808
1809     hr = opentype_analyze_font(stream, numberOfFaces, fontFileType, fontFaceType, isSupportedFontType);
1810
1811     /* TODO: Further Analysis */
1812     IDWriteFontFileStream_Release(stream);
1813     return S_OK;
1814 }
1815
1816 static const IDWriteFontFileVtbl dwritefontfilevtbl = {
1817     dwritefontfile_QueryInterface,
1818     dwritefontfile_AddRef,
1819     dwritefontfile_Release,
1820     dwritefontfile_GetReferenceKey,
1821     dwritefontfile_GetLoader,
1822     dwritefontfile_Analyze,
1823 };
1824
1825 HRESULT create_font_file(IDWriteFontFileLoader *loader, const void *reference_key, UINT32 key_size, IDWriteFontFile **font_file)
1826 {
1827     struct dwrite_fontfile *This;
1828
1829     This = heap_alloc(sizeof(struct dwrite_fontfile));
1830     if (!This) return E_OUTOFMEMORY;
1831
1832     This->IDWriteFontFile_iface.lpVtbl = &dwritefontfilevtbl;
1833     This->ref = 1;
1834     IDWriteFontFileLoader_AddRef(loader);
1835     This->loader = loader;
1836     This->stream = NULL;
1837     This->reference_key = heap_alloc(key_size);
1838     memcpy(This->reference_key, reference_key, key_size);
1839     This->key_size = key_size;
1840
1841     *font_file = &This->IDWriteFontFile_iface;
1842
1843     return S_OK;
1844 }
1845
1846 HRESULT create_fontface(DWRITE_FONT_FACE_TYPE facetype, UINT32 files_number, IDWriteFontFile* const* font_files, UINT32 index,
1847     DWRITE_FONT_SIMULATIONS simulations, IDWriteFontFace2 **ret)
1848 {
1849     struct dwrite_fontface *fontface;
1850     HRESULT hr = S_OK;
1851     int i;
1852
1853     fontface = heap_alloc(sizeof(struct dwrite_fontface));
1854     if (!fontface)
1855         return E_OUTOFMEMORY;
1856
1857     fontface->files = heap_alloc(sizeof(*fontface->files) * files_number);
1858     if (!fontface->files) {
1859         heap_free(fontface);
1860         return E_OUTOFMEMORY;
1861     }
1862
1863     fontface->IDWriteFontFace2_iface.lpVtbl = &dwritefontfacevtbl;
1864     fontface->ref = 1;
1865     fontface->type = facetype;
1866     fontface->file_count = files_number;
1867     fontface->cmap.data = NULL;
1868     fontface->cmap.context = NULL;
1869     fontface->cmap.size = 0;
1870
1871     /* Verify font file streams */
1872     for (i = 0; i < fontface->file_count && SUCCEEDED(hr); i++)
1873     {
1874         IDWriteFontFileStream *stream;
1875         hr = _dwritefontfile_GetFontFileStream(font_files[i], &stream);
1876         if (SUCCEEDED(hr))
1877             IDWriteFontFileStream_Release(stream);
1878     }
1879
1880     if (FAILED(hr)) {
1881         heap_free(fontface->files);
1882         heap_free(fontface);
1883         return hr;
1884     }
1885
1886     for (i = 0; i < fontface->file_count; i++) {
1887         fontface->files[i] = font_files[i];
1888         IDWriteFontFile_AddRef(font_files[i]);
1889     }
1890
1891     fontface->index = index;
1892     fontface->simulations = simulations;
1893
1894     *ret = &fontface->IDWriteFontFace2_iface;
1895     return S_OK;
1896 }
1897
1898 /* IDWriteLocalFontFileLoader and its required IDWriteFontFileStream */
1899
1900 struct dwrite_localfontfilestream
1901 {
1902     IDWriteFontFileStream IDWriteFontFileStream_iface;
1903     LONG ref;
1904
1905     HANDLE handle;
1906 };
1907
1908 struct dwrite_localfontfileloader {
1909     IDWriteLocalFontFileLoader IDWriteLocalFontFileLoader_iface;
1910     LONG ref;
1911 };
1912
1913 static inline struct dwrite_localfontfileloader *impl_from_IDWriteLocalFontFileLoader(IDWriteLocalFontFileLoader *iface)
1914 {
1915     return CONTAINING_RECORD(iface, struct dwrite_localfontfileloader, IDWriteLocalFontFileLoader_iface);
1916 }
1917
1918 static inline struct dwrite_localfontfilestream *impl_from_IDWriteFontFileStream(IDWriteFontFileStream *iface)
1919 {
1920     return CONTAINING_RECORD(iface, struct dwrite_localfontfilestream, IDWriteFontFileStream_iface);
1921 }
1922
1923 static HRESULT WINAPI localfontfilestream_QueryInterface(IDWriteFontFileStream *iface, REFIID riid, void **obj)
1924 {
1925     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
1926     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
1927     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDWriteFontFileStream))
1928     {
1929         *obj = iface;
1930         IDWriteFontFileStream_AddRef(iface);
1931         return S_OK;
1932     }
1933
1934     *obj = NULL;
1935     return E_NOINTERFACE;
1936 }
1937
1938 static ULONG WINAPI localfontfilestream_AddRef(IDWriteFontFileStream *iface)
1939 {
1940     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
1941     ULONG ref = InterlockedIncrement(&This->ref);
1942     TRACE("(%p)->(%d)\n", This, ref);
1943     return ref;
1944 }
1945
1946 static ULONG WINAPI localfontfilestream_Release(IDWriteFontFileStream *iface)
1947 {
1948     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
1949     ULONG ref = InterlockedDecrement(&This->ref);
1950
1951     TRACE("(%p)->(%d)\n", This, ref);
1952
1953     if (!ref)
1954     {
1955         if (This->handle != INVALID_HANDLE_VALUE)
1956             CloseHandle(This->handle);
1957         heap_free(This);
1958     }
1959
1960     return ref;
1961 }
1962
1963 static HRESULT WINAPI localfontfilestream_ReadFileFragment(IDWriteFontFileStream *iface, void const **fragment_start, UINT64 offset, UINT64 fragment_size, void **fragment_context)
1964 {
1965     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
1966     LARGE_INTEGER distance;
1967     DWORD bytes = fragment_size;
1968     DWORD read;
1969
1970     TRACE("(%p)->(%p, %s, %s, %p)\n",This, fragment_start,
1971           wine_dbgstr_longlong(offset), wine_dbgstr_longlong(fragment_size), fragment_context);
1972
1973     *fragment_context = NULL;
1974     distance.QuadPart = offset;
1975     if (!SetFilePointerEx(This->handle, distance, NULL, FILE_BEGIN))
1976         return E_FAIL;
1977     *fragment_start = *fragment_context = heap_alloc(bytes);
1978     if (!*fragment_context)
1979         return E_FAIL;
1980     if (!ReadFile(This->handle, *fragment_context, bytes, &read, NULL))
1981     {
1982         heap_free(*fragment_context);
1983         return E_FAIL;
1984     }
1985
1986     return S_OK;
1987 }
1988
1989 static void WINAPI localfontfilestream_ReleaseFileFragment(IDWriteFontFileStream *iface, void *fragment_context)
1990 {
1991     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
1992     TRACE("(%p)->(%p)\n", This, fragment_context);
1993     heap_free(fragment_context);
1994 }
1995
1996 static HRESULT WINAPI localfontfilestream_GetFileSize(IDWriteFontFileStream *iface, UINT64 *size)
1997 {
1998     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
1999     LARGE_INTEGER li;
2000     TRACE("(%p)->(%p)\n",This, size);
2001     GetFileSizeEx(This->handle, &li);
2002     *size = li.QuadPart;
2003     return S_OK;
2004 }
2005
2006 static HRESULT WINAPI localfontfilestream_GetLastWriteTime(IDWriteFontFileStream *iface, UINT64 *last_writetime)
2007 {
2008     struct dwrite_localfontfilestream *This = impl_from_IDWriteFontFileStream(iface);
2009     FIXME("(%p)->(%p): stub\n",This, last_writetime);
2010     *last_writetime = 0;
2011     return E_NOTIMPL;
2012 }
2013
2014 static const IDWriteFontFileStreamVtbl localfontfilestreamvtbl =
2015 {
2016     localfontfilestream_QueryInterface,
2017     localfontfilestream_AddRef,
2018     localfontfilestream_Release,
2019     localfontfilestream_ReadFileFragment,
2020     localfontfilestream_ReleaseFileFragment,
2021     localfontfilestream_GetFileSize,
2022     localfontfilestream_GetLastWriteTime
2023 };
2024
2025 static HRESULT create_localfontfilestream(HANDLE handle, IDWriteFontFileStream** iface)
2026 {
2027     struct dwrite_localfontfilestream *This = heap_alloc(sizeof(struct dwrite_localfontfilestream));
2028     if (!This)
2029         return E_OUTOFMEMORY;
2030
2031     This->ref = 1;
2032     This->handle = handle;
2033     This->IDWriteFontFileStream_iface.lpVtbl = &localfontfilestreamvtbl;
2034
2035     *iface = &This->IDWriteFontFileStream_iface;
2036     return S_OK;
2037 }
2038
2039 static HRESULT WINAPI localfontfileloader_QueryInterface(IDWriteLocalFontFileLoader *iface, REFIID riid, void **obj)
2040 {
2041     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2042
2043     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
2044
2045     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDWriteFontFileLoader) || IsEqualIID(riid, &IID_IDWriteLocalFontFileLoader))
2046     {
2047         *obj = iface;
2048         IDWriteLocalFontFileLoader_AddRef(iface);
2049         return S_OK;
2050     }
2051
2052     *obj = NULL;
2053     return E_NOINTERFACE;
2054 }
2055
2056 static ULONG WINAPI localfontfileloader_AddRef(IDWriteLocalFontFileLoader *iface)
2057 {
2058     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2059     ULONG ref = InterlockedIncrement(&This->ref);
2060     TRACE("(%p)->(%d)\n", This, ref);
2061     return ref;
2062 }
2063
2064 static ULONG WINAPI localfontfileloader_Release(IDWriteLocalFontFileLoader *iface)
2065 {
2066     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2067     ULONG ref = InterlockedDecrement(&This->ref);
2068
2069     TRACE("(%p)->(%d)\n", This, ref);
2070
2071     if (!ref)
2072         heap_free(This);
2073
2074     return ref;
2075 }
2076
2077 static HRESULT WINAPI localfontfileloader_CreateStreamFromKey(IDWriteLocalFontFileLoader *iface, const void *fontFileReferenceKey, UINT32 fontFileReferenceKeySize, IDWriteFontFileStream **fontFileStream)
2078 {
2079     HANDLE handle;
2080     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2081     const WCHAR *name = (const WCHAR*)fontFileReferenceKey;
2082
2083     TRACE("(%p)->(%p, %i, %p)\n",This, fontFileReferenceKey, fontFileReferenceKeySize, fontFileStream);
2084
2085     TRACE("name: %s\n",debugstr_w(name));
2086     handle = CreateFileW(name, GENERIC_READ, FILE_SHARE_READ|FILE_SHARE_WRITE,
2087                          NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
2088
2089     if (handle == INVALID_HANDLE_VALUE)
2090         return E_FAIL;
2091
2092     return create_localfontfilestream(handle, fontFileStream);
2093 }
2094
2095 static HRESULT WINAPI localfontfileloader_GetFilePathLengthFromKey(IDWriteLocalFontFileLoader *iface, void const *key, UINT32 key_size, UINT32 *length)
2096 {
2097     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2098     TRACE("(%p)->(%p, %i, %p)\n",This, key, key_size, length);
2099     *length = key_size;
2100     return S_OK;
2101 }
2102
2103 static HRESULT WINAPI localfontfileloader_GetFilePathFromKey(IDWriteLocalFontFileLoader *iface, void const *key, UINT32 key_size, WCHAR *path, UINT32 length)
2104 {
2105     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2106     TRACE("(%p)->(%p, %i, %p, %i)\n",This, key, key_size, path, length);
2107     if (length < key_size)
2108         return E_INVALIDARG;
2109     lstrcpynW((WCHAR*)key, path, key_size);
2110     return S_OK;
2111 }
2112
2113 static HRESULT WINAPI localfontfileloader_GetLastWriteTimeFromKey(IDWriteLocalFontFileLoader *iface, void const *key, UINT32 key_size, FILETIME *writetime)
2114 {
2115     struct dwrite_localfontfileloader *This = impl_from_IDWriteLocalFontFileLoader(iface);
2116     FIXME("(%p)->(%p, %i, %p):stub\n",This, key, key_size, writetime);
2117     return E_NOTIMPL;
2118 }
2119
2120 static const struct IDWriteLocalFontFileLoaderVtbl localfontfileloadervtbl = {
2121     localfontfileloader_QueryInterface,
2122     localfontfileloader_AddRef,
2123     localfontfileloader_Release,
2124     localfontfileloader_CreateStreamFromKey,
2125     localfontfileloader_GetFilePathLengthFromKey,
2126     localfontfileloader_GetFilePathFromKey,
2127     localfontfileloader_GetLastWriteTimeFromKey
2128 };
2129
2130 HRESULT create_localfontfileloader(IDWriteLocalFontFileLoader** iface)
2131 {
2132     struct dwrite_localfontfileloader *This = heap_alloc(sizeof(struct dwrite_localfontfileloader));
2133     if (!This)
2134         return E_OUTOFMEMORY;
2135
2136     This->ref = 1;
2137     This->IDWriteLocalFontFileLoader_iface.lpVtbl = &localfontfileloadervtbl;
2138
2139     *iface = &This->IDWriteLocalFontFileLoader_iface;
2140     return S_OK;
2141 }