gtk2/gdk/win32/gdkfont-win32.c

/* GDK - The GIMP Drawing Kit
 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library 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-1999.  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 <ctype.h>

#include "gdkfont.h"
#include "gdkwin32.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;
    }
}

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";
}

static gint num_fonts;
static gint font_names_size;
static gchar **xfontnames;

static gchar *
logfont_to_xlfd (const LOGFONT *lfp,
		 int            size,
		 int            res,
		 int            avg_width)
{
  const gchar *weight;
  const gchar *registry, *encoding;
  int point_size;
  static int logpixelsy = 0;
  gchar facename[LF_FACESIZE*3];
  gchar *p;
  const gchar *q;

  if (logpixelsy == 0)
    {
      logpixelsy = GetDeviceCaps (gdk_DC, LOGPIXELSY);
    }

  if (lfp->lfWeight >= FW_HEAVY)
    weight = "heavy";
  else if (lfp->lfWeight >= FW_EXTRABOLD)
    weight = "extrabold";
  else if (lfp->lfWeight >= FW_BOLD)
    weight = "bold";
#ifdef FW_DEMIBOLD
  else if (lfp->lfWeight >= FW_DEMIBOLD)
    weight = "demibold";
#endif
  else if (lfp->lfWeight >= FW_MEDIUM)
    weight = "medium";
  else if (lfp->lfWeight >= FW_NORMAL)
    weight = "normal";
  else if (lfp->lfWeight >= FW_LIGHT)
    weight = "light";
  else if (lfp->lfWeight >= FW_EXTRALIGHT)
    weight = "extralight";
  else if (lfp->lfWeight >= FW_THIN)
    weight = "thin";
  else
    weight = "regular";

  switch (lfp->lfCharSet)
    {
    case ANSI_CHARSET:
      registry = "iso8859";
      encoding = "1";
      break;
    case SHIFTJIS_CHARSET:
      registry = "jisx0208.1983";
      encoding = "0";
      break;
    case HANGEUL_CHARSET:
      registry = "ksc5601.1987";
      encoding = "0";
      break;
    case GB2312_CHARSET:
      registry = "gb2312.1980";
      encoding = "0";
      break;
    case CHINESEBIG5_CHARSET:
      registry = "big5";
      encoding = "0";
      break;
    case GREEK_CHARSET:
      registry = "iso8859";
      encoding = "7";
      break;
    case TURKISH_CHARSET:
      registry = "iso8859";
      encoding = "9";
      break;
#if 0 /* Not a good idea, I think, to use ISO8859-8 and -6 for the Windows
       * hebrew and arabic codepages, they differ too much.
       */
    case HEBREW_CHARSET:
      registry = "iso8859";
      encoding = "8";
      break;
    case ARABIC_CHARSET:
      registry = "iso8859";
      encoding = "6";
      break;
#endif
    default:
      registry = "microsoft";
      encoding = charset_name (lfp->lfCharSet);
    }
  
  point_size = (int) (((double) size/logpixelsy) * 720.);

  if (res == -1)
    res = logpixelsy;

  /* Replace illegal characters with hex escapes. */
  p = facename;
  q = lfp->lfFaceName;
  while (*q)
    {
      if (*q == '-' || *q == '*' || *q == '?' || *q == '%')
	p += sprintf (p, "%%%.02x", *q);
      else
	*p++ = *q;
      q++;
    }
  *p = '\0';

  return  g_strdup_printf
    ("-%s-%s-%s-%s-%s-%s-%d-%d-%d-%d-%s-%d-%s-%s",
     "unknown", 
     facename,
     weight,
     (lfp->lfItalic ?
      ((lfp->lfPitchAndFamily & 0xF0) == FF_ROMAN
       || (lfp->lfPitchAndFamily & 0xF0) == FF_SCRIPT ?
       "i" : "o") : "r"),
     "normal",
     "",
     size,
     point_size,
     res,
     res,
     ((lfp->lfPitchAndFamily & 0x03) == FIXED_PITCH ? "m" : "p"),
     avg_width,
     registry, encoding);
}

gchar *
gdk_font_xlfd_create (GdkFont *font)
{
  GdkFontPrivateWin32 *private;
  GdkWin32SingleFont *singlefont;
  GSList *list;
  GString *string;
  gchar *result;
  LOGFONT logfont;

  g_return_val_if_fail (font != NULL, NULL);

  private = (GdkFontPrivateWin32 *) font;

  list = private->fonts;
  string = g_string_new ("");

  while (list)
    {
      singlefont = (GdkWin32SingleFont *) list->data;

      if (GetObject (singlefont->xfont, sizeof (LOGFONT), &logfont) == 0)
	{
	  g_warning ("gdk_win32_font_xlfd: GetObject failed");
	  return NULL;
	}

      string =
	g_string_append (string,
			 logfont_to_xlfd (&logfont, logfont.lfHeight, -1, 0));
      list = list->next;
      if (list)
	string = g_string_append_c (string, ',');
    }
  result = string->str;
  g_string_free (string, FALSE);
  return result;
}

void
gdk_font_xlfd_free (gchar *xlfd)
{
  g_free (xlfd);
}

