/* GDK - The GIMP Drawing Kit

 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald

 * Copyright (C) 1998-2002 Tor Lillqvist

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

/*

 * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS

 * file for a list of people on the GTK+ Team.  See the ChangeLog

 * files for a list of changes.  These files are distributed with

 * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 

 */

#include "config.h"

#include <stdio.h>

#include <stdlib.h>

#include <ctype.h>

#include "gdkfont.h"

#include "gdkpango.h" /* gdk_pango_context_get() */

#include "gdkdisplay.h"

#include "gdkprivate-win32.h"

static GHashTable *font_name_hash = NULL;

static GHashTable *fontset_name_hash = NULL;

static void

gdk_font_hash_insert (GdkFontType  type,

		      GdkFont     *font,

		      const gchar *font_name)

{

  GdkFontPrivateWin32 *private = (GdkFontPrivateWin32 *) font;

  GHashTable **hashp = (type == GDK_FONT_FONT) ?

    &font_name_hash : &fontset_name_hash;

  if (!*hashp)

    *hashp = g_hash_table_new (g_str_hash, g_str_equal);

  private->names = g_slist_prepend (private->names, g_strdup (font_name));

  g_hash_table_insert (*hashp, private->names->data, font);

}

static void

gdk_font_hash_remove (GdkFontType type,

		      GdkFont    *font)

{

  GdkFontPrivateWin32 *private = (GdkFontPrivateWin32 *) font;

  GSList *tmp_list;

  GHashTable *hash = (type == GDK_FONT_FONT) ?

    font_name_hash : fontset_name_hash;

  tmp_list = private->names;

  while (tmp_list)

    {

      g_hash_table_remove (hash, tmp_list->data);

      g_free (tmp_list->data);

      tmp_list = tmp_list->next;

    }

  g_slist_free (private->names);

  private->names = NULL;

}

static GdkFont *

gdk_font_hash_lookup (GdkFontType  type,

		      const gchar *font_name)

{

  GdkFont *result;

  GHashTable *hash = (type == GDK_FONT_FONT) ?

    font_name_hash : fontset_name_hash;

  if (!hash)

    return NULL;

  else

    {

      result = g_hash_table_lookup (hash, font_name);

      if (result)

	gdk_font_ref (result);

      return result;

    }

}

#ifdef G_ENABLE_DEBUG

static const char *

charset_name (DWORD charset)

{

  switch (charset)

    {

    case ANSI_CHARSET: return "ansi";

    case DEFAULT_CHARSET: return "default";

    case SYMBOL_CHARSET: return "symbol";

    case SHIFTJIS_CHARSET: return "shiftjis";

    case HANGEUL_CHARSET: return "hangeul";

    case GB2312_CHARSET: return "gb2312";

    case CHINESEBIG5_CHARSET: return "big5";

    case JOHAB_CHARSET: return "johab";

    case HEBREW_CHARSET: return "hebrew";

    case ARABIC_CHARSET: return "arabic";

    case GREEK_CHARSET: return "greek";

    case TURKISH_CHARSET: return "turkish";

    case VIETNAMESE_CHARSET: return "vietnamese";

    case THAI_CHARSET: return "thai";

    case EASTEUROPE_CHARSET: return "easteurope";

    case RUSSIAN_CHARSET: return "russian";

    case MAC_CHARSET: return "mac";

    case BALTIC_CHARSET: return "baltic";

    }

  return "unknown";

}

#endif

/* This table classifies Unicode characters according to the Microsoft

 * Unicode subset numbering. This is based on the table in "Developing

 * International Software for Windows 95 and Windows NT". This is almost,

 * but not quite, the same as the official Unicode block table in

 * Blocks.txt from ftp.unicode.org. The bit number field is the bitfield

 * number as in the FONTSIGNATURE struct's fsUsb field.

 * There are some grave bugs in the table in the books. For instance

 * it claims there are Hangul at U+3400..U+4DFF while this range in

 * fact contains CJK Unified Ideographs Extension A. Also, the whole

 * block of Hangul Syllables U+AC00..U+D7A3 is missing from the book.

 */

typedef enum

