(ftfont_resolve_generic_family): Renamed from

ftfont_list_generic_family.  Return a single family for each
generic family.
(ftfont_spec_pattern): Add FC_FAMILY to pattern.
(ftfont_list): Adjusted for the change of
ftfont_resolve_generic_family.  Call font_add_log.
(ftfont_match): Call font_add_log.

diff --git a/src/ChangeLog b/src/ChangeLog
index ad780f7a7b02565d698cda8b181d0445dbf5784d..0a0130c71cbc760104ece98a7ac850a15019d70d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,57 @@
+2008-05-22  Kenichi Handa  <handa@m17n.org>
+
+       * ftfont.c (ftfont_resolve_generic_family): Renamed from
+       ftfont_list_generic_family.  Return a single family for each
+       generic family.
+       (ftfont_spec_pattern): Add FC_FAMILY to pattern.
+       (ftfont_list): Adjusted for the change of
+       ftfont_resolve_generic_family.  Call font_add_log.
+       (ftfont_match): Call font_add_log.
+
+       * font.h (Ffont_xlfd_name): EXFUN adjusted.
+       (FONT_DEBUG): Define it.
+       (font_add_log): Extern it.
+       (font_assert): Renamed from xassert.
+
+       * xfont.c (xfont_get_pcm): Change xassert to font_assert.
+       (xfont_list_family): Call font_add_log.
+       (xfont_match): Likewise.
+       (memq_no_quit): Deleted.
+
+       * fontset.c (fontset_from_font, Ffontset_info): Add the 2nd arg in
+       call of Ffont_xlfd_name.
+
+       * xfaces.c (struct table_entry, slant_table, weight_table)
+       (swidth_table): Moved to font.c.
+
+       * font.c: Checking of FONT_DEBUG is moved to font.h.  All calls of
+       xassert are changed to font_assert.  Many unused variables
+       deleted.
+       (Vfont_weight_table, Vfont_slant_table, Vfont_width_table): New
+       variables.
+       (struct table_entry): Moved from xfaces.c and modified.
+       (weight_table, slant_table, width_table): Moved from xfaces.c and
+       contents adjusted for the change of struct table_entry.
+       (font_style_to_value, font_style_symbolic): Adjuted for the format
+       change of font_style_table.
+       (font_parse_family_registry): Don't overwrite existing foundry and
+       family of font_spec.
+       (font_score): Fix calculation of diff for sizes.
+       (font_sort_entites): Call font_add_log.
+       (font_delete_unmatched): Return a newly created list.
+       (font_list_entities): Fix previous change.  Call font_add_log.
+       (font_matching_entity, font_open_entity, font_close_entity): Call
+       font_add_log.
+       (Ffont_xlfd_name): New arg FOLD-WILDCARDS.
+       (Finternal_set_font_style_table): Deleted.
+       (BUILD_STYLE_TABLE): New macro.
+       (build_style_table): New function.
+       (Vfont_log, font_log_env_checked): New variables.
+       (font_add_log): New function.
+       (syms_of_font): Delete defsubr Sinternal_set_font_style_table.
+       Declare Lisp variables "font-weight-table", "font-slant-table",
+       "font-width-table", and "font-log".  Initialize font_style_table.
+
 2008-05-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * xterm.c (x_set_frame_alpha): Move declarations before statements.

diff --git a/src/ftfont.c b/src/ftfont.c
index 6c86a7872e9f43e4c0d25031d0ab123714dfc457..72deedd73c31426bdd3e0c791c048593261141e4 100644 (file)
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -70,7 +70,7 @@ struct ftfont_info
 
 static Lisp_Object ftfont_pattern_entity P_ ((FcPattern *, Lisp_Object, int));
 
-static Lisp_Object ftfont_list_generic_family P_ ((Lisp_Object));
+static Lisp_Object ftfont_resolve_generic_family P_ ((Lisp_Object));
 Lisp_Object ftfont_font_format P_ ((FcPattern *));
 
 #define SYMBOL_FcChar8(SYM) (FcChar8 *) SDATA (SYMBOL_NAME (SYM))
@@ -192,16 +192,14 @@ ftfont_pattern_entity (p, registry, fc_charset_idx)
 static Lisp_Object ftfont_generic_family_list;
 
 static Lisp_Object