static gboolean
pattern_match (const gchar *pattern,
	       const gchar *string)
{
  const gchar *p = pattern, *n = string;
  gchar c, c1;

  /* Common case first */
  if ((pattern[0] == '*'
       && pattern[1] == '\0')
      || (pattern[0] == '-'
	  && pattern[1] == '*'
	  && pattern[2] == '\0'))
    return TRUE;

  while ((c = *p++) != '\0')
    {
      c = tolower (c);

      switch (c)
	{
	case '?':
	  if (*n == '\0')
	    return FALSE;
	  break;

	case '*':
	  for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
	    if (c == '?' && *n == '\0')
	    return FALSE;

	  if (c == '\0')
	    return TRUE;

	  c1 = tolower (c);
	  for (--p; *n != '\0'; ++n)
	    if (tolower (*n) == c1
		&& pattern_match (p, n))
	      return TRUE;
	  return FALSE;

	default:
	  if (c != tolower (*n))
	    return FALSE;
	}

      ++n;
    }

  if (*n == '\0')
    return TRUE;

  return FALSE;
}

static int CALLBACK
InnerEnumFontFamExProc (const LOGFONT    *lfp,
			const TEXTMETRIC *metrics,
			DWORD	          fontType,
			LPARAM            lParam)
{
  int size;
  gchar *xlfd;

  if (fontType == TRUETYPE_FONTTYPE)
    {
      size = 0;
    }
  else
    {
      size = lfp->lfHeight;
    }

  xlfd = logfont_to_xlfd (lfp, size, 0, 0);

  if (!pattern_match ((gchar *) lParam, xlfd))
    {
      g_free (xlfd);
      return 1;
    }

  num_fonts++;
  if (num_fonts == font_names_size)
    {
      font_names_size *= 2;
      xfontnames = g_realloc (xfontnames, font_names_size * sizeof (gchar *));
    }
  xfontnames[num_fonts-1] = xlfd;
    
  return 1;
}

static int CALLBACK
EnumFontFamExProc (const LOGFONT    *lfp,
		   const TEXTMETRIC *metrics,
		   DWORD             fontType,
		   LPARAM            lParam)
{
  if (fontType == TRUETYPE_FONTTYPE)
    {
      LOGFONT lf;

      lf = *lfp;

      EnumFontFamiliesEx (gdk_DC, &lf, InnerEnumFontFamExProc, lParam, 0);
    }
  else
    InnerEnumFontFamExProc (lfp, metrics, fontType, lParam);

  return 1;
}

gchar **
gdk_font_list_new (const gchar *font_pattern,
		   gint        *n_returned)
{
  LOGFONT logfont;
  gchar **result;

  num_fonts = 0;
  font_names_size = 100;
  xfontnames = g_new (gchar *, font_names_size);
  memset (&logfont, 0, sizeof (logfont));
  logfont.lfCharSet = DEFAULT_CHARSET;
  EnumFontFamiliesEx (gdk_DC, &logfont, EnumFontFamExProc,
		      (LPARAM) font_pattern, 0);

  result = g_new (gchar *, num_fonts + 1);
  memmove (result, xfontnames, num_fonts * sizeof (gchar *));
  result[num_fonts] = NULL;
  g_free (xfontnames);

  *n_returned = num_fonts;
  return result;
}

void
gdk_font_list_free (gchar **font_list)
{
  g_strfreev (font_list);
}