{

  U_BASIC_LATIN = 0,

  U_LATIN_1_SUPPLEMENT = 1,

  U_LATIN_EXTENDED_A = 2,

  U_LATIN_EXTENDED_B = 3,

  U_IPA_EXTENSIONS = 4,

  U_SPACING_MODIFIER_LETTERS = 5,

  U_COMBINING_DIACRITICAL_MARKS = 6,

  U_BASIC_GREEK = 7,

  U_GREEK_SYMBOLS_AND_COPTIC = 8,

  U_CYRILLIC = 9,

  U_ARMENIAN = 10,

  U_HEBREW_EXTENDED = 12,

  U_BASIC_HEBREW = 11,

  U_BASIC_ARABIC = 13,

  U_ARABIC_EXTENDED = 14,

  U_DEVANAGARI = 15,

  U_BENGALI = 16,

  U_GURMUKHI = 17,

  U_GUJARATI = 18,

  U_ORIYA = 19,

  U_TAMIL = 20,

  U_TELUGU = 21,

  U_KANNADA = 22,

  U_MALAYALAM = 23,

  U_THAI = 24,

  U_LAO = 25,

  U_GEORGIAN_EXTENDED = 27,

  U_BASIC_GEORGIAN = 26,

  U_HANGUL_JAMO = 28,

  U_LATIN_EXTENDED_ADDITIONAL = 29,

  U_GREEK_EXTENDED = 30,

  U_GENERAL_PUNCTUATION = 31,

  U_SUPERSCRIPTS_AND_SUBSCRIPTS = 32,

  U_CURRENCY_SYMBOLS = 33,

  U_COMBINING_DIACRITICAL_MARKS_FOR_SYMBOLS = 34,

  U_LETTERLIKE_SYMBOLS = 35,

  U_NUMBER_FORMS = 36,

  U_ARROWS = 37,

  U_MATHEMATICAL_OPERATORS = 38,

  U_MISCELLANEOUS_TECHNICAL = 39,

  U_CONTROL_PICTURES = 40,

  U_OPTICAL_CHARACTER_RECOGNITION = 41,

  U_ENCLOSED_ALPHANUMERICS = 42,

  U_BOX_DRAWING = 43,

  U_BLOCK_ELEMENTS = 44,

  U_GEOMETRIC_SHAPES = 45,

  U_MISCELLANEOUS_SYMBOLS = 46,

  U_DINGBATS = 47,

  U_CJK_SYMBOLS_AND_PUNCTUATION = 48,

  U_HIRAGANA = 49,

  U_KATAKANA = 50,

  U_BOPOMOFO = 51,

  U_HANGUL_COMPATIBILITY_JAMO = 52,

  U_CJK_MISCELLANEOUS = 53,

  U_ENCLOSED_CJK = 54,

  U_CJK_COMPATIBILITY = 55,

  U_HANGUL = 56,

  U_HANGUL_SUPPLEMENTARY_A = 57,

  U_HANGUL_SUPPLEMENTARY_B = 58,

  U_CJK_UNIFIED_IDEOGRAPHS = 59,

  U_PRIVATE_USE_AREA = 60,

  U_CJK_COMPATIBILITY_IDEOGRAPHS = 61,

  U_ALPHABETIC_PRESENTATION_FORMS = 62,

  U_ARABIC_PRESENTATION_FORMS_A = 63,

  U_COMBINING_HALF_MARKS = 64,

  U_CJK_COMPATIBILITY_FORMS = 65,

  U_SMALL_FORM_VARIANTS = 66,

  U_ARABIC_PRESENTATION_FORMS_B = 67,

  U_SPECIALS = 69,

  U_HALFWIDTH_AND_FULLWIDTH_FORMS = 68,

  U_LAST_PLUS_ONE

} unicode_subset;

static struct {

  wchar_t low, high;

  unicode_subset bit; 

  gchar *name;

} utab[] =