-ftfont_list_generic_family (family)
+ftfont_resolve_generic_family (family)
      Lisp_Object family;
 {
-  Lisp_Object slot, list;
-  FcObjectSet *objset = NULL;
-  FcPattern *pattern = NULL, *pat = NULL;
-  FcFontSet *fontset = NULL;
-  FcChar8 *fam;
-  int i;
+  Lisp_Object slot;
+  FcPattern *pattern = NULL, *match;
+  FcResult result;
 
+  family = Fintern (Fdowncase (SYMBOL_NAME (family)), Qnil);
   if (EQ (family, Qmono))
     family = Qmonospace;
   else if (EQ (family, Qsans) || EQ (family, Qsans__serif))
@@ -209,45 +207,29 @@ ftfont_list_generic_family (family)
   slot = assq_no_quit (family, ftfont_generic_family_list);
   if (! CONSP (slot))
     return Qnil;
-  list = XCDR (slot);
-  if (! EQ (list, Qt))
-    return list;
-
-  objset = FcObjectSetBuild (FC_FAMILY, NULL);
-  if (! objset)
-    goto err;
+  if (! EQ (XCDR (slot), Qt))
+    return XCDR (slot);
   pattern = FcPatternBuild (NULL, FC_FAMILY, FcTypeString,
                            SYMBOL_FcChar8 (family), (char *) 0);
   if (! pattern)
     goto err;
-  pat = FcPatternCreate ();
-  if (! pat)
-    goto err;
   FcConfigSubstitute (NULL, pattern, FcMatchPattern);
-  for (i = 0, list = Qnil;
-       FcPatternGetString (pattern, FC_FAMILY, i, &fam) == FcResultMatch;
-       i++)
+  FcDefaultSubstitute (pattern);
+  match = FcFontMatch (NULL, pattern, &result);
+  if (match)
     {
-      if (strcmp ((char *) fam, (char *) SYMBOL_FcChar8 (family)) == 0)
-       continue;
-      if (! FcPatternAddString (pat, FC_FAMILY, fam))
-       goto err;
-      fontset = FcFontList (NULL, pat, objset);
-      if (! fontset)
-       goto err;
-      if (fontset->nfont > 0)
-       list = Fcons (intern ((char *) fam), list);
-      FcFontSetDestroy (fontset);
-      fontset = NULL;
-      FcPatternDel (pat, FC_FAMILY);
+      FcChar8 *fam;
+
+      if (FcPatternGetString (match, FC_FAMILY, 0, &fam) == FcResultMatch)
+       family = intern ((char *) fam);
     }
-  XSETCDR (slot, list);
+  else
+    family = Qnil;
+  XSETCDR (slot, family);
  err:
-  if (pat) FcPatternDestroy (pat);
+  if (match) FcPatternDestroy (match);
   if (pattern) FcPatternDestroy (pattern);
-  if (fontset) FcFontSetDestroy (fontset);
-  if (objset) FcObjectSetDestroy (objset);
-  return list;
+  return family;
 }
 
 Lisp_Object
@@ -588,10 +570,16 @@ ftfont_spec_pattern (spec, fc_charset_idx, otlayout, otspec)
     goto err;
   FcPatternDel (pattern, FC_SIZE);
   FcPatternDel (pattern, FC_PIXEL_SIZE);
+  FcPatternDel (pattern, FC_FOUNDRY);
+  FcPatternDel (pattern, FC_FAMILY);
   tmp = AREF (spec, FONT_FOUNDRY_INDEX);
   if (! NILP (tmp)
       && ! FcPatternAddString (pattern, FC_FOUNDRY, SYMBOL_FcChar8 (tmp)))
     goto err;
+  tmp = AREF (spec, FONT_FAMILY_INDEX);
+  if (! NILP (tmp)
+      && ! FcPatternAddString (pattern, FC_FAMILY, SYMBOL_FcChar8 (tmp)))
+    goto err;
   if (charset
       && ! FcPatternAddCharSet (pattern, FC_CHARSET, charset))
     goto err;