GdkWin32SingleFont*
gdk_font_load_internal (const gchar *font_name)
{
  GdkWin32SingleFont *singlefont;
  HFONT hfont;
  LOGFONT logfont;
  CHARSETINFO csi;
  DWORD fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet,
    fdwOutputPrecision, fdwClipPrecision, fdwQuality, fdwPitchAndFamily;
  const char *lpszFace;

  int numfields, n1, n2, tries;
  char foundry[32], family[100], weight[32], slant[32], set_width[32],
    spacing[32], registry[32], encoding[32];
  char pixel_size[10], point_size[10], res_x[10], res_y[10], avg_width[10];
  int c;
  char *p;
  int nHeight, nWidth, nEscapement, nOrientation, fnWeight;
  int logpixelsy;

  g_return_val_if_fail (font_name != NULL, NULL);

  GDK_NOTE (MISC, g_print ("gdk_font_load_internal: %s\n", font_name));

  numfields = sscanf (font_name,
		      "-%30[^-]-%100[^-]-%30[^-]-%30[^-]-%30[^-]-%n",
		      foundry,
		      family,
		      weight,
		      slant,
		      set_width,
		      &n1);
  if (numfields == 0)
    {
      /* Probably a plain Windows font name */
      nHeight = 0;
      nWidth = 0;
      nEscapement = 0;
      nOrientation = 0;
      fnWeight = FW_DONTCARE;
      fdwItalic = FALSE;
      fdwUnderline = FALSE;
      fdwStrikeOut = FALSE;
      fdwCharSet = ANSI_CHARSET;
      fdwOutputPrecision = OUT_TT_PRECIS;
      fdwClipPrecision = CLIP_DEFAULT_PRECIS;
      fdwQuality = PROOF_QUALITY;
      fdwPitchAndFamily = DEFAULT_PITCH;
      lpszFace = font_name;
    }
  else if (numfields != 5)
    {
      g_warning ("gdk_font_load: font name %s illegal", font_name);
      return NULL;
    }
  else
    {
      /* It must be a XLFD name */

      /* Check for hex escapes in the font family,
       * put in there by gtkfontsel.
       */
      p = family;
      while (*p)
	{
	  if (*p == '%' && isxdigit (p[1]) && isxdigit (p[2]))
	    {
	      sscanf (p+1, "%2x", &c);
	      *p = c;
	      strcpy (p+1, p+3);
	    }
	  p++;
	}

      /* Skip add_style which often is empty in the requested font name */
      while (font_name[n1] && font_name[n1] != '-')
	n1++;
      numfields++;

      numfields += sscanf (font_name + n1,
			   "-%8[^-]-%8[^-]-%8[^-]-%8[^-]-%30[^-]-%8[^-]-%30[^-]-%30[^-]%n",
			   pixel_size,
			   point_size,
			   res_x,
			   res_y,
			   spacing,
			   avg_width,
			   registry,
			   encoding,
			   &n2);

      if (numfields != 14 || font_name[n1 + n2] != '\0')
	{
	  g_warning ("gdk_font_load: font name %s illegal", font_name);
	  return NULL;
	}

      logpixelsy = GetDeviceCaps (gdk_DC, LOGPIXELSY);

      if (strcmp (pixel_size, "*") == 0)
	if (strcmp (point_size, "*") == 0)
	  nHeight = 0;
	else
	  nHeight = (int) (((double) atoi (point_size))/720.*logpixelsy);
      else
	nHeight = atoi (pixel_size);

      nWidth = 0;
      nEscapement = 0;
      nOrientation = 0;

      if (g_strcasecmp (weight, "thin") == 0)
	fnWeight = FW_THIN;
      else if (g_strcasecmp (weight, "extralight") == 0)
	fnWeight = FW_EXTRALIGHT;
      else if (g_strcasecmp (weight, "ultralight") == 0)
#ifdef FW_ULTRALIGHT
	fnWeight = FW_ULTRALIGHT;
#else
	fnWeight = FW_EXTRALIGHT; /* In fact, FW_ULTRALIGHT really is 
				   * defined as FW_EXTRALIGHT anyway.
				   */
#endif
      else if (g_strcasecmp (weight, "light") == 0)
	fnWeight = FW_LIGHT;
      else if (g_strcasecmp (weight, "normal") == 0)
	fnWeight = FW_NORMAL;
      else if (g_strcasecmp (weight, "regular") == 0)
	fnWeight = FW_REGULAR;
      else if (g_strcasecmp (weight, "medium") == 0)
	fnWeight = FW_MEDIUM;
      else if (g_strcasecmp (weight, "semibold") == 0)
	fnWeight = FW_SEMIBOLD;
      else if (g_strcasecmp (weight, "demibold") == 0)
#ifdef FW_DEMIBOLD
	fnWeight = FW_DEMIBOLD;
#else
	fnWeight = FW_SEMIBOLD;	/* As above */
#endif
      else if (g_strcasecmp (weight, "bold") == 0)
	fnWeight = FW_BOLD;
      else if (g_strcasecmp (weight, "extrabold") == 0)
	fnWeight = FW_EXTRABOLD;
      else if (g_strcasecmp (weight, "ultrabold") == 0)
#ifdef FW_ULTRABOLD
	fnWeight = FW_ULTRABOLD;
#else
	fnWeight = FW_EXTRABOLD; /* As above */
#endif
      else if (g_strcasecmp (weight, "heavy") == 0)
	fnWeight = FW_HEAVY;
      else if (g_strcasecmp (weight, "black") == 0)
#ifdef FW_BLACK
	fnWeight = FW_BLACK;
#else
	fnWeight = FW_HEAVY;	/* As above */
#endif
      else
	fnWeight = FW_DONTCARE;

      if (g_strcasecmp (slant, "italic") == 0
	  || g_strcasecmp (slant, "oblique") == 0
	  || g_strcasecmp (slant, "i") == 0
	  || g_strcasecmp (slant, "o") == 0)
	fdwItalic = TRUE;
      else
	fdwItalic = FALSE;
      fdwUnderline = FALSE;
      fdwStrikeOut = FALSE;
      if (g_strcasecmp (registry, "iso8859") == 0)
	if (strcmp (encoding, "1") == 0)
	  fdwCharSet = ANSI_CHARSET;
	else if (strcmp (encoding, "2") == 0)
	  fdwCharSet = EASTEUROPE_CHARSET;
	else if (strcmp (encoding, "7") == 0)
	  fdwCharSet = GREEK_CHARSET;
	else if (strcmp (encoding, "8") == 0)
	  fdwCharSet = HEBREW_CHARSET;
	else if (strcmp (encoding, "9") == 0)
	  fdwCharSet = TURKISH_CHARSET;
	else
	  fdwCharSet = ANSI_CHARSET; /* XXX ??? */
      else if (g_strcasecmp (registry, "jisx0208.1983") == 0)
	fdwCharSet = SHIFTJIS_CHARSET;
      else if (g_strcasecmp (registry, "ksc5601.1987") == 0)
	fdwCharSet = HANGEUL_CHARSET;
      else if (g_strcasecmp (registry, "gb2312.1980") == 0)
	fdwCharSet = GB2312_CHARSET;
      else if (g_strcasecmp (registry, "big5") == 0)
	fdwCharSet = CHINESEBIG5_CHARSET;
      else if (g_strcasecmp (registry, "windows") == 0
	       || g_strcasecmp (registry, "microsoft") == 0)
	if (g_strcasecmp (encoding, "symbol") == 0)
	  fdwCharSet = SYMBOL_CHARSET;
	else if (g_strcasecmp (encoding, "shiftjis") == 0)
	  fdwCharSet = SHIFTJIS_CHARSET;
	else if (g_strcasecmp (encoding, "gb2312") == 0)
	  fdwCharSet = GB2312_CHARSET;
	else if (g_strcasecmp (encoding, "hangeul") == 0)
	  fdwCharSet = HANGEUL_CHARSET;
	else if (g_strcasecmp (encoding, "big5") == 0)
	  fdwCharSet = CHINESEBIG5_CHARSET;
	else if (g_strcasecmp (encoding, "johab") == 0)
	  fdwCharSet = JOHAB_CHARSET;
	else if (g_strcasecmp (encoding, "hebrew") == 0)
	  fdwCharSet = HEBREW_CHARSET;
	else if (g_strcasecmp (encoding, "arabic") == 0)
	  fdwCharSet = ARABIC_CHARSET;
	else if (g_strcasecmp (encoding, "greek") == 0)
	  fdwCharSet = GREEK_CHARSET;
	else if (g_strcasecmp (encoding, "turkish") == 0)
	  fdwCharSet = TURKISH_CHARSET;
	else if (g_strcasecmp (encoding, "easteurope") == 0)
	  fdwCharSet = EASTEUROPE_CHARSET;
	else if (g_strcasecmp (encoding, "russian") == 0)
	  fdwCharSet = RUSSIAN_CHARSET;
	else if (g_strcasecmp (encoding, "mac") == 0)
	  fdwCharSet = MAC_CHARSET;
	else if (g_strcasecmp (encoding, "baltic") == 0)
	  fdwCharSet = BALTIC_CHARSET;
	else if (g_strcasecmp (encoding, "cp1251") == 0)
	  fdwCharSet = RUSSIAN_CHARSET;
	else
	  fdwCharSet = ANSI_CHARSET; /* XXX ??? */
      else
	fdwCharSet = ANSI_CHARSET; /* XXX ??? */
      fdwOutputPrecision = OUT_TT_PRECIS;
      fdwClipPrecision = CLIP_DEFAULT_PRECIS;
      fdwQuality = PROOF_QUALITY;
      if (g_strcasecmp (spacing, "m") == 0)
	fdwPitchAndFamily = FIXED_PITCH;
      else if (g_strcasecmp (spacing, "p") == 0)
	fdwPitchAndFamily = VARIABLE_PITCH;
      else 
	fdwPitchAndFamily = DEFAULT_PITCH;
      lpszFace = family;
    }

  for (tries = 0; ; tries++)
    {
      GDK_NOTE (MISC, g_print ("...trying CreateFont(%d,%d,%d,%d,"
			       "%d,%d,%d,%d,"
			       "%d,%d,%d,"
			       "%d,%#.02x,\"%s\")\n",
			       nHeight, nWidth, nEscapement, nOrientation,
			       fnWeight, fdwItalic, fdwUnderline, fdwStrikeOut,
			       fdwCharSet, fdwOutputPrecision, fdwClipPrecision,
			       fdwQuality, fdwPitchAndFamily, lpszFace));
      if ((hfont =
	   CreateFont (nHeight, nWidth, nEscapement, nOrientation,
		       fnWeight, fdwItalic, fdwUnderline, fdwStrikeOut,
		       fdwCharSet, fdwOutputPrecision, fdwClipPrecision,
		       fdwQuality, fdwPitchAndFamily, lpszFace)) != NULL)
	break;

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

      if (tries == 0)
	{
	  if (g_strcasecmp (family, "helvetica") == 0)
	    lpszFace = "arial";
	  else if (g_strcasecmp (family, "new century schoolbook") == 0)
	    lpszFace = "century schoolbook";
	  else if (g_strcasecmp (family, "courier") == 0)
	    lpszFace = "courier new";
	  else if (g_strcasecmp (family, "lucida") == 0)
	    lpszFace = "lucida sans unicode";
	  else if (g_strcasecmp (family, "lucidatypewriter") == 0)
	    lpszFace = "lucida console";
	  else if (g_strcasecmp (family, "times") == 0)
	    lpszFace = "times new roman";
	}
      else if (tries == 1)
	{
	  if (g_strcasecmp (family, "courier") == 0)
	    {
	      lpszFace = "";
	      fdwPitchAndFamily |= FF_MODERN;
	    }
	  else if (g_strcasecmp (family, "times new roman") == 0)
	    {
	      lpszFace = "";
	      fdwPitchAndFamily |= FF_ROMAN;
	    }
	  else if (g_strcasecmp (family, "helvetica") == 0
		   || g_strcasecmp (family, "lucida") == 0)
	    {
	      lpszFace = "";
	      fdwPitchAndFamily |= FF_SWISS;
	    }
	  else
	    {
	      lpszFace = "";
	      fdwPitchAndFamily = (fdwPitchAndFamily & 0x0F) | FF_DONTCARE;
	    }
	}
      else
	break;
      tries++;
    }
  
  if (!hfont)
    return NULL;
      
  singlefont = g_new (GdkWin32SingleFont, 1);
  singlefont->xfont = hfont;
  GetObject (singlefont->xfont, sizeof (logfont), &logfont);
  TranslateCharsetInfo ((DWORD *) singlefont->charset, &csi, TCI_SRCCHARSET);
  singlefont->codepage = csi.ciACP;
  GetCPInfo (singlefont->codepage, &singlefont->cpinfo);

  return singlefont;
}