{

  { 0x0000, 0x007E,

    U_BASIC_LATIN, "Basic Latin" },

  { 0x00A0, 0x00FF,

    U_LATIN_1_SUPPLEMENT, "Latin-1 Supplement" },

  { 0x0100, 0x017F,

    U_LATIN_EXTENDED_A, "Latin Extended-A" },

  { 0x0180, 0x024F,

    U_LATIN_EXTENDED_B, "Latin Extended-B" },

  { 0x0250, 0x02AF,

    U_IPA_EXTENSIONS, "IPA Extensions" },

  { 0x02B0, 0x02FF,

    U_SPACING_MODIFIER_LETTERS, "Spacing Modifier Letters" },

  { 0x0300, 0x036F,

    U_COMBINING_DIACRITICAL_MARKS, "Combining Diacritical Marks" },

  { 0x0370, 0x03CF,

    U_BASIC_GREEK, "Basic Greek" },

  { 0x03D0, 0x03FF,

    U_GREEK_SYMBOLS_AND_COPTIC, "Greek Symbols and Coptic" },

  { 0x0400, 0x04FF,

    U_CYRILLIC, "Cyrillic" },

  { 0x0530, 0x058F,

    U_ARMENIAN, "Armenian" },

  { 0x0590, 0x05CF,

    U_HEBREW_EXTENDED, "Hebrew Extended" },

  { 0x05D0, 0x05FF,

    U_BASIC_HEBREW, "Basic Hebrew" },

  { 0x0600, 0x0652,

    U_BASIC_ARABIC, "Basic Arabic" },

  { 0x0653, 0x06FF,

    U_ARABIC_EXTENDED, "Arabic Extended" },

  { 0x0900, 0x097F,

    U_DEVANAGARI, "Devanagari" },

  { 0x0980, 0x09FF,

    U_BENGALI, "Bengali" },

  { 0x0A00, 0x0A7F,

    U_GURMUKHI, "Gurmukhi" },

  { 0x0A80, 0x0AFF,

    U_GUJARATI, "Gujarati" },

  { 0x0B00, 0x0B7F,

    U_ORIYA, "Oriya" },

  { 0x0B80, 0x0BFF,

    U_TAMIL, "Tamil" },

  { 0x0C00, 0x0C7F,

    U_TELUGU, "Telugu" },

  { 0x0C80, 0x0CFF,

    U_KANNADA, "Kannada" },

  { 0x0D00, 0x0D7F,

    U_MALAYALAM, "Malayalam" },

  { 0x0E00, 0x0E7F,

    U_THAI, "Thai" },

  { 0x0E80, 0x0EFF,

    U_LAO, "Lao" },

  { 0x10A0, 0x10CF,

    U_GEORGIAN_EXTENDED, "Georgian Extended" },

  { 0x10D0, 0x10FF,

    U_BASIC_GEORGIAN, "Basic Georgian" },

  { 0x1100, 0x11FF,

    U_HANGUL_JAMO, "Hangul Jamo" },

  { 0x1E00, 0x1EFF,

    U_LATIN_EXTENDED_ADDITIONAL, "Latin Extended Additional" },

  { 0x1F00, 0x1FFF,

    U_GREEK_EXTENDED, "Greek Extended" },

  { 0x2000, 0x206F,

    U_GENERAL_PUNCTUATION, "General Punctuation" },

  { 0x2070, 0x209F,

    U_SUPERSCRIPTS_AND_SUBSCRIPTS, "Superscripts and Subscripts" },

  { 0x20A0, 0x20CF,

    U_CURRENCY_SYMBOLS, "Currency Symbols" },

  { 0x20D0, 0x20FF,

    U_COMBINING_DIACRITICAL_MARKS_FOR_SYMBOLS, "Combining Diacritical Marks for Symbols" },

  { 0x2100, 0x214F,

    U_LETTERLIKE_SYMBOLS, "Letterlike Symbols" },

  { 0x2150, 0x218F,

    U_NUMBER_FORMS, "Number Forms" },

  { 0x2190, 0x21FF,

    U_ARROWS, "Arrows" },

  { 0x2200, 0x22FF,

    U_MATHEMATICAL_OPERATORS, "Mathematical Operators" },

  { 0x2300, 0x23FF,

    U_MISCELLANEOUS_TECHNICAL, "Miscellaneous Technical" },

  { 0x2400, 0x243F,

    U_CONTROL_PICTURES, "Control Pictures" },

  { 0x2440, 0x245F,

    U_OPTICAL_CHARACTER_RECOGNITION, "Optical Character Recognition" },

  { 0x2460, 0x24FF,

    U_ENCLOSED_ALPHANUMERICS, "Enclosed Alphanumerics" },

  { 0x2500, 0x257F,

    U_BOX_DRAWING, "Box Drawing" },

  { 0x2580, 0x259F,

    U_BLOCK_ELEMENTS, "Block Elements" },

  { 0x25A0, 0x25FF,

    U_GEOMETRIC_SHAPES, "Geometric Shapes" },

  { 0x2600, 0x26FF,

    U_MISCELLANEOUS_SYMBOLS, "Miscellaneous Symbols" },

  { 0x2700, 0x27BF,

    U_DINGBATS, "Dingbats" },

  { 0x3000, 0x303F,

    U_CJK_SYMBOLS_AND_PUNCTUATION, "CJK Symbols and Punctuation" },

  { 0x3040, 0x309F,

    U_HIRAGANA, "Hiragana" },

  { 0x30A0, 0x30FF,

    U_KATAKANA, "Katakana" },

  { 0x3100, 0x312F,

    U_BOPOMOFO, "Bopomofo" },

  { 0x3130, 0x318F,

    U_HANGUL_COMPATIBILITY_JAMO, "Hangul Compatibility Jamo" },

  { 0x3190, 0x319F,

    U_CJK_MISCELLANEOUS, "CJK Miscellaneous" },

  { 0x3200, 0x32FF,

    U_ENCLOSED_CJK, "Enclosed CJK" },

  { 0x3300, 0x33FF,

    U_CJK_COMPATIBILITY, "CJK Compatibility" },

  /* The book claims:

   * U+3400..U+3D2D = Hangul

   * U+3D2E..U+44B7 = Hangul Supplementary A

   * U+44B8..U+4DFF = Hangul Supplementary B

   * but actually in Unicode

   * U+3400..U+4DB5 = CJK Unified Ideographs Extension A

   */

  { 0x3400, 0x4DB5,

    U_CJK_UNIFIED_IDEOGRAPHS, "CJK Unified Ideographs Extension A" },

  { 0x4E00, 0x9FFF,

    U_CJK_UNIFIED_IDEOGRAPHS, "CJK Unified Ideographs" },

  /* This was missing completely from the book's table. */

  { 0xAC00, 0xD7A3,

    U_HANGUL, "Hangul Syllables" },

  { 0xE000, 0xF8FF,

    U_PRIVATE_USE_AREA, "Private Use Area" },

  { 0xF900, 0xFAFF,

    U_CJK_COMPATIBILITY_IDEOGRAPHS, "CJK Compatibility Ideographs" },

  { 0xFB00, 0xFB4F,

    U_ALPHABETIC_PRESENTATION_FORMS, "Alphabetic Presentation Forms" },

  { 0xFB50, 0xFDFF,

    U_ARABIC_PRESENTATION_FORMS_A, "Arabic Presentation Forms-A" },

  { 0xFE20, 0xFE2F,

    U_COMBINING_HALF_MARKS, "Combining Half Marks" },

  { 0xFE30, 0xFE4F,

    U_CJK_COMPATIBILITY_FORMS, "CJK Compatibility Forms" },

  { 0xFE50, 0xFE6F,

    U_SMALL_FORM_VARIANTS, "Small Form Variants" },

  { 0xFE70, 0xFEFE,

    U_ARABIC_PRESENTATION_FORMS_B, "Arabic Presentation Forms-B" },

  { 0xFEFF, 0xFEFF,

    U_SPECIALS, "Specials" },

  { 0xFF00, 0xFFEF,

    U_HALFWIDTH_AND_FULLWIDTH_FORMS, "Halfwidth and Fullwidth Forms" },

  { 0xFFF0, 0xFFFD,

    U_SPECIALS, "Specials" }

};