@@ -636,7 +624,7 @@ static Lisp_Object
 ftfont_list (frame, spec)
      Lisp_Object frame, spec;
 {
-  Lisp_Object val, registry, family, family_list;
+  Lisp_Object val = Qnil, registry, family;
   int i;
   FcPattern *pattern;
   FcFontSet *fontset = NULL;
@@ -654,6 +642,22 @@ ftfont_list (frame, spec)
   pattern = ftfont_spec_pattern (spec, &fc_charset_idx, otlayout, &otspec);
   if (! pattern)
     return Qnil;
+  registry = AREF (spec, FONT_REGISTRY_INDEX);
+  family = AREF (spec, FONT_FAMILY_INDEX);
+  if (! NILP (family))
+    {
+      Lisp_Object resolved;
+
+      resolved = ftfont_resolve_generic_family (family);
+      if (! NILP (resolved))
+       {
+         FcPatternDel (pattern, FC_FAMILY);
+         if (! FcPatternAddString (pattern, FC_FAMILY,
+                                   SYMBOL_FcChar8 (resolved)))
+           goto err;
+       }
+    }
+
   objset = FcObjectSetBuild (FC_FOUNDRY, FC_FAMILY, FC_WEIGHT, FC_SLANT,
                             FC_WIDTH, FC_PIXEL_SIZE, FC_SPACING, FC_SCALABLE,
                             FC_CHARSET, FC_FILE,
@@ -664,76 +668,53 @@ ftfont_list (frame, spec)
   if (! objset)
     goto err;
 
-  registry = AREF (spec, FONT_REGISTRY_INDEX);
-  family = AREF (spec, FONT_FAMILY_INDEX);
-  if (NILP (family))
-    family_list = Fcons (Qnil, Qnil);
-  else
-    {
-      family = Fintern (Fdowncase (SYMBOL_NAME (family)), Qnil);
-      family_list = ftfont_list_generic_family (family);
-      if (NILP (family_list))
-       family_list = Fcons (family, Qnil);
-    }
-
-  for (val = Qnil; CONSP (family_list); family_list = XCDR (family_list))
+  fontset = FcFontList (NULL, pattern, objset);
+  if (! fontset)
+    goto err;
+  for (i = 0; i < fontset->nfont; i++)
     {
-      family = XCAR (family_list);
-      if (! NILP (family))
-       {
-         FcPatternDel (pattern, FC_FAMILY);
-         if (! FcPatternAddString (pattern, FC_FAMILY, SYMBOL_FcChar8 (family)))
-           goto err;
-       }
-      fontset = FcFontList (NULL, pattern, objset);
-      if (! fontset)
-       goto err;
-      for (i = 0; i < fontset->nfont; i++)
-       {
-         Lisp_Object entity;
+      Lisp_Object entity;
 
 #ifdef FC_CAPABILITY
-         if (otlayout[0])
-           {
-             FcChar8 *this;
+      if (otlayout[0])
+       {
+         FcChar8 *this;
 
-             if (FcPatternGetString (fontset->fonts[i], FC_CAPABILITY, 0,
-                                     &this) != FcResultMatch
-                 || ! strstr ((char *) this, otlayout))
-               continue;
-           }
+         if (FcPatternGetString (fontset->fonts[i], FC_CAPABILITY, 0,
+                                 &this) != FcResultMatch
+             || ! strstr ((char *) this, otlayout))
+           continue;
+       }
 #endif /* FC_CAPABILITY */
 #ifdef HAVE_LIBOTF
-         if (otspec)
-           {
-             FcChar8 *file;
-             OTF *otf;
-
-             if (FcPatternGetString (fontset->fonts[i], FC_FILE, 0, &file)
-                 != FcResultMatch)
-               continue;
-             otf = OTF_open ((char *) file);
-             if (! otf)
-               continue;
-             if (OTF_check_features (otf, 1,
-                                     otspec->script_tag, otspec->langsys_tag,
-                                     otspec->features[0],
-                                     otspec->nfeatures[0]) != 1
-                 || OTF_check_features (otf, 0,
-                                        otspec->script_tag, otspec->langsys_tag,
-                                        otspec->features[1],
-                                        otspec->nfeatures[1]) != 1)
-               continue;
-           }
-#endif /* HAVE_LIBOTF */
-         entity = ftfont_pattern_entity (fontset->fonts[i], registry,
-                                         fc_charset_idx);
-         if (! NILP (entity))
-           val = Fcons (entity, val);
+      if (otspec)
+       {
+         FcChar8 *file;
+         OTF *otf;
+
+         if (FcPatternGetString (fontset->fonts[i], FC_FILE, 0, &file)
+             != FcResultMatch)
+           continue;
+         otf = OTF_open ((char *) file);
+         if (! otf)
+           continue;
+         if (OTF_check_features (otf, 1,
+                                 otspec->script_tag, otspec->langsys_tag,
+                                 otspec->features[0],
+                                 otspec->nfeatures[0]) != 1
+             || OTF_check_features (otf, 0,
+                                    otspec->script_tag, otspec->langsys_tag,
+                                    otspec->features[1],
+                                    otspec->nfeatures[1]) != 1)
+           continue;
        }
-      FcFontSetDestroy (fontset);
-      fontset = NULL;
+#endif /* HAVE_LIBOTF */
+      entity = ftfont_pattern_entity (fontset->fonts[i], registry,
+                                     fc_charset_idx);
+      if (! NILP (entity))
+       val = Fcons (entity, val);
     }
+  font_add_log ("ftfont-list", spec, val);
   goto finish;
 
  err:
@@ -795,6 +776,7 @@ ftfont_match (frame, spec)
     }
   FcPatternDestroy (pattern);
 
+  font_add_log ("ftfont-match", spec, entity);
   return entity;
 }