GdkFont*
gdk_font_load (const gchar *font_name)
{
  GdkFont *font;
  GdkFontPrivateWin32 *private;
  GdkWin32SingleFont *singlefont;
  HGDIOBJ oldfont;
  HANDLE *f;
  TEXTMETRIC textmetric;

  g_return_val_if_fail (font_name != NULL, NULL);

  font = gdk_font_hash_lookup (GDK_FONT_FONTSET, font_name);
  if (font)
    return font;

  singlefont = gdk_font_load_internal (font_name);

  private = g_new (GdkFontPrivateWin32, 1);
  font = (GdkFont*) private;

  private->base.ref_count = 1;
  private->names = NULL;
  private->fonts = g_slist_append (NULL, singlefont);

  /* Pretend all fonts are fontsets... Gtktext and gtkentry work better
   * that way, they use wide chars, which is necessary for non-ASCII
   * chars to work. (Yes, even Latin-1, as we use Unicode internally.)
   */
  font->type = GDK_FONT_FONTSET;
  oldfont = SelectObject (gdk_DC, singlefont->xfont);
  GetTextMetrics (gdk_DC, &textmetric);
  singlefont->charset = GetTextCharsetInfo (gdk_DC, &singlefont->fs, 0);
  SelectObject (gdk_DC, oldfont);
  font->ascent = textmetric.tmAscent;
  font->descent = textmetric.tmDescent;

  GDK_NOTE (MISC, g_print ("... = %#x charset %s codepage %d "
			   "asc %d desc %d\n",
			   singlefont->xfont,
			   charset_name (singlefont->charset),
			   singlefont->codepage,
			   font->ascent, font->descent));

  gdk_font_hash_insert (GDK_FONT_FONTSET, font, font_name);

  return font;
}