#ifdef G_ENABLE_DEBUG

static void

print_unicode_subranges (FONTSIGNATURE *fsp)

{

  int i;

  gboolean checked[G_N_ELEMENTS (utab)];

  gboolean need_comma = FALSE;

  memset (checked, 0, sizeof (checked));

  for (i = 0; i < G_N_ELEMENTS (utab); i++)

    if (!checked[i]

	&& (fsp->fsUsb[utab[i].bit/32] & (1 << (utab[i].bit % 32))))

      {

	g_print ("%s %s", (need_comma ? "," : ""), utab[i].name);

	need_comma = TRUE;

	checked[i] = TRUE;

      }

  if (!need_comma)

    g_print (" none!");

  g_print ("\n");

}

#endif

static gboolean

check_unicode_subranges (UINT           charset,

			 FONTSIGNATURE *fsp)

{

  gint i;

  gboolean retval = FALSE;

  /* If the fsUsb bit array has at least one of the bits set, trust it */

  for (i = 0; i < U_LAST_PLUS_ONE; i++)

    if (i != U_PRIVATE_USE_AREA && (fsp->fsUsb[i/32] & (1 << (i % 32))))

      return FALSE;

  /* Otherwise, guess what subranges there should be in the font */

  fsp->fsUsb[0] = fsp->fsUsb[1] = fsp->fsUsb[2] = fsp->fsUsb[3] = 0;

#define set_bit(bitno) (fsp->fsUsb[(bitno)/32] |= (1 << ((bitno) % 32)))

  /* Set Unicode subrange bits based on code pages supported.

   * This is mostly just guesswork.

   */

#define check_cp(bit) (fsp->fsCsb[0] & (bit))

  if (check_cp(FS_LATIN1))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_CURRENCY_SYMBOLS);

      retval = TRUE;

    }

  if (check_cp (FS_LATIN2))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_CURRENCY_SYMBOLS);

      retval = TRUE;

    }

  if (check_cp (FS_CYRILLIC))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_CYRILLIC);

      retval = TRUE;

    }

  if (check_cp (FS_GREEK))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_BASIC_GREEK);

      retval = TRUE;

    }

  if (check_cp (FS_TURKISH))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_CURRENCY_SYMBOLS);

      retval = TRUE;

    }

  if (check_cp (FS_HEBREW))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_BASIC_HEBREW);

      set_bit (U_HEBREW_EXTENDED);

      retval = TRUE;

    }

  if (check_cp (FS_ARABIC))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_BASIC_ARABIC);

      set_bit (U_ARABIC_EXTENDED);

      retval = TRUE;

    }

  if (check_cp (FS_BALTIC))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      retval = TRUE;

    }

  if (check_cp (FS_VIETNAMESE))

    {

      /* ??? */

      set_bit (U_BASIC_LATIN);

      retval = TRUE;

    }

  if (check_cp (FS_THAI))

    {

      set_bit (U_BASIC_LATIN);

      set_bit (U_THAI);

      retval = TRUE;

    }

  if (check_cp (FS_JISJAPAN))

    {

      /* Based on MS Gothic */

      set_bit (U_BASIC_LATIN);

      set_bit (U_CJK_SYMBOLS_AND_PUNCTUATION);

      set_bit (U_HIRAGANA);

      set_bit (U_KATAKANA);

      set_bit (U_CJK_UNIFIED_IDEOGRAPHS);

      set_bit (U_HALFWIDTH_AND_FULLWIDTH_FORMS);

      retval = TRUE;

    }

  if (check_cp (FS_CHINESESIMP))

    {

      /* Based on MS Hei */

      set_bit (U_BASIC_LATIN);

      set_bit (U_HIRAGANA);

      set_bit (U_KATAKANA);

      set_bit (U_BOPOMOFO);

      set_bit (U_CJK_UNIFIED_IDEOGRAPHS);

      retval = TRUE;

    }

  if (check_cp (FS_WANSUNG)

      || check_cp (FS_JOHAB))	/* ??? */

    {

      /* Based on GulimChe. I wonder if all Korean fonts

       * really support this large range of Unicode subranges?

       */

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_BASIC_GREEK);

      set_bit (U_CYRILLIC);

      set_bit (U_HANGUL_JAMO);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_NUMBER_FORMS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_ENCLOSED_ALPHANUMERICS);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      set_bit (U_CJK_SYMBOLS_AND_PUNCTUATION);

      set_bit (U_HIRAGANA);

      set_bit (U_KATAKANA);

      set_bit (U_HANGUL_COMPATIBILITY_JAMO);

      set_bit (U_ENCLOSED_CJK);

      set_bit (U_CJK_COMPATIBILITY_FORMS);

      set_bit (U_HANGUL);

      set_bit (U_CJK_UNIFIED_IDEOGRAPHS);

      set_bit (U_CJK_COMPATIBILITY_IDEOGRAPHS);

      set_bit (U_HALFWIDTH_AND_FULLWIDTH_FORMS);

      retval = TRUE;

    }

  if (check_cp (FS_CHINESETRAD))

    {

      /* Based on MingLiU */

      set_bit (U_BASIC_LATIN);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_CJK_SYMBOLS_AND_PUNCTUATION);

      set_bit (U_BOPOMOFO);

      set_bit (U_CJK_UNIFIED_IDEOGRAPHS);

      set_bit (U_CJK_COMPATIBILITY_IDEOGRAPHS);

      set_bit (U_SMALL_FORM_VARIANTS);

      set_bit (U_HALFWIDTH_AND_FULLWIDTH_FORMS);

      retval = TRUE;

    }

  if (check_cp (FS_SYMBOL) || charset == MAC_CHARSET)

    {

      /* Non-Unicode encoding, I guess. Pretend it covers

       * the single-byte range of values.

       */

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      retval = TRUE;

    }

  if (retval)

    return TRUE;

  GDK_NOTE (MISC, g_print ("... No code page bits set!\n"));

  /* Sigh. Not even any code page bits were set. Guess based on

   * charset, then. These somewhat optimistic guesses are based on the

   * table in Appendix M in the book "Developing ..."  mentioned

   * above.

   */

  switch (charset)

    {

    case ANSI_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_COMBINING_DIACRITICAL_MARKS);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_CURRENCY_SYMBOLS);

