dlls/dwrite/font.c

   1 /*
   2  *    Font and collections
   3  *
   4  * Copyright 2012 Nikolay Sivov for CodeWeavers
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #define COBJMACROS
  22
  23 #include "dwrite.h"
  24 #include "dwrite_private.h"
  25
  26 #include "wine/debug.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(dwrite);
  29
  30 /* PANOSE is 10 bytes in size, need to pack the structure properly */
  31 #include "pshpack2.h"
  32 typedef struct
  33 {
  34     ULONG version;
  35     ULONG revision;
  36     ULONG checksumadj;
  37     ULONG magic;
  38     USHORT flags;
  39     USHORT unitsPerEm;
  40     ULONGLONG created;
  41     ULONGLONG modified;
  42     SHORT xMin;
  43     SHORT yMin;
  44     SHORT xMax;
  45     SHORT yMax;
  46     USHORT macStyle;
  47     USHORT lowestRecPPEM;
  48     SHORT direction_hint;
  49     SHORT index_format;
  50     SHORT glyphdata_format;
  51 } TT_HEAD;
  52
  53 typedef struct
  54 {
  55     ULONG Version;
  56     ULONG italicAngle;
  57     SHORT underlinePosition;
  58     SHORT underlineThickness;
  59     ULONG fixed_pitch;
  60     ULONG minmemType42;
  61     ULONG maxmemType42;
  62     ULONG minmemType1;
  63     ULONG maxmemType1;
  64 } TT_POST;
  65
  66 typedef struct
  67 {
  68     USHORT version;
  69     SHORT xAvgCharWidth;
  70     USHORT usWeightClass;
  71     USHORT usWidthClass;
  72     SHORT fsType;
  73     SHORT ySubscriptXSize;
  74     SHORT ySubscriptYSize;
  75     SHORT ySubscriptXOffset;
  76     SHORT ySubscriptYOffset;
  77     SHORT ySuperscriptXSize;
  78     SHORT ySuperscriptYSize;
  79     SHORT ySuperscriptXOffset;
  80     SHORT ySuperscriptYOffset;
  81     SHORT yStrikeoutSize;
  82     SHORT yStrikeoutPosition;
  83     SHORT sFamilyClass;
  84     PANOSE panose;
  85     ULONG ulUnicodeRange1;
  86     ULONG ulUnicodeRange2;
  87     ULONG ulUnicodeRange3;
  88     ULONG ulUnicodeRange4;
  89     CHAR achVendID[4];
  90     USHORT fsSelection;
  91     USHORT usFirstCharIndex;
  92     USHORT usLastCharIndex;
  93     /* According to the Apple spec, original version didn't have the below fields,
  94      * version numbers were taken from the OpenType spec.
  95      */
  96     /* version 0 (TrueType 1.5) */
  97     USHORT sTypoAscender;
  98     USHORT sTypoDescender;
  99     USHORT sTypoLineGap;
 100     USHORT usWinAscent;
 101     USHORT usWinDescent;
 102     /* version 1 (TrueType 1.66) */
 103     ULONG ulCodePageRange1;
 104     ULONG ulCodePageRange2;
 105     /* version 2 (OpenType 1.2) */
 106     SHORT sxHeight;
 107     SHORT sCapHeight;
 108     USHORT usDefaultChar;
 109     USHORT usBreakChar;
 110     USHORT usMaxContext;
 111 } TT_OS2_V2;
 112 #include "poppack.h"
 113
 114 #ifdef WORDS_BIGENDIAN
 115 #define GET_BE_WORD(x) (x)
 116 #define GET_BE_DWORD(x) (x)
 117 #else
 118 #define GET_BE_WORD(x) MAKEWORD(HIBYTE(x), LOBYTE(x))
 119 #define GET_BE_DWORD(x) MAKELONG(GET_BE_WORD(HIWORD(x)), GET_BE_WORD(LOWORD(x)));
 120 #endif
 121
 122 #define MS_MAKE_TAG(ch0, ch1, ch2, ch3) \
 123                     ((DWORD)(BYTE)(ch0) | ((DWORD)(BYTE)(ch1) << 8) | \
 124                     ((DWORD)(BYTE)(ch2) << 16) | ((DWORD)(BYTE)(ch3) << 24))
 125
 126 #define MS_HEAD_TAG MS_MAKE_TAG('h','e','a','d')
 127 #define MS_OS2_TAG  MS_MAKE_TAG('O','S','/','2')
 128 #define MS_POST_TAG MS_MAKE_TAG('p','o','s','t')
 129
 130 struct dwrite_fontcollection {
 131     IDWriteFontCollection IDWriteFontCollection_iface;
 132
 133     WCHAR **families;
 134     UINT32 count;
 135     int alloc;
 136 };
 137
 138 static IDWriteFontCollection *system_collection;
 139
 140 struct dwrite_fontfamily {
 141     IDWriteFontFamily IDWriteFontFamily_iface;
 142     LONG ref;
 143
 144     WCHAR *familyname;
 145 };
 146
 147 struct dwrite_font {
 148     IDWriteFont IDWriteFont_iface;
 149     LONG ref;
 150
 151     IDWriteFontFamily *family;
 152     IDWriteFontFace *face;
 153     DWRITE_FONT_STYLE style;
 154     DWRITE_FONT_STRETCH stretch;
 155     DWRITE_FONT_WEIGHT weight;
 156     DWRITE_FONT_METRICS metrics;
 157     WCHAR *facename;
 158 };
 159
 160 struct dwrite_fontface {
 161     IDWriteFontFace IDWriteFontFace_iface;
 162     LONG ref;
 163
 164     LOGFONTW logfont;
 165 };
 166
 167 static HRESULT create_fontfamily(const WCHAR *familyname, IDWriteFontFamily **family);
 168
 169 static inline struct dwrite_fontface *impl_from_IDWriteFontFace(IDWriteFontFace *iface)
 170 {
 171     return CONTAINING_RECORD(iface, struct dwrite_fontface, IDWriteFontFace_iface);
 172 }
 173
 174 static inline struct dwrite_font *impl_from_IDWriteFont(IDWriteFont *iface)
 175 {
 176     return CONTAINING_RECORD(iface, struct dwrite_font, IDWriteFont_iface);
 177 }
 178
 179 static inline struct dwrite_fontfamily *impl_from_IDWriteFontFamily(IDWriteFontFamily *iface)
 180 {
 181     return CONTAINING_RECORD(iface, struct dwrite_fontfamily, IDWriteFontFamily_iface);
 182 }
 183
 184 static inline struct dwrite_fontcollection *impl_from_IDWriteFontCollection(IDWriteFontCollection *iface)
 185 {
 186     return CONTAINING_RECORD(iface, struct dwrite_fontcollection, IDWriteFontCollection_iface);
 187 }
 188
 189 static HRESULT WINAPI dwritefontface_QueryInterface(IDWriteFontFace *iface, REFIID riid, void **obj)
 190 {
 191     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 192
 193     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 194
 195     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDWriteFontFace))
 196     {
 197         *obj = iface;
 198         IDWriteFontFace_AddRef(iface);
 199         return S_OK;
 200     }
 201
 202     *obj = NULL;
 203     return E_NOINTERFACE;
 204 }
 205
 206 static ULONG WINAPI dwritefontface_AddRef(IDWriteFontFace *iface)
 207 {
 208     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 209     ULONG ref = InterlockedIncrement(&This->ref);
 210     TRACE("(%p)->(%d)\n", This, ref);
 211     return ref;
 212 }
 213
 214 static ULONG WINAPI dwritefontface_Release(IDWriteFontFace *iface)
 215 {
 216     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 217     ULONG ref = InterlockedDecrement(&This->ref);
 218
 219     TRACE("(%p)->(%d)\n", This, ref);
 220
 221     if (!ref)
 222         heap_free(This);
 223
 224     return ref;
 225 }
 226
 227 static DWRITE_FONT_FACE_TYPE WINAPI dwritefontface_GetType(IDWriteFontFace *iface)
 228 {
 229     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 230     FIXME("(%p): stub\n", This);
 231     return DWRITE_FONT_FACE_TYPE_UNKNOWN;
 232 }
 233
 234 static HRESULT WINAPI dwritefontface_GetFiles(IDWriteFontFace *iface, UINT32 *number_of_files,
 235     IDWriteFontFile **fontfiles)
 236 {
 237     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 238     FIXME("(%p)->(%p %p): stub\n", This, number_of_files, fontfiles);
 239     return E_NOTIMPL;
 240 }
 241
 242 static UINT32 WINAPI dwritefontface_GetIndex(IDWriteFontFace *iface)
 243 {
 244     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 245     FIXME("(%p): stub\n", This);
 246     return 0;
 247 }
 248
 249 static DWRITE_FONT_SIMULATIONS WINAPI dwritefontface_GetSimulations(IDWriteFontFace *iface)
 250 {
 251     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 252     FIXME("(%p): stub\n", This);
 253     return DWRITE_FONT_SIMULATIONS_NONE;
 254 }
 255
 256 static BOOL WINAPI dwritefontface_IsSymbolFont(IDWriteFontFace *iface)
 257 {
 258     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 259     FIXME("(%p): stub\n", This);
 260     return FALSE;
 261 }
 262
 263 static void WINAPI dwritefontface_GetMetrics(IDWriteFontFace *iface, DWRITE_FONT_METRICS *metrics)
 264 {
 265     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 266     FIXME("(%p)->(%p): stub\n", This, metrics);
 267 }
 268
 269 static UINT16 WINAPI dwritefontface_GetGlyphCount(IDWriteFontFace *iface)
 270 {
 271     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 272     FIXME("(%p): stub\n", This);
 273     return 0;
 274 }
 275
 276 static HRESULT WINAPI dwritefontface_GetDesignGlyphMetrics(IDWriteFontFace *iface,
 277     UINT16 const *glyph_indices, UINT32 glyph_count, DWRITE_GLYPH_METRICS *metrics, BOOL is_sideways)
 278 {
 279     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 280     FIXME("(%p)->(%p %u %p %d): stub\n", This, glyph_indices, glyph_count, metrics, is_sideways);
 281     return E_NOTIMPL;
 282 }
 283
 284 static HRESULT WINAPI dwritefontface_GetGlyphIndices(IDWriteFontFace *iface, UINT32 const *codepoints,
 285     UINT32 count, UINT16 *glyph_indices)
 286 {
 287     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 288     HFONT hfont;
 289     WCHAR *str;
 290     HDC hdc;
 291     unsigned int i;
 292
 293     TRACE("(%p)->(%p %u %p)\n", This, codepoints, count, glyph_indices);
 294
 295     str = heap_alloc(count*sizeof(WCHAR));
 296     if (!str) return E_OUTOFMEMORY;
 297
 298     for (i = 0; i < count; i++)
 299         str[i] = codepoints[i] < 0x10000 ? codepoints[i] : '?';
 300
 301     hdc = CreateCompatibleDC(0);
 302     hfont = CreateFontIndirectW(&This->logfont);
 303     SelectObject(hdc, hfont);
 304
 305     GetGlyphIndicesW(hdc, str, count, glyph_indices, 0);
 306     heap_free(str);
 307
 308     DeleteDC(hdc);
 309     DeleteObject(hfont);
 310
 311     return S_OK;
 312 }
 313
 314 static HRESULT WINAPI dwritefontface_TryGetFontTable(IDWriteFontFace *iface, UINT32 table_tag,
 315     const void **table_data, UINT32 *table_size, void **context, BOOL *exists)
 316 {
 317     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 318     FIXME("(%p)->(%u %p %p %p %p): stub\n", This, table_tag, table_data, table_size, context, exists);
 319     return E_NOTIMPL;
 320 }
 321
 322 static void WINAPI dwritefontface_ReleaseFontTable(IDWriteFontFace *iface, void *table_context)
 323 {
 324     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 325     FIXME("(%p)->(%p): stub\n", This, table_context);
 326 }
 327
 328 static HRESULT WINAPI dwritefontface_GetGlyphRunOutline(IDWriteFontFace *iface, FLOAT emSize,
 329     UINT16 const *glyph_indices, FLOAT const* glyph_advances, DWRITE_GLYPH_OFFSET const *glyph_offsets,
 330     UINT32 glyph_count, BOOL is_sideways, BOOL is_rtl, IDWriteGeometrySink *geometrysink)
 331 {
 332     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 333     FIXME("(%p)->(%f %p %p %p %u %d %d %p): stub\n", This, emSize, glyph_indices, glyph_advances, glyph_offsets,
 334         glyph_count, is_sideways, is_rtl, geometrysink);
 335     return E_NOTIMPL;
 336 }
 337
 338 static HRESULT WINAPI dwritefontface_GetRecommendedRenderingMode(IDWriteFontFace *iface, FLOAT emSize,
 339     FLOAT pixels_per_dip, DWRITE_MEASURING_MODE mode, IDWriteRenderingParams* params, DWRITE_RENDERING_MODE* rendering_mode)
 340 {
 341     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 342     FIXME("(%p)->(%f %f %d %p %p): stub\n", This, emSize, pixels_per_dip, mode, params, rendering_mode);
 343     return E_NOTIMPL;
 344 }
 345
 346 static HRESULT WINAPI dwritefontface_GetGdiCompatibleMetrics(IDWriteFontFace *iface, FLOAT emSize, FLOAT pixels_per_dip,
 347     DWRITE_MATRIX const *transform, DWRITE_FONT_METRICS *metrics)
 348 {
 349     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 350     FIXME("(%p)->(%f %f %p %p): stub\n", This, emSize, pixels_per_dip, transform, metrics);
 351     return E_NOTIMPL;
 352 }
 353
 354 static HRESULT WINAPI dwritefontface_GetGdiCompatibleGlyphMetrics(IDWriteFontFace *iface, FLOAT emSize, FLOAT pixels_per_dip,
 355     DWRITE_MATRIX const *transform, BOOL use_gdi_natural, UINT16 const *glyph_indices, UINT32 glyph_count,
 356     DWRITE_GLYPH_METRICS *metrics, BOOL is_sideways)
 357 {
 358     struct dwrite_fontface *This = impl_from_IDWriteFontFace(iface);
 359     FIXME("(%p)->(%f %f %p %d %p %u %p %d): stub\n", This, emSize, pixels_per_dip, transform, use_gdi_natural, glyph_indices,
 360         glyph_count, metrics, is_sideways);
 361     return E_NOTIMPL;
 362 }
 363
 364 static const IDWriteFontFaceVtbl dwritefontfacevtbl = {
 365     dwritefontface_QueryInterface,
 366     dwritefontface_AddRef,
 367     dwritefontface_Release,
 368     dwritefontface_GetType,
 369     dwritefontface_GetFiles,
 370     dwritefontface_GetIndex,
 371     dwritefontface_GetSimulations,
 372     dwritefontface_IsSymbolFont,
 373     dwritefontface_GetMetrics,
 374     dwritefontface_GetGlyphCount,
 375     dwritefontface_GetDesignGlyphMetrics,
 376     dwritefontface_GetGlyphIndices,
 377     dwritefontface_TryGetFontTable,
 378     dwritefontface_ReleaseFontTable,
 379     dwritefontface_GetGlyphRunOutline,
 380     dwritefontface_GetRecommendedRenderingMode,
 381     dwritefontface_GetGdiCompatibleMetrics,
 382     dwritefontface_GetGdiCompatibleGlyphMetrics
 383 };
 384
 385 static HRESULT create_fontface(struct dwrite_font *font, IDWriteFontFace **face)
 386 {
 387     struct dwrite_fontface *This;
 388
 389     *face = NULL;
 390
 391     This = heap_alloc(sizeof(struct dwrite_fontface));
 392     if (!This) return E_OUTOFMEMORY;
 393
 394     This->IDWriteFontFace_iface.lpVtbl = &dwritefontfacevtbl;
 395     This->ref = 1;
 396
 397     memset(&This->logfont, 0, sizeof(This->logfont));
 398     This->logfont.lfItalic = font->style == DWRITE_FONT_STYLE_ITALIC;
 399     /* weight values from DWRITE_FONT_WEIGHT match values used for LOGFONT */
 400     This->logfont.lfWeight = font->weight;
 401     strcpyW(This->logfont.lfFaceName, font->facename);
 402
 403     *face = &This->IDWriteFontFace_iface;
 404
 405     return S_OK;
 406 }
 407
 408 HRESULT convert_fontface_to_logfont(IDWriteFontFace *face, LOGFONTW *logfont)
 409 {
 410     struct dwrite_fontface *fontface = impl_from_IDWriteFontFace(face);
 411
 412     *logfont = fontface->logfont;
 413
 414     return S_OK;
 415 }
 416
 417 static HRESULT WINAPI dwritefont_QueryInterface(IDWriteFont *iface, REFIID riid, void **obj)
 418 {
 419     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 420
 421     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 422
 423     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDWriteFont))
 424     {
 425         *obj = iface;
 426         IDWriteFont_AddRef(iface);
 427         return S_OK;
 428     }
 429
 430     *obj = NULL;
 431     return E_NOINTERFACE;
 432 }
 433
 434 static ULONG WINAPI dwritefont_AddRef(IDWriteFont *iface)
 435 {
 436     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 437     ULONG ref = InterlockedIncrement(&This->ref);
 438     TRACE("(%p)->(%d)\n", This, ref);
 439     return ref;
 440 }
 441
 442 static ULONG WINAPI dwritefont_Release(IDWriteFont *iface)
 443 {
 444     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 445     ULONG ref = InterlockedDecrement(&This->ref);
 446
 447     TRACE("(%p)->(%d)\n", This, ref);
 448
 449     if (!ref)
 450     {
 451         if (This->face) IDWriteFontFace_Release(This->face);
 452         IDWriteFontFamily_Release(This->family);
 453         heap_free(This->facename);
 454         heap_free(This);
 455     }
 456
 457     return ref;
 458 }
 459
 460 static HRESULT WINAPI dwritefont_GetFontFamily(IDWriteFont *iface, IDWriteFontFamily **family)
 461 {
 462     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 463     TRACE("(%p)->(%p)\n", This, family);
 464
 465     *family = This->family;
 466     IDWriteFontFamily_AddRef(*family);
 467     return S_OK;
 468 }
 469
 470 static DWRITE_FONT_WEIGHT WINAPI dwritefont_GetWeight(IDWriteFont *iface)
 471 {
 472     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 473     TRACE("(%p)\n", This);
 474     return This->weight;
 475 }
 476
 477 static DWRITE_FONT_STRETCH WINAPI dwritefont_GetStretch(IDWriteFont *iface)
 478 {
 479     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 480     TRACE("(%p)\n", This);
 481     return This->stretch;
 482 }
 483
 484 static DWRITE_FONT_STYLE WINAPI dwritefont_GetStyle(IDWriteFont *iface)
 485 {
 486     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 487     TRACE("(%p)\n", This);
 488     return This->style;
 489 }
 490
 491 static BOOL WINAPI dwritefont_IsSymbolFont(IDWriteFont *iface)
 492 {
 493     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 494     FIXME("(%p): stub\n", This);
 495     return FALSE;
 496 }
 497
 498 static HRESULT WINAPI dwritefont_GetFaceNames(IDWriteFont *iface, IDWriteLocalizedStrings **names)
 499 {
 500     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 501     FIXME("(%p)->(%p): stub\n", This, names);
 502     return E_NOTIMPL;
 503 }
 504
 505 static HRESULT WINAPI dwritefont_GetInformationalStrings(IDWriteFont *iface,
 506     DWRITE_INFORMATIONAL_STRING_ID stringid, IDWriteLocalizedStrings **strings, BOOL *exists)
 507 {
 508     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 509     FIXME("(%p)->(%d %p %p): stub\n", This, stringid, strings, exists);
 510     return E_NOTIMPL;
 511 }
 512
 513 static DWRITE_FONT_SIMULATIONS WINAPI dwritefont_GetSimulations(IDWriteFont *iface)
 514 {
 515     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 516     FIXME("(%p): stub\n", This);
 517     return DWRITE_FONT_SIMULATIONS_NONE;
 518 }
 519
 520 static void WINAPI dwritefont_GetMetrics(IDWriteFont *iface, DWRITE_FONT_METRICS *metrics)
 521 {
 522     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 523
 524     TRACE("(%p)->(%p)\n", This, metrics);
 525     *metrics = This->metrics;
 526 }
 527
 528 static HRESULT WINAPI dwritefont_HasCharacter(IDWriteFont *iface, UINT32 value, BOOL *exists)
 529 {
 530     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 531     FIXME("(%p)->(0x%08x %p): stub\n", This, value, exists);
 532     return E_NOTIMPL;
 533 }
 534
 535 static HRESULT WINAPI dwritefont_CreateFontFace(IDWriteFont *iface, IDWriteFontFace **face)
 536 {
 537     struct dwrite_font *This = impl_from_IDWriteFont(iface);
 538
 539     TRACE("(%p)->(%p)\n", This, face);
 540
 541     if (!This->face)
 542     {
 543         HRESULT hr = create_fontface(This, &This->face);
 544         if (FAILED(hr)) return hr;
 545     }
 546
 547     *face = This->face;
 548     IDWriteFontFace_AddRef(*face);
 549
 550     return S_OK;
 551 }
 552
 553 static const IDWriteFontVtbl dwritefontvtbl = {
 554     dwritefont_QueryInterface,
 555     dwritefont_AddRef,
 556     dwritefont_Release,
 557     dwritefont_GetFontFamily,
 558     dwritefont_GetWeight,
 559     dwritefont_GetStretch,
 560     dwritefont_GetStyle,
 561     dwritefont_IsSymbolFont,
 562     dwritefont_GetFaceNames,
 563     dwritefont_GetInformationalStrings,
 564     dwritefont_GetSimulations,
 565     dwritefont_GetMetrics,
 566     dwritefont_HasCharacter,
 567     dwritefont_CreateFontFace
 568 };
 569
 570 static HRESULT WINAPI dwritefontfamily_QueryInterface(IDWriteFontFamily *iface, REFIID riid, void **obj)
 571 {
 572     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 573     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 574
 575     if (IsEqualIID(riid, &IID_IUnknown) ||
 576         IsEqualIID(riid, &IID_IDWriteFontList) ||
 577         IsEqualIID(riid, &IID_IDWriteFontFamily))
 578     {
 579         *obj = iface;
 580         IDWriteFontFamily_AddRef(iface);
 581         return S_OK;
 582     }
 583
 584     *obj = NULL;
 585     return E_NOINTERFACE;
 586 }
 587
 588 static ULONG WINAPI dwritefontfamily_AddRef(IDWriteFontFamily *iface)
 589 {
 590     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 591     ULONG ref = InterlockedIncrement(&This->ref);
 592     TRACE("(%p)->(%d)\n", This, ref);
 593     return ref;
 594 }
 595
 596 static ULONG WINAPI dwritefontfamily_Release(IDWriteFontFamily *iface)
 597 {
 598     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 599     ULONG ref = InterlockedDecrement(&This->ref);
 600
 601     TRACE("(%p)->(%d)\n", This, ref);
 602
 603     if (!ref)
 604     {
 605         heap_free(This->familyname);
 606         heap_free(This);
 607     }
 608
 609     return ref;
 610 }
 611
 612 static HRESULT WINAPI dwritefontfamily_GetFontCollection(IDWriteFontFamily *iface, IDWriteFontCollection **collection)
 613 {
 614     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 615     FIXME("(%p)->(%p): stub\n", This, collection);
 616     return E_NOTIMPL;
 617 }
 618
 619 static UINT32 WINAPI dwritefontfamily_GetFontCount(IDWriteFontFamily *iface)
 620 {
 621     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 622     FIXME("(%p): stub\n", This);
 623     return 0;
 624 }
 625
 626 static HRESULT WINAPI dwritefontfamily_GetFont(IDWriteFontFamily *iface, UINT32 index, IDWriteFont **font)
 627 {
 628     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 629     FIXME("(%p)->(%u %p): stub\n", This, index, font);
 630     return E_NOTIMPL;
 631 }
 632
 633 static HRESULT WINAPI dwritefontfamily_GetFamilyNames(IDWriteFontFamily *iface, IDWriteLocalizedStrings **names)
 634 {
 635     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 636     static const WCHAR enusW[] = {'e','n','-','u','s',0};
 637     HRESULT hr;
 638
 639     TRACE("(%p)->(%p)\n", This, names);
 640
 641     hr = create_localizedstrings(names);
 642     if (FAILED(hr)) return hr;
 643
 644     return add_localizedstring(*names, enusW, This->familyname);
 645 }
 646
 647 static HRESULT WINAPI dwritefontfamily_GetFirstMatchingFont(IDWriteFontFamily *iface, DWRITE_FONT_WEIGHT weight,
 648     DWRITE_FONT_STRETCH stretch, DWRITE_FONT_STYLE style, IDWriteFont **font)
 649 {
 650     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 651     LOGFONTW lf;
 652
 653     TRACE("(%p)->(%d %d %d %p)\n", This, weight, stretch, style, font);
 654
 655     memset(&lf, 0, sizeof(lf));
 656     lf.lfWeight = weight;
 657     lf.lfItalic = style == DWRITE_FONT_STYLE_ITALIC;
 658     strcpyW(lf.lfFaceName, This->familyname);
 659
 660     return create_font_from_logfont(&lf, font);
 661 }
 662
 663 static HRESULT WINAPI dwritefontfamily_GetMatchingFonts(IDWriteFontFamily *iface, DWRITE_FONT_WEIGHT weight,
 664     DWRITE_FONT_STRETCH stretch, DWRITE_FONT_STYLE style, IDWriteFontList **fonts)
 665 {
 666     struct dwrite_fontfamily *This = impl_from_IDWriteFontFamily(iface);
 667     FIXME("(%p)->(%d %d %d %p): stub\n", This, weight, stretch, style, fonts);
 668     return E_NOTIMPL;
 669 }
 670
 671 static const IDWriteFontFamilyVtbl fontfamilyvtbl = {
 672     dwritefontfamily_QueryInterface,
 673     dwritefontfamily_AddRef,
 674     dwritefontfamily_Release,
 675     dwritefontfamily_GetFontCollection,
 676     dwritefontfamily_GetFontCount,
 677     dwritefontfamily_GetFont,
 678     dwritefontfamily_GetFamilyNames,
 679     dwritefontfamily_GetFirstMatchingFont,
 680     dwritefontfamily_GetMatchingFonts
 681 };
 682
 683 static HRESULT WINAPI dwritefontcollection_QueryInterface(IDWriteFontCollection *iface, REFIID riid, void **obj)
 684 {
 685     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
 686     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
 687
 688     if (IsEqualIID(riid, &IID_IUnknown) ||
 689         IsEqualIID(riid, &IID_IDWriteFontCollection))
 690     {
 691         *obj = iface;
 692         IDWriteFontCollection_AddRef(iface);
 693         return S_OK;
 694     }
 695
 696     *obj = NULL;
 697     return E_NOINTERFACE;
 698 }
 699
 700 static ULONG WINAPI dwritesysfontcollection_AddRef(IDWriteFontCollection *iface)
 701 {
 702     return 2;
 703 }
 704
 705 static ULONG WINAPI dwritesysfontcollection_Release(IDWriteFontCollection *iface)
 706 {
 707     return 1;
 708 }
 709
 710 static UINT32 WINAPI dwritefontcollection_GetFontFamilyCount(IDWriteFontCollection *iface)
 711 {
 712     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
 713     TRACE("(%p)\n", This);
 714     return This->count;
 715 }
 716
 717 static HRESULT WINAPI dwritefontcollection_GetFontFamily(IDWriteFontCollection *iface, UINT32 index, IDWriteFontFamily **family)
 718 {
 719     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
 720
 721     TRACE("(%p)->(%u %p)\n", This, index, family);
 722
 723     if (index >= This->count)
 724     {
 725         *family = NULL;
 726         return E_FAIL;
 727     }
 728
 729     return create_fontfamily(This->families[index], family);
 730 }
 731
 732 static HRESULT WINAPI dwritefontcollection_FindFamilyName(IDWriteFontCollection *iface, const WCHAR *name, UINT32 *index, BOOL *exists)
 733 {
 734     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
 735     UINT32 i;
 736
 737     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(name), index, exists);
 738
 739     for (i = 0; i < This->count; i++)
 740         if (!strcmpW(This->families[i], name))
 741         {
 742             *index = i;
 743             *exists = TRUE;
 744             return S_OK;
 745         }
 746
 747     *index = (UINT32)-1;
 748     *exists = FALSE;
 749
 750     return S_OK;
 751 }
 752
 753 static HRESULT WINAPI dwritefontcollection_GetFontFromFontFace(IDWriteFontCollection *iface, IDWriteFontFace *face, IDWriteFont **font)
 754 {
 755     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
 756     FIXME("(%p)->(%p %p): stub\n", This, face, font);
 757     return E_NOTIMPL;
 758 }
 759
 760 static const IDWriteFontCollectionVtbl systemfontcollectionvtbl = {
 761     dwritefontcollection_QueryInterface,
 762     dwritesysfontcollection_AddRef,
 763     dwritesysfontcollection_Release,
 764     dwritefontcollection_GetFontFamilyCount,
 765     dwritefontcollection_GetFontFamily,
 766     dwritefontcollection_FindFamilyName,
 767     dwritefontcollection_GetFontFromFontFace
 768 };
 769
 770 static HRESULT add_family_syscollection(struct dwrite_fontcollection *collection, const WCHAR *family)
 771 {
 772     /* check for duplicate family name */
 773     if (collection->count && !strcmpW(collection->families[collection->count-1], family)) return S_OK;
 774
 775     /* double array length */
 776     if (collection->count == collection->alloc)
 777     {
 778         collection->alloc *= 2;
 779         collection->families = heap_realloc(collection->families, collection->alloc*sizeof(WCHAR*));
 780     }
 781
 782     collection->families[collection->count++] = heap_strdupW(family);
 783     TRACE("family name %s\n", debugstr_w(family));
 784
 785     return S_OK;
 786 }
 787
 788 static INT CALLBACK enum_font_families(const LOGFONTW *lf, const TEXTMETRICW *tm, DWORD type, LPARAM lParam)
 789 {
 790     struct dwrite_fontcollection *collection = (struct dwrite_fontcollection*)lParam;
 791     return add_family_syscollection(collection, lf->lfFaceName) == S_OK;
 792 }
 793
 794 static void release_font_collection(IDWriteFontCollection *iface)
 795 {
 796     struct dwrite_fontcollection *This = impl_from_IDWriteFontCollection(iface);
 797     unsigned int i;
 798
 799     for (i = 0; i < This->count; i++)
 800         heap_free(This->families[i]);
 801     heap_free(This->families);
 802     heap_free(This);
 803 }
 804
 805 void release_system_fontcollection(void)
 806 {
 807     if (system_collection)
 808         release_font_collection(system_collection);
 809 }
 810
 811 HRESULT get_system_fontcollection(IDWriteFontCollection **collection)
 812 {
 813     if (!system_collection)
 814     {
 815         struct dwrite_fontcollection *This;
 816         LOGFONTW lf;
 817         HDC hdc;
 818
 819         *collection = NULL;
 820
 821         This = heap_alloc(sizeof(struct dwrite_fontcollection));
 822         if (!This) return E_OUTOFMEMORY;
 823
 824         This->IDWriteFontCollection_iface.lpVtbl = &systemfontcollectionvtbl;
 825         This->alloc = 50;
 826         This->count = 0;
 827         This->families = heap_alloc(This->alloc*sizeof(WCHAR*));
 828
 829         TRACE("building system font collection:\n");
 830
 831         hdc = CreateCompatibleDC(0);
 832         memset(&lf, 0, sizeof(lf));
 833         lf.lfCharSet = DEFAULT_CHARSET;
 834         lf.lfPitchAndFamily = DEFAULT_PITCH;
 835         lf.lfFaceName[0] = 0;
 836         EnumFontFamiliesExW(hdc, &lf, enum_font_families, (LPARAM)This, 0);
 837         DeleteDC(hdc);
 838
 839         if (InterlockedCompareExchangePointer((void**)&system_collection, &This->IDWriteFontCollection_iface, NULL))
 840             release_font_collection(&This->IDWriteFontCollection_iface);
 841     }
 842
 843     *collection = system_collection;
 844
 845     return S_OK;
 846 }
 847
 848 static HRESULT create_fontfamily(const WCHAR *familyname, IDWriteFontFamily **family)
 849 {
 850     struct dwrite_fontfamily *This;
 851
 852     *family = NULL;
 853
 854     This = heap_alloc(sizeof(struct dwrite_fontfamily));
 855     if (!This) return E_OUTOFMEMORY;
 856
 857     This->IDWriteFontFamily_iface.lpVtbl = &fontfamilyvtbl;
 858     This->ref = 1;
 859     This->familyname = heap_strdupW(familyname);
 860
 861     *family = &This->IDWriteFontFamily_iface;
 862
 863     return S_OK;
 864 }
 865
 866 static void get_font_properties(struct dwrite_font *font, HDC hdc)
 867 {
 868     TT_OS2_V2 tt_os2;
 869     TT_HEAD tt_head;
 870     TT_POST tt_post;
 871     LONG size;
 872
 873     /* default stretch and weight to normal */
 874     font->stretch = DWRITE_FONT_STRETCH_NORMAL;
 875     font->weight = DWRITE_FONT_WEIGHT_NORMAL;
 876
 877     memset(&font->metrics, 0, sizeof(font->metrics));
 878
 879     size = GetFontData(hdc, MS_OS2_TAG, 0, NULL, 0);
 880     if (size != GDI_ERROR)
 881     {
 882         if (size > sizeof(tt_os2)) size = sizeof(tt_os2);
 883
 884         memset(&tt_os2, 0, sizeof(tt_os2));
 885         if (GetFontData(hdc, MS_OS2_TAG, 0, &tt_os2, size) != size) return;
 886
 887         /* DWRITE_FONT_STRETCH enumeration values directly match font data values */
 888         if (GET_BE_WORD(tt_os2.usWidthClass) <= DWRITE_FONT_STRETCH_ULTRA_EXPANDED)
 889             font->stretch = GET_BE_WORD(tt_os2.usWidthClass);
 890
 891         font->weight = GET_BE_WORD(tt_os2.usWeightClass);
 892         TRACE("stretch=%d, weight=%d\n", font->stretch, font->weight);
 893
 894         font->metrics.ascent    = GET_BE_WORD(tt_os2.sTypoAscender);
 895         font->metrics.descent   = GET_BE_WORD(tt_os2.sTypoDescender);
 896         font->metrics.lineGap   = GET_BE_WORD(tt_os2.sTypoLineGap);
 897         font->metrics.capHeight = GET_BE_WORD(tt_os2.sCapHeight);
 898         font->metrics.xHeight   = GET_BE_WORD(tt_os2.sxHeight);
 899         font->metrics.strikethroughPosition  = GET_BE_WORD(tt_os2.yStrikeoutPosition);
 900         font->metrics.strikethroughThickness = GET_BE_WORD(tt_os2.yStrikeoutSize);
 901     }
 902
 903     memset(&tt_head, 0, sizeof(tt_head));
 904     if (GetFontData(hdc, MS_HEAD_TAG, 0, &tt_head, sizeof(tt_head)) != GDI_ERROR)
 905     {
 906         font->metrics.designUnitsPerEm = GET_BE_WORD(tt_head.unitsPerEm);
 907     }
 908
 909     memset(&tt_post, 0, sizeof(tt_post));
 910     if (GetFontData(hdc, MS_POST_TAG, 0, &tt_post, sizeof(tt_post)) != GDI_ERROR)
 911     {
 912         font->metrics.underlinePosition = GET_BE_WORD(tt_post.underlinePosition);
 913         font->metrics.underlineThickness = GET_BE_WORD(tt_post.underlineThickness);
 914     }
 915 }
 916
 917 HRESULT create_font_from_logfont(const LOGFONTW *logfont, IDWriteFont **font)
 918 {
 919     const WCHAR* facename, *familyname;
 920     struct dwrite_font *This;
 921     IDWriteFontFamily *family;
 922     OUTLINETEXTMETRICW *otm;
 923     HRESULT hr;
 924     HFONT hfont;
 925     HDC hdc;
 926     int ret;
 927
 928     *font = NULL;
 929
 930     This = heap_alloc(sizeof(struct dwrite_font));
 931     if (!This) return E_OUTOFMEMORY;
 932
 933     hfont = CreateFontIndirectW(logfont);
 934     if (!hfont)
 935     {
 936         heap_free(This);
 937         return DWRITE_E_NOFONT;
 938     }
 939
 940     hdc = CreateCompatibleDC(0);
 941     SelectObject(hdc, hfont);
 942
 943     ret = GetOutlineTextMetricsW(hdc, 0, NULL);
 944     otm = heap_alloc(ret);
 945     if (!otm)
 946     {
 947         heap_free(This);
 948         DeleteDC(hdc);
 949         DeleteObject(hfont);
 950         return E_OUTOFMEMORY;
 951     }
 952     otm->otmSize = ret;
 953     ret = GetOutlineTextMetricsW(hdc, otm->otmSize, otm);
 954
 955     get_font_properties(This, hdc);
 956
 957     DeleteDC(hdc);
 958     DeleteObject(hfont);
 959
 960     facename = (WCHAR*)((char*)otm + (ptrdiff_t)otm->otmpFaceName);
 961     familyname = (WCHAR*)((char*)otm + (ptrdiff_t)otm->otmpFamilyName);
 962     TRACE("facename=%s, familyname=%s\n", debugstr_w(facename), debugstr_w(familyname));
 963
 964     hr = create_fontfamily(familyname, &family);
 965     heap_free(otm);
 966     if (hr != S_OK)
 967     {
 968         heap_free(This);
 969         return hr;
 970     }
 971
 972     This->IDWriteFont_iface.lpVtbl = &dwritefontvtbl;
 973     This->ref = 1;
 974     This->face = NULL;
 975     This->family = family;
 976     This->style = logfont->lfItalic ? DWRITE_FONT_STYLE_ITALIC : DWRITE_FONT_STYLE_NORMAL;
 977     This->facename = heap_strdupW(logfont->lfFaceName);
 978
 979     *font = &This->IDWriteFont_iface;
 980
 981     return S_OK;
 982 }