GdkFont*
gdk_fontset_load (gchar *fontset_name)
{
  GdkFont *font;
  GdkFontPrivateWin32 *private;
  GdkWin32SingleFont *singlefont;
  HGDIOBJ oldfont;
  HANDLE *f;
  TEXTMETRIC textmetric;
  GSList *base_font_list = NULL;
  gchar *fs;
  gchar *b, *p, *s;

  g_return_val_if_fail (fontset_name != NULL, NULL);

  font = gdk_font_hash_lookup (GDK_FONT_FONTSET, fontset_name);
  if (font)
    return font;

  s = fs = g_strdup (fontset_name);
  while (*s && isspace (*s))
    s++;

  g_return_val_if_fail (*s, NULL);

  private = g_new (GdkFontPrivateWin32, 1);
  font = (GdkFont*) private;

  private->base.ref_count = 1;
  private->names = NULL;
  private->fonts = NULL;

  font->type = GDK_FONT_FONTSET;
  font->ascent = 0;
  font->descent = 0;

  while (TRUE)
    {
      if ((p = strchr (s, ',')) != NULL)
	b = p;
      else
	b = s + strlen (s);

      while (isspace (b[-1]))
	b--;
      *b = '\0';
      singlefont = gdk_font_load_internal (s);
      if (singlefont)
	{
	  GDK_NOTE
	    (MISC, g_print ("... = %#x charset %s codepage %d\n",
			    singlefont->xfont,
			    charset_name (singlefont->charset),
			    singlefont->codepage));
	  private->fonts = g_slist_append (private->fonts, singlefont);
	  oldfont = SelectObject (gdk_DC, singlefont->xfont);
	  GetTextMetrics (gdk_DC, &textmetric);
	  singlefont->charset =
	    GetTextCharsetInfo (gdk_DC, &singlefont->fs, 0);
	  SelectObject (gdk_DC, oldfont);
	  font->ascent = MAX (font->ascent, textmetric.tmAscent);
	  font->descent = MAX (font->descent, textmetric.tmDescent);
	}
      if (p)
	{
	  s = p + 1;
	  while (*s && isspace (*s))
	    s++;
	}
      else
	break;
      if (!*s)
	break;
    }
  
  g_free (fs);

  gdk_font_hash_insert (GDK_FONT_FONTSET, font, fontset_name);

  return font;
}

void
_gdk_font_destroy (GdkFont *font)
{
  GdkFontPrivateWin32 *private = (GdkFontPrivateWin32 *) font;
  GdkWin32SingleFont *singlefont;
  GSList *list;

  singlefont = (GdkWin32SingleFont *) private->fonts->data;
  GDK_NOTE (MISC, g_print ("_gdk_font_destroy %#x\n",
			   singlefont->xfont));

  gdk_font_hash_remove (font->type, font);
  
  switch (font->type)
    {
    case GDK_FONT_FONT:
      DeleteObject (singlefont->xfont);
      break;
      
    case GDK_FONT_FONTSET:
      list = private->fonts;
      while (list)
	{
	  singlefont = (GdkWin32SingleFont *) list->data;
	  DeleteObject (singlefont->xfont);
	  
	  list = list->next;
	}
      g_slist_free (private->fonts);
      break;
    }
  g_free (font);
}