#if 0 /* I find this too hard to believe... */

      set_bit (U_BASIC_GREEK);

      set_bit (U_CYRILLIC);

      set_bit (U_BASIC_HEBREW);

      set_bit (U_HEBREW_EXTENDED);

      set_bit (U_BASIC_ARABIC);

      set_bit (U_ARABIC_EXTENDED);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_NUMBER_FORMS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_ENCLOSED_ALPHANUMERICS);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      set_bit (U_HIRAGANA);

      set_bit (U_KATAKANA);

      set_bit (U_BOPOMOFO);

      set_bit (U_HANGUL_COMPATIBILITY_JAMO);

      set_bit (U_CJK_MISCELLANEOUS);

      set_bit (U_CJK_COMPATIBILITY);

      set_bit (U_HANGUL);

      set_bit (U_HANGUL_SUPPLEMENTARY_A);

      set_bit (U_CJK_COMPATIBILITY_IDEOGRAPHS);

      set_bit (U_ALPHABETIC_PRESENTATION_FORMS);

      set_bit (U_SMALL_FORM_VARIANTS);

      set_bit (U_ARABIC_PRESENTATION_FORMS_B);

      set_bit (U_HALFWIDTH_AND_FULLWIDTH_FORMS);

      set_bit (U_SPECIALS);