gint
_gdk_font_strlen (GdkFont     *font,
		  const gchar *str)
{
  g_return_val_if_fail (font != NULL, -1);
  g_return_val_if_fail (str != NULL, -1);

  return strlen (str);
}

gint
gdk_font_id (const GdkFont *font)
{
  const GdkFontPrivateWin32 *private;

  g_return_val_if_fail (font != NULL, 0);

  private = (const GdkFontPrivateWin32 *) font;

  if (font->type == GDK_FONT_FONT)
    return (gint) ((GdkWin32SingleFont *) private->fonts->data)->xfont;
  else
    return 0;
}

gint
gdk_font_equal (const GdkFont *fonta,
                const GdkFont *fontb)
{
  const GdkFontPrivateWin32 *privatea;
  const GdkFontPrivateWin32 *privateb;

  g_return_val_if_fail (fonta != NULL, FALSE);
  g_return_val_if_fail (fontb != NULL, FALSE);

  privatea = (const GdkFontPrivateWin32 *) fonta;
  privateb = (const GdkFontPrivateWin32 *) fontb;

  if (fonta->type == GDK_FONT_FONT && fontb->type == GDK_FONT_FONT)
    return (((GdkWin32SingleFont *) privatea->fonts->data)->xfont
	    == ((GdkWin32SingleFont *) privateb->fonts->data)->xfont);
  else if (fonta->type == GDK_FONT_FONTSET && fontb->type == GDK_FONT_FONTSET)
    {
      GSList *lista = privatea->fonts;
      GSList *listb = privateb->fonts;

      while (lista && listb)
	{
	  if (((GdkWin32SingleFont *) lista->data)->xfont
	      != ((GdkWin32SingleFont *) listb->data)->xfont)
	    return 0;
	  lista = lista->next;
	  listb = listb->next;
	}
      if (lista || listb)
	return 0;
      else
	return 1;
    }
  else
    return 0;
}

/* This table classifies Unicode characters according to the Microsoft
 * Unicode subset numbering. This is from 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.
 */
static struct {
  wchar_t low, high;
  guint bit; 
  gchar *name;
} utab[] =
{
  { 0x0000, 0x007E, 0, "Basic Latin" },
  { 0x00A0, 0x00FF, 1, "Latin-1 Supplement" },
  { 0x0100, 0x017F, 2, "Latin Extended-A" },
  { 0x0180, 0x024F, 3, "Latin Extended-B" },
  { 0x0250, 0x02AF, 4, "IPA Extensions" },
  { 0x02B0, 0x02FF, 5, "Spacing Modifier Letters" },
  { 0x0300, 0x036F, 6, "Combining Diacritical Marks" },
  { 0x0370, 0x03CF, 7, "Basic Greek" },
  { 0x03D0, 0x03FF, 8, "Greek Symbols and Coptic" },
  { 0x0400, 0x04FF, 9, "Cyrillic" },
  { 0x0530, 0x058F, 10, "Armenian" },
  { 0x0590, 0x05CF, 12, "Hebrew Extended" },
  { 0x05D0, 0x05FF, 11, "Basic Hebrew" },
  { 0x0600, 0x0652, 13, "Basic Arabic" },
  { 0x0653, 0x06FF, 14, "Arabic Extended" },
  { 0x0900, 0x097F, 15, "Devanagari" },
  { 0x0980, 0x09FF, 16, "Bengali" },
  { 0x0A00, 0x0A7F, 17, "Gurmukhi" },
  { 0x0A80, 0x0AFF, 18, "Gujarati" },
  { 0x0B00, 0x0B7F, 19, "Oriya" },
  { 0x0B80, 0x0BFF, 20, "Tamil" },
  { 0x0C00, 0x0C7F, 21, "Telugu" },
  { 0x0C80, 0x0CFF, 22, "Kannada" },
  { 0x0D00, 0x0D7F, 23, "Malayalam" },
  { 0x0E00, 0x0E7F, 24, "Thai" },
  { 0x0E80, 0x0EFF, 25, "Lao" },
  { 0x10A0, 0x10CF, 27, "Georgian Extended" },
  { 0x10D0, 0x10FF, 26, "Basic Georgian" },
  { 0x1100, 0x11FF, 28, "Hangul Jamo" },
  { 0x1E00, 0x1EFF, 29, "Latin Extended Additional" },
  { 0x1F00, 0x1FFF, 30, "Greek Extended" },
  { 0x2000, 0x206F, 31, "General Punctuation" },
  { 0x2070, 0x209F, 32, "Superscripts and Subscripts" },
  { 0x20A0, 0x20CF, 33, "Currency Symbols" },
  { 0x20D0, 0x20FF, 34, "Combining Diacritical Marks for Symbols" },
  { 0x2100, 0x214F, 35, "Letterlike Symbols" },
  { 0x2150, 0x218F, 36, "Number Forms" },
  { 0x2190, 0x21FF, 37, "Arrows" },
  { 0x2200, 0x22FF, 38, "Mathematical Operators" },
  { 0x2300, 0x23FF, 39, "Miscellaneous Technical" },
  { 0x2400, 0x243F, 40, "Control Pictures" },
  { 0x2440, 0x245F, 41, "Optical Character Recognition" },
  { 0x2460, 0x24FF, 42, "Enclosed Alphanumerics" },
  { 0x2500, 0x257F, 43, "Box Drawing" },
  { 0x2580, 0x259F, 44, "Block Elements" },
  { 0x25A0, 0x25FF, 45, "Geometric Shapes" },
  { 0x2600, 0x26FF, 46, "Miscellaneous Symbols" },
  { 0x2700, 0x27BF, 47, "Dingbats" },
  { 0x3000, 0x303F, 48, "CJK Symbols and Punctuation" },
  { 0x3040, 0x309F, 49, "Hiragana" },
  { 0x30A0, 0x30FF, 50, "Katakana" },
  { 0x3100, 0x312F, 51, "Bopomofo" },
  { 0x3130, 0x318F, 52, "Hangul Compatibility Jamo" },
  { 0x3190, 0x319F, 53, "CJK Miscellaneous" },
  { 0x3200, 0x32FF, 54, "Enclosed CJK" },
  { 0x3300, 0x33FF, 55, "CJK Compatibility" },
  { 0x3400, 0x3D2D, 56, "Hangul" },
  { 0x3D2E, 0x44B7, 57, "Hangul Supplementary-A" },
  { 0x44B8, 0x4DFF, 58, "Hangul Supplementary-B" },
  { 0x4E00, 0x9FFF, 59, "CJK Unified Ideographs" },
  { 0xE000, 0xF8FF, 60, "Private Use Area" },
  { 0xF900, 0xFAFF, 61, "CJK Compatibility Ideographs" },
  { 0xFB00, 0xFB4F, 62, "Alphabetic Presentation Forms" },
  { 0xFB50, 0xFDFF, 63, "Arabic Presentation Forms-A" },
  { 0xFE20, 0xFE2F, 64, "Combining Half Marks" },
  { 0xFE30, 0xFE4F, 65, "CJK Compatibility Forms" },
  { 0xFE50, 0xFE6F, 66, "Small Form Variants" },
  { 0xFE70, 0xFEFE, 67, "Arabic Presentation Forms-B" },
  { 0xFEFF, 0xFEFF, 69, "Specials" },
  { 0xFF00, 0xFFEF, 68, "Halfwidth and Fullwidth Forms" },
  { 0xFFF0, 0xFFFD, 69, "Specials" }
};

/* Return the Unicode Subset bitfield number for a Unicode character */

static int
unicode_classify (wchar_t wc)
{
  int min = 0;
  int max = sizeof (utab) / sizeof (utab[0]) - 1;
  int mid;

  while (max >= min)
    {
      mid = (min + max) / 2;
      if (utab[mid].high < wc)
	min = mid + 1;
      else if (wc < utab[mid].low)
	max = mid - 1;
      else if (utab[mid].low <= wc && wc <= utab[mid].high)
	return utab[mid].bit;
      else
	return -1;
    }
}

void
gdk_wchar_text_handle (GdkFont       *font,
		       const wchar_t *wcstr,
		       int            wclen,
		       void         (*handler)(GdkWin32SingleFont *,
					       const wchar_t *,
					       int,
					       void *),
		       void          *arg)
{
  GdkFontPrivateWin32 *private;
  GdkWin32SingleFont *singlefont;
  GSList *list;
  int i, block;
  const wchar_t *start, *end, *wcp;

  wcp = wcstr;
  end = wcp + wclen;
  private = (GdkFontPrivateWin32 *) font;

  g_assert (private->base.ref_count > 0);

  while (wcp < end)
    {
      /* Split Unicode string into pieces of the same class */
      start = wcp;
      block = unicode_classify (*wcp);
      while (wcp + 1 < end && unicode_classify (wcp[1]) == block)
	wcp++;

      /* Find a font in the fontset that can handle this class */
      list = private->fonts;
      while (list)
	{
	  singlefont = (GdkWin32SingleFont *) list->data;
	  
	  if (singlefont->fs.fsUsb[block/32] & (1 << (block % 32)))
	    break;

	  list = list->next;
	}

      if (!list)
	singlefont = NULL;

      /* Call the callback function */
      (*handler) (singlefont, start, wcp+1 - start, arg);
      wcp++;
    }
}

typedef struct
{
  SIZE total;
  SIZE max;
} gdk_text_size_arg;

static void
gdk_text_size_handler (GdkWin32SingleFont *singlefont,
		       const wchar_t      *wcstr,
		       int		   wclen,
		       void		  *argp)
{
  SIZE this_size;
  HGDIOBJ oldfont;
  gdk_text_size_arg *arg = (gdk_text_size_arg *) argp;

  if (!singlefont)
    return;

  if ((oldfont = SelectObject (gdk_DC, singlefont->xfont)) == NULL)
    {
      g_warning ("gdk_text_size_handler: SelectObject failed");
      return;
    }
  GetTextExtentPoint32W (gdk_DC, wcstr, wclen, &this_size);
  SelectObject (gdk_DC, oldfont);

  arg->total.cx += this_size.cx;
  arg->total.cy += this_size.cy;
  arg->max.cx = MAX (this_size.cx, arg->max.cx);
  arg->max.cy = MAX (this_size.cy, arg->max.cy);
}