#endif

      retval = TRUE;

      break;

    case SYMBOL_CHARSET:

      /* Unggh */

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      retval = TRUE;

      break;

    case SHIFTJIS_CHARSET:

    case HANGEUL_CHARSET:

    case GB2312_CHARSET:

    case CHINESEBIG5_CHARSET:

    case JOHAB_CHARSET:

      /* The table really does claim these "locales" (it doesn't

       * talk about charsets per se) cover the same Unicode

       * subranges

       */

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_COMBINING_DIACRITICAL_MARKS_FOR_SYMBOLS);

      set_bit (U_BASIC_GREEK);

      set_bit (U_CYRILLIC);

      set_bit (U_HANGUL_JAMO);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_NUMBER_FORMS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_ENCLOSED_ALPHANUMERICS);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      set_bit (U_CJK_SYMBOLS_AND_PUNCTUATION);

      set_bit (U_HIRAGANA);

      set_bit (U_KATAKANA);

      set_bit (U_BOPOMOFO);

      set_bit (U_HANGUL_COMPATIBILITY_JAMO);

      set_bit (U_CJK_MISCELLANEOUS);

      set_bit (U_CJK_COMPATIBILITY);

      set_bit (U_HANGUL);

      set_bit (U_HANGUL_SUPPLEMENTARY_A);

      set_bit (U_CJK_UNIFIED_IDEOGRAPHS);

      set_bit (U_CJK_COMPATIBILITY_IDEOGRAPHS);

      set_bit (U_ALPHABETIC_PRESENTATION_FORMS);

      set_bit (U_SMALL_FORM_VARIANTS);

      set_bit (U_ARABIC_PRESENTATION_FORMS_B);

      set_bit (U_SPECIALS);

      retval = TRUE;

      break;

    case HEBREW_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_BASIC_HEBREW);

      set_bit (U_HEBREW_EXTENDED);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_LETTERLIKE_SYMBOLS);

      retval = TRUE; 

      break;

    case ARABIC_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_BASIC_GREEK);

      set_bit (U_BASIC_ARABIC);

      set_bit (U_ARABIC_EXTENDED);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      set_bit (U_HALFWIDTH_AND_FULLWIDTH_FORMS);

      retval = TRUE;

      break;

    case GREEK_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_BASIC_GREEK);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      retval = TRUE;

      break;

    case TURKISH_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_BASIC_GREEK);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      retval = TRUE;

      break;

    case VIETNAMESE_CHARSET:

    case THAI_CHARSET:

      /* These are not in the table, so I have no idea */

      break;

    case BALTIC_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_BASIC_GREEK);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      retval = TRUE;

      break;

    case EASTEUROPE_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_LATIN_EXTENDED_A);

      set_bit (U_LATIN_EXTENDED_B);

      set_bit (U_SPACING_MODIFIER_LETTERS);

      set_bit (U_BASIC_GREEK);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_SUPERSCRIPTS_AND_SUBSCRIPTS);

      set_bit (U_CURRENCY_SYMBOLS);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      retval = TRUE;

      break;

    case RUSSIAN_CHARSET:

      set_bit (U_BASIC_LATIN);

      set_bit (U_LATIN_1_SUPPLEMENT);

      set_bit (U_CYRILLIC);

      set_bit (U_GENERAL_PUNCTUATION);

      set_bit (U_LETTERLIKE_SYMBOLS);

      set_bit (U_ARROWS);

      set_bit (U_MATHEMATICAL_OPERATORS);

      set_bit (U_MISCELLANEOUS_TECHNICAL);

      set_bit (U_BOX_DRAWING);

      set_bit (U_BLOCK_ELEMENTS);

      set_bit (U_GEOMETRIC_SHAPES);

      set_bit (U_MISCELLANEOUS_SYMBOLS);

      retval = TRUE;

      break;

    }