static gboolean
gdk_text_size (GdkFont           *font,
	       const gchar       *text,
	       gint               text_length,
	       gdk_text_size_arg *arg)
{
  gint wlen;
  wchar_t *wcstr;

  g_return_val_if_fail (font != NULL, FALSE);
  g_return_val_if_fail (text != NULL, FALSE);

  if (text_length == 0)
    return 0;

  g_assert (font->type == GDK_FONT_FONT || font->type == GDK_FONT_FONTSET);

  wcstr = g_new (wchar_t, text_length);
  if ((wlen = gdk_nmbstowchar_ts (wcstr, text, text_length, text_length)) == -1)
    g_warning ("gdk_text_size: gdk_nmbstowchar_ts failed");
  else
    gdk_wchar_text_handle (font, wcstr, wlen, gdk_text_size_handler, arg);

  g_free (wcstr);

  return TRUE;
}

gint
gdk_text_width (GdkFont      *font,
		const gchar  *text,
		gint          text_length)
{
  gdk_text_size_arg arg;

  arg.total.cx = arg.total.cy = 0;
  arg.max.cx = arg.max.cy = 0;

  if (!gdk_text_size (font, text, text_length, &arg))
    return -1;

  return arg.total.cx;
}

gint
gdk_text_width_wc (GdkFont	  *font,
		   const GdkWChar *text,
		   gint		   text_length)
{
  gdk_text_size_arg arg;
  wchar_t *wcstr;
  gint i;

  g_return_val_if_fail (font != NULL, -1);
  g_return_val_if_fail (text != NULL, -1);

  if (text_length == 0)
    return 0;

  g_assert (font->type == GDK_FONT_FONT || font->type == GDK_FONT_FONTSET);

  if (sizeof (wchar_t) != sizeof (GdkWChar))
    {
      wcstr = g_new (wchar_t, text_length);
      for (i = 0; i < text_length; i++)
	wcstr[i] = text[i];
    }
  else
    wcstr = (wchar_t *) text;

  arg.total.cx = arg.total.cy = 0;
  arg.max.cx = arg.max.cy = 0;

  gdk_wchar_text_handle (font, wcstr, text_length,
			 gdk_text_size_handler, &arg);

  if (sizeof (wchar_t) != sizeof (GdkWChar))
    g_free (wcstr);

  return arg.total.cx;
}

void
gdk_text_extents (GdkFont     *font,
                  const gchar *text,
                  gint         text_length,
		  gint        *lbearing,
		  gint        *rbearing,
		  gint        *width,
		  gint        *ascent,
		  gint        *descent)
{
  gdk_text_size_arg arg;
  gint wlen;
  wchar_t *wcstr;

  g_return_if_fail (font != NULL);
  g_return_if_fail (text != NULL);

  if (text_length == 0)
    {
      if (lbearing)
	*lbearing = 0;
      if (rbearing)
	*rbearing = 0;
      if (width)
	*width = 0;
      if (ascent)
	*ascent = 0;
      if (descent)
	*descent = 0;
      return;
    }

  g_assert (font->type == GDK_FONT_FONT || font->type == GDK_FONT_FONTSET);

  arg.total.cx = arg.total.cy = 0;
  arg.max.cx = arg.max.cy = 0;

  wcstr = g_new (wchar_t, text_length);
  if ((wlen = gdk_nmbstowchar_ts (wcstr, text, text_length, text_length)) == -1)
    g_warning ("gdk_text_extents: gdk_nmbstowchar_ts failed");
  else
    gdk_wchar_text_handle (font, wcstr, wlen, gdk_text_size_handler, &arg);

  g_free (wcstr);

  /* XXX This is quite bogus */
  if (lbearing)
    *lbearing = 0;
  if (rbearing)
    *rbearing = 0;
  if (width)
    *width = arg.total.cx;
  if (ascent)
    *ascent = arg.max.cy + 1;
  if (descent)
    *descent = font->descent + 1;
}

void
gdk_text_extents_wc (GdkFont        *font,
		     const GdkWChar *text,
		     gint            text_length,
		     gint           *lbearing,
		     gint           *rbearing,
		     gint           *width,
		     gint           *ascent,
		     gint           *descent)
{
  gdk_text_size_arg arg;
  wchar_t *wcstr;
  gint i;

  g_return_if_fail (font != NULL);
  g_return_if_fail (text != NULL);

  if (text_length == 0)
    {
      if (lbearing)
	*lbearing = 0;
      if (rbearing)
	*rbearing = 0;
      if (width)
	*width = 0;
      if (ascent)
	*ascent = 0;
      if (descent)
	*descent = 0;
      return;
    }

  g_assert (font->type == GDK_FONT_FONT || font->type == GDK_FONT_FONTSET);

  if (sizeof (wchar_t) != sizeof (GdkWChar))
    {
      wcstr = g_new (wchar_t, text_length);
      for (i = 0; i < text_length; i++)
	wcstr[i] = text[i];
    }
  else
    wcstr = (wchar_t *) text;

  arg.total.cx = arg.total.cy = 0;
  arg.max.cx = arg.max.cy = 0;

  gdk_wchar_text_handle (font, wcstr, text_length,
			 gdk_text_size_handler, &arg);

  if (sizeof (wchar_t) != sizeof (GdkWChar))
    g_free (wcstr);

  /* XXX This is quite bogus */
  if (lbearing)
    *lbearing = 0;
  if (rbearing)
    *rbearing = 0;
  if (width)
    *width = arg.total.cx;
  if (ascent)
    *ascent = arg.max.cy + 1;
  if (descent)
    *descent = font->descent + 1;
}