#undef set_bit

  return retval;

}

static GdkWin32SingleFont *

gdk_font_load_logfont (LOGFONT *lfp)

{

  GdkWin32SingleFont *singlefont;

  HFONT hfont;

  LOGFONT logfont;

  CHARSETINFO csi;

  HGDIOBJ oldfont;

  int tries;

  gchar face[100];

  for (tries = 0; ; tries++)

    {

      GDK_NOTE (MISC, g_print ("... trying %ld,%ld,%ld,%ld,"

			       "%ld,%d,%d,%d,"

			       "%d,%d,%d,"

			       "%d,%#.02x,\"%s\"\n",

			       lfp->lfHeight, lfp->lfWidth,

			       lfp->lfEscapement, lfp->lfOrientation,

			       lfp->lfWeight, lfp->lfItalic,

			       lfp->lfUnderline, lfp->lfStrikeOut,

			       lfp->lfCharSet,

			       lfp->lfOutPrecision, lfp->lfClipPrecision,

			       lfp->lfQuality, lfp->lfPitchAndFamily,

			       lfp->lfFaceName));

      hfont = CreateFontIndirect (lfp);

      if (hfont != NULL)

	break;

      /* If we fail, try some similar fonts often found on Windows. */

      if (tries == 0)

	{

	  if (g_ascii_strcasecmp (lfp->lfFaceName, "helvetica") == 0)

	    strcpy (lfp->lfFaceName, "arial");

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "new century schoolbook") == 0)

	    strcpy (lfp->lfFaceName, "century schoolbook");

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "courier") == 0)

	    strcpy (lfp->lfFaceName, "courier new");

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "lucida") == 0)

	    strcpy (lfp->lfFaceName, "lucida sans unicode");

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "lucidatypewriter") == 0)

	    strcpy (lfp->lfFaceName, "lucida console");

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "times") == 0)

	    strcpy (lfp->lfFaceName, "times new roman");

	}

      else if (tries == 1)

	{

	  if (g_ascii_strcasecmp (lfp->lfFaceName, "courier") == 0)

	    {

	      strcpy (lfp->lfFaceName, "");

	      lfp->lfPitchAndFamily |= FF_MODERN;

	    }

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "times new roman") == 0)

	    {

	      strcpy (lfp->lfFaceName, "");

	      lfp->lfPitchAndFamily |= FF_ROMAN;

	    }

	  else if (g_ascii_strcasecmp (lfp->lfFaceName, "helvetica") == 0

		   || g_ascii_strcasecmp (lfp->lfFaceName, "lucida") == 0)

	    {

	      strcpy (lfp->lfFaceName, "");

	      lfp->lfPitchAndFamily |= FF_SWISS;