]> git.wh0rd.org - fontconfig.git/blobdiff - src/fccfg.c
Reimplement FC_LANG as FcTypeLang, freeze patterns, other cleanup
[fontconfig.git] / src / fccfg.c
index 0280ee1d198ded49ad7db1ba19539a80dcd8b9f6..2ec9f779eea385fb10afd165dacc40ee8e172a91 100644 (file)
@@ -1,5 +1,5 @@
 /*
- * $XFree86: $
+ * $XFree86: xc/lib/fontconfig/src/fccfg.c,v 1.20 2002/08/19 19:32:05 keithp Exp $
  *
  * Copyright © 2000 Keith Packard, member of The XFree86 Project, Inc.
  *
  * PERFORMANCE OF THIS SOFTWARE.
  */
 
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
 #include "fcint.h"
 
-static FcConfig    *fcConfig;
+FcConfig    *_fcConfig;
 
 FcConfig *
 FcConfigCreate (void)
@@ -38,20 +35,23 @@ FcConfigCreate (void)
     config = malloc (sizeof (FcConfig));
     if (!config)
        goto bail0;
+    FcMemAlloc (FC_MEM_CONFIG, sizeof (FcConfig));
     
-    config->dirs = malloc (sizeof (char *));
-    if (!config->dirs)
+    config->configDirs = FcStrSetCreate ();
+    if (!config->configDirs)
        goto bail1;
-    config->dirs[0] = 0;
     
-    config->configFiles = malloc (sizeof (char *));
+    config->configFiles = FcStrSetCreate ();
     if (!config->configFiles)
        goto bail2;
-    config->configFiles[0] = 0;
     
-    config->cache = 0;
-    if (!FcConfigSetCache (config, "~/" FC_USER_CACHE_FILE))
+    config->fontDirs = FcStrSetCreate ();
+    if (!config->fontDirs)
        goto bail3;
+    
+    config->cache = 0;
+    if (!FcConfigSetCache (config, (FcChar8 *) ("~/" FC_USER_CACHE_FILE)))
+       goto bail4;
 
     config->blanks = 0;
 
@@ -60,19 +60,71 @@ FcConfigCreate (void)
     config->maxObjects = 0;
     for (set = FcSetSystem; set <= FcSetApplication; set++)
        config->fonts[set] = 0;
+
+    config->rescanTime = time(0);
+    config->rescanInterval = 30;    
     
     return config;
 
+bail4:
+    FcStrSetDestroy (config->fontDirs);
 bail3:
-    free (config->configFiles);
+    FcStrSetDestroy (config->configFiles);
 bail2:
-    free (config->dirs);
+    FcStrSetDestroy (config->configDirs);
 bail1:
     free (config);
+    FcMemFree (FC_MEM_CONFIG, sizeof (FcConfig));
 bail0:
     return 0;
 }
 
+typedef struct _FcFileTime {
+    time_t  time;
+    FcBool  set;
+} FcFileTime;
+
+static FcFileTime
+FcConfigNewestFile (FcStrSet *files)
+{
+    FcStrList      *list = FcStrListCreate (files);
+    FcFileTime     newest = { 0, FcFalse };
+    FcChar8        *file;
+    struct  stat    statb;
+
+    if (list)
+    {
+       while ((file = FcStrListNext (list)))
+           if (stat ((char *) file, &statb) == 0)
+               if (!newest.set || statb.st_mtime - newest.time > 0)
+                   newest.time = statb.st_mtime;
+       FcStrListDone (list);
+    }
+    return newest;
+}
+
+FcBool
+FcConfigUptoDate (FcConfig *config)
+{
+    FcFileTime config_time, font_time;
+    time_t     now = time(0);
+    if (!config)
+    {
+       config = FcConfigGetCurrent ();
+       if (!config)
+           return FcFalse;
+    }
+    config_time = FcConfigNewestFile (config->configFiles);
+    font_time = FcConfigNewestFile (config->configDirs);
+    if ((config_time.set && config_time.time - config->rescanTime > 0) ||
+       (font_time.set && font_time.time - config->rescanTime) > 0)
+    {
+       return FcFalse;
+    }
+    config->rescanTime = now;
+    return FcTrue;
+}
+
 static void
 FcSubstDestroy (FcSubst *s)
 {
@@ -87,51 +139,27 @@ FcSubstDestroy (FcSubst *s)
     }
 }
 
-static void
-FcConfigDestroyStrings (char **strings)
-{
-    char    **s;
-
-    for (s = strings; s && *s; s++)
-       free (*s);
-    if (strings)
-       free (strings);
-}
-    
-static FcBool
-FcConfigAddString (char ***strings, char *string)
-{
-    int            n;
-    char    **s;
-    
-    n = 0;
-    for (s = *strings; s && *s; s++)
-       n++;
-    s = malloc ((n + 2) * sizeof (char *));
-    if (!s)
-       return FcFalse;
-    s[n] = string;
-    s[n+1] = 0;
-    memcpy (s, *strings, n * sizeof (char *));
-    free (*strings);
-    *strings = s;
-    return FcTrue;
-}
-
 void
 FcConfigDestroy (FcConfig *config)
 {
     FcSetName  set;
-    FcConfigDestroyStrings (config->dirs);
-    FcConfigDestroyStrings (config->configFiles);
 
-    free (config->cache);
+    if (config == _fcConfig)
+       _fcConfig = 0;
+
+    FcStrSetDestroy (config->configDirs);
+    FcStrSetDestroy (config->fontDirs);
+    FcStrSetDestroy (config->configFiles);
+
+    FcStrFree (config->cache);
 
     FcSubstDestroy (config->substPattern);
     FcSubstDestroy (config->substFont);
     for (set = FcSetSystem; set <= FcSetApplication; set++)
        if (config->fonts[set])
            FcFontSetDestroy (config->fonts[set]);
+    free (config);
+    FcMemFree (FC_MEM_CONFIG, sizeof (FcConfig));
 }
 
 /*
@@ -143,32 +171,39 @@ FcConfigDestroy (FcConfig *config)
 FcBool
 FcConfigBuildFonts (FcConfig *config)
 {
-    FcFontSet   *fonts;
-    FcFileCache *cache;
-    char       **d;
+    FcFontSet      *fonts;
+    FcGlobalCache   *cache;
+    FcStrList      *list;
+    FcChar8        *dir;
 
     fonts = FcFontSetCreate ();
     if (!fonts)
        goto bail0;
     
-    cache = FcFileCacheCreate ();
+    cache = FcGlobalCacheCreate ();
     if (!cache)
        goto bail1;
 
-    FcFileCacheLoad (cache, config->cache);
+    FcGlobalCacheLoad (cache, config->cache);
+
+    list = FcConfigGetFontDirs (config);
+    if (!list)
+       goto bail1;
 
-    for (d = config->dirs; d && *d; d++)
+    while ((dir = FcStrListNext (list)))
     {
        if (FcDebug () & FC_DBG_FONTSET)
-           printf ("scan dir %s\n", *d);
-       FcDirScan (fonts, cache, config->blanks, *d, FcFalse);
+           printf ("scan dir %s\n", dir);
+       FcDirScan (fonts, config->fontDirs, cache, config->blanks, dir, FcFalse);
     }
     
+    FcStrListDone (list);
+    
     if (FcDebug () & FC_DBG_FONTSET)
        FcFontSetPrint (fonts);
 
-    FcFileCacheSave (cache, config->cache);
-    FcFileCacheDestroy (cache);
+    FcGlobalCacheSave (cache, config->cache);
+    FcGlobalCacheDestroy (cache);
 
     FcConfigSetFonts (config, fonts, FcSetSystem);
     
@@ -186,53 +221,57 @@ FcConfigSetCurrent (FcConfig *config)
        if (!FcConfigBuildFonts (config))
            return FcFalse;
 
-    if (fcConfig)
-       FcConfigDestroy (fcConfig);
-    fcConfig = config;
+    if (_fcConfig)
+       FcConfigDestroy (_fcConfig);
+    _fcConfig = config;
     return FcTrue;
 }
 
 FcConfig *
 FcConfigGetCurrent (void)
 {
-    return fcConfig;
+    if (!_fcConfig)
+       if (!FcInit ())
+           return 0;
+    return _fcConfig;
 }
 
 FcBool
-FcConfigAddDir (FcConfig    *config,
-               const char  *d)
+FcConfigAddConfigDir (FcConfig     *config,
+                     const FcChar8 *d)
 {
-    char    *dir;
-    char    *h;
+    return FcStrSetAddFilename (config->configDirs, d);
+}
 
-    if (*d == '~')
-    {
-       h = getenv ("HOME");
-       if (!h)
-           return FcFalse;
-       dir = (char *) malloc (strlen (h) + strlen (d));
-       if (!dir)
-           return FcFalse;
-       strcpy (dir, h);
-       strcat (dir, d+1);
-    }
-    else
-    {
-       dir = (char *) malloc (strlen (d) + 1);
-       if (!dir)
-           return FcFalse;
-       strcpy (dir, d);
-    }
-    if (!FcConfigAddString (&config->dirs, dir))
+FcStrList *
+FcConfigGetConfigDirs (FcConfig   *config)
+{
+    if (!config)
     {
-       free (dir);
-       return FcFalse;
+       config = FcConfigGetCurrent ();
+       if (!config)
+           return 0;
     }
-    return FcTrue;
+    return FcStrListCreate (config->configDirs);
 }
 
-char **
-FcConfigGetDirs (FcConfig   *config)
+FcBool
+FcConfigAddFontDir (FcConfig       *config,
+                   const FcChar8   *d)
+{
+    return FcStrSetAddFilename (config->fontDirs, d);
+}
+
+FcBool
+FcConfigAddDir (FcConfig           *config,
+               const FcChar8       *d)
+{
+    return (FcConfigAddConfigDir (config, d) && 
+           FcConfigAddFontDir (config, d));
+}
+
+FcStrList *
+FcConfigGetFontDirs (FcConfig  *config)
 {
     if (!config)
     {
@@ -240,26 +279,25 @@ FcConfigGetDirs (FcConfig   *config)
        if (!config)
            return 0;
     }
-    return config->dirs;
+    return FcStrListCreate (config->fontDirs);
 }
 
 FcBool
 FcConfigAddConfigFile (FcConfig            *config,
-                      const char   *f)
+                      const FcChar8   *f)
 {
-    char    *file;
-    file = FcConfigFilename (f);
+    FcBool     ret;
+    FcChar8    *file = FcConfigFilename (f);
+    
     if (!file)
        return FcFalse;
-    if (!FcConfigAddString (&config->configFiles, file))
-    {
-       free (file);
-       return FcFalse;
-    }
-    return FcTrue;
+    
+    ret = FcStrSetAdd (config->configFiles, file);
+    FcStrFree (file);
+    return ret;
 }
 
-char **
+FcStrList *
 FcConfigGetConfigFiles (FcConfig    *config)
 {
     if (!config)
@@ -268,38 +306,24 @@ FcConfigGetConfigFiles (FcConfig    *config)
        if (!config)
            return 0;
     }
-    return config->configFiles;
+    return FcStrListCreate (config->configFiles);
 }
 
 FcBool
 FcConfigSetCache (FcConfig     *config,
-                 const char    *c)
+                 const FcChar8 *c)
 {
-    char    *new;
-    char    *h;
-
-    if (*c == '~')
-    {
-       h = getenv ("HOME");
-       if (!h)
-           return FcFalse;
-       new = (char *) malloc (strlen (h) + strlen (c));
-       if (!new)
-           return FcFalse;
-       strcpy (new, h);
-       strcat (new, c+1);
-    }
-    else
-    {
-       new = FcStrCopy (c);
-    }
+    FcChar8    *new = FcStrCopyFilename (c);
+    
+    if (!new)
+       return FcFalse;
     if (config->cache)
-       free (config->cache);
+       FcStrFree (config->cache);
     config->cache = new;
     return FcTrue;
 }
 
-char *
+FcChar8 *
 FcConfigGetCache (FcConfig  *config)
 {
     if (!config)
@@ -334,6 +358,8 @@ FcConfigSetFonts (FcConfig  *config,
     config->fonts[set] = fonts;
 }
 
+
+
 FcBlanks *
 FcConfigGetBlanks (FcConfig    *config)
 {
@@ -365,6 +391,31 @@ FcConfigAddBlank (FcConfig *config,
     return FcTrue;
 }
 
+int
+FcConfigGetRescanInverval (FcConfig *config)
+{
+    if (!config)
+    {
+       config = FcConfigGetCurrent ();
+       if (!config)
+           return 0;
+    }
+    return config->rescanInterval;
+}
+
+FcBool
+FcConfigSetRescanInverval (FcConfig *config, int rescanInterval)
+{
+    if (!config)
+    {
+       config = FcConfigGetCurrent ();
+       if (!config)
+           return FcFalse;
+    }
+    config->rescanInterval = rescanInterval;
+    return FcTrue;
+}
+
 FcBool
 FcConfigAddEdit (FcConfig      *config,
                 FcTest         *test,
@@ -387,16 +438,20 @@ FcConfigAddEdit (FcConfig *config,
     subst->next = 0;
     subst->test = test;
     subst->edit = edit;
-    if (FcDebug () & FC_DBG_EDIT)
-    {
-       printf ("Add Subst ");
-       FcSubstPrint (subst);
-    }
     num = 0;
     for (t = test; t; t = t->next)
+    {
+       if (t->kind == FcMatchDefault)
+           t->kind = kind;
        num++;
+    }
     if (config->maxObjects < num)
        config->maxObjects = num;
+    if (FcDebug () & FC_DBG_EDIT)
+    {
+       printf ("Add Subst ");
+       FcSubstPrint (subst);
+    }
     return FcTrue;
 }
 
@@ -405,8 +460,6 @@ typedef struct _FcSubState {
     FcValueList    *value;
 } FcSubState;
 
-static const FcMatrix    FcIdentityMatrix = { 1, 0, 0, 1 };
-
 static FcValue
 FcConfigPromote (FcValue v, FcValue u)
 {
@@ -417,9 +470,14 @@ FcConfigPromote (FcValue v, FcValue u)
     }
     else if (v.type == FcTypeVoid && u.type == FcTypeMatrix)
     {
-       v.u.m = (FcMatrix *) &FcIdentityMatrix;
+       v.u.m = &FcIdentityMatrix;
        v.type = FcTypeMatrix;
     }
+    else if (v.type == FcTypeString && u.type == FcTypeLangSet)
+    {
+       v.u.l = FcLangSetPromote (v.u.s);
+       v.type = FcTypeLangSet;
+    }
     return v;
 }
 
@@ -434,7 +492,6 @@ FcConfigCompareValue (FcValue       m,
     v = FcConfigPromote (v, m);
     if (m.type == v.type) 
     {
-       ret = FcFalse;
        switch (m.type) {
        case FcTypeInteger:
            break;      /* FcConfigPromote prevents this from happening */
@@ -505,8 +562,8 @@ FcConfigCompareValue (FcValue       m,
        case FcTypeCharSet:
            switch (op) {
            case FcOpContains:
-               /* m contains v if v - m is empty */
-               ret = FcCharSetSubtractCount (v.u.c, m.u.c) == 0;
+               /* m contains v if v is a subset of m */
+               ret = FcCharSetIsSubset (v.u.c, m.u.c);
                break;
            case FcOpEqual:
                ret = FcCharSetEqual (m.u.c, v.u.c);
@@ -518,6 +575,21 @@ FcConfigCompareValue (FcValue      m,
                break;
            }
            break;
+       case FcTypeLangSet:
+           switch (op) {
+           case FcOpContains:
+               ret = FcLangSetCompare (v.u.l, m.u.l) != FcLangDifferentLang;
+               break;
+           case FcOpEqual:
+               ret = FcLangSetEqual (v.u.l, m.u.l);
+               break;
+           case FcOpNotEqual:
+               ret = !FcLangSetEqual (v.u.l, m.u.l);
+               break;
+           default:
+               break;
+           }
+           break;
        case FcTypeVoid:
            switch (op) {
            case FcOpEqual:
@@ -528,6 +600,18 @@ FcConfigCompareValue (FcValue      m,
                break;
            }
            break;
+       case FcTypeFTFace:
+           switch (op) {
+           case FcOpEqual:
+               ret = m.u.f == v.u.f;
+               break;
+           case FcOpNotEqual:
+               ret = m.u.f != v.u.f;
+               break;
+           default:
+               break;
+           }
+           break;
        }
     }
     else
@@ -545,7 +629,6 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
     FcValue    v, vl, vr;
     FcResult   r;
     FcMatrix   *m;
-    FcChar8    *s;
     
     switch (e->op) {
     case FcOpInteger:
@@ -599,15 +682,22 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
            v.type = FcTypeVoid;
        FcValueDestroy (vl);
        break;
-    case FcOpOr:
-    case FcOpAnd:
-    case FcOpEqual:
     case FcOpContains:
     case FcOpNotEqual:
     case FcOpLess:
     case FcOpLessEqual:
     case FcOpMore:
     case FcOpMoreEqual:
+       vl = FcConfigEvaluate (p, e->u.tree.left);
+       vr = FcConfigEvaluate (p, e->u.tree.right);
+       v.type = FcTypeBool;
+       v.u.b = FcConfigCompareValue (vl, e->op, vr);
+       FcValueDestroy (vl);
+       FcValueDestroy (vr);
+       break;  
+    case FcOpOr:
+    case FcOpAnd:
+    case FcOpEqual:
     case FcOpPlus:
     case FcOpMinus:
     case FcOpTimes:
@@ -637,31 +727,6 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
                    v.type = FcTypeDouble;
                    v.u.d = vl.u.d / vr.u.d; 
                    break;
-               case FcOpEqual:
-               case FcOpContains:
-                   v.type = FcTypeBool; 
-                   v.u.b = vl.u.d == vr.u.d;
-                   break;
-               case FcOpNotEqual:    
-                   v.type = FcTypeBool; 
-                   v.u.b = vl.u.d != vr.u.d;
-                   break;
-               case FcOpLess:    
-                   v.type = FcTypeBool; 
-                   v.u.b = vl.u.d < vr.u.d;
-                   break;
-               case FcOpLessEqual:    
-                   v.type = FcTypeBool; 
-                   v.u.b = vl.u.d <= vr.u.d;
-                   break;
-               case FcOpMore:    
-                   v.type = FcTypeBool; 
-                   v.u.b = vl.u.d > vr.u.d;
-                   break;
-               case FcOpMoreEqual:    
-                   v.type = FcTypeBool; 
-                   v.u.b = vl.u.d >= vr.u.d;
-                   break;
                default:
                    v.type = FcTypeVoid; 
                    break;
@@ -683,15 +748,6 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
                    v.type = FcTypeBool;
                    v.u.b = vl.u.b && vr.u.b;
                    break;
-               case FcOpEqual:
-               case FcOpContains:
-                   v.type = FcTypeBool;
-                   v.u.b = vl.u.b == vr.u.b;
-                   break;
-               case FcOpNotEqual:
-                   v.type = FcTypeBool;
-                   v.u.b = vl.u.b != vr.u.b;
-                   break;
                default:
                    v.type = FcTypeVoid; 
                    break;
@@ -699,15 +755,6 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
                break;
            case FcTypeString:
                switch (e->op) {
-               case FcOpEqual:
-               case FcOpContains:
-                   v.type = FcTypeBool;
-                   v.u.b = FcStrCmpIgnoreCase (vl.u.s, vr.u.s) == 0;
-                   break;
-               case FcOpNotEqual:
-                   v.type = FcTypeBool;
-                   v.u.b = FcStrCmpIgnoreCase (vl.u.s, vr.u.s) != 0;
-                   break;
                case FcOpPlus:
                    v.type = FcTypeString;
                    v.u.s = FcStrPlus (vl.u.s, vr.u.s);
@@ -718,17 +765,9 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
                    v.type = FcTypeVoid;
                    break;
                }
+               break;
            case FcTypeMatrix:
                switch (e->op) {
-               case FcOpEqual:
-               case FcOpContains:
-                   v.type = FcTypeBool;
-                   v.u.b = FcMatrixEqual (vl.u.m, vr.u.m);
-                   break;
-               case FcOpNotEqual:
-                   v.type = FcTypeBool;
-                   v.u.b = FcMatrixEqual (vl.u.m, vr.u.m);
-                   break;
                case FcOpTimes:
                    v.type = FcTypeMatrix;
                    m = malloc (sizeof (FcMatrix));
@@ -748,26 +787,6 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
                    break;
                }
                break;
-           case FcTypeCharSet:
-               switch (e->op) {
-               case FcOpContains:
-                   /* vl contains vr if vr - vl is empty */
-                   v.type = FcTypeBool;
-                   v.u.b = FcCharSetSubtractCount (vr.u.c, vl.u.c) == 0;
-                   break;
-               case FcOpEqual:
-                   v.type = FcTypeBool;
-                   v.u.b = FcCharSetEqual (vl.u.c, vr.u.c);
-                   break;
-               case FcOpNotEqual:
-                   v.type = FcTypeBool;
-                   v.u.b = !FcCharSetEqual (vl.u.c, vr.u.c);
-                   break;
-               default:
-                   v.type = FcTypeVoid;
-                   break;
-               }
-               break;
            default:
                v.type = FcTypeVoid;
                break;
@@ -801,33 +820,49 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
 static FcValueList *
 FcConfigMatchValueList (FcPattern      *p,
                        FcTest          *t,
-                       FcValueList     *v)
+                       FcValueList     *values)
 {
-    FcValueList    *ret = 0;
-    FcValue        value = FcConfigEvaluate (p, t->expr);
+    FcValueList            *ret = 0;
+    FcExpr         *e = t->expr;
+    FcValue        value;
+    FcValueList            *v;
     
-    for (; v; v = v->next)
+    while (e)
     {
-       if (FcConfigCompareValue (v->value, t->op, value))
+       if (e->op == FcOpComma)
        {
-           if (!ret)
-               ret = v;
+           value = FcConfigEvaluate (p, e->u.tree.left);
+           e = e->u.tree.right;
        }
        else
        {
-           if (t->qual == FcQualAll)
+           value = FcConfigEvaluate (p, e);
+           e = 0;
+       }
+
+       for (v = values; v; v = v->next)
+       {
+           if (FcConfigCompareValue (v->value, t->op, value))
            {
-               ret = 0;
-               break;
+               if (!ret)
+                   ret = v;
+           }
+           else
+           {
+               if (t->qual == FcQualAll)
+               {
+                   ret = 0;
+                   break;
+               }
            }
        }
+       FcValueDestroy (value);
     }
-    FcValueDestroy (value);
     return ret;
 }
 
 static FcValueList *
-FcConfigValues (FcPattern *p, FcExpr *e)
+FcConfigValues (FcPattern *p, FcExpr *e, FcValueBinding binding)
 {
     FcValueList        *l;
     
@@ -840,14 +875,15 @@ FcConfigValues (FcPattern *p, FcExpr *e)
     if (e->op == FcOpComma)
     {
        l->value = FcConfigEvaluate (p, e->u.tree.left);
-       l->next  = FcConfigValues (p, e->u.tree.right);
+       l->next  = FcConfigValues (p, e->u.tree.right, binding);
     }
     else
     {
        l->value = FcConfigEvaluate (p, e);
        l->next  = 0;
     }
-    while (l->value.type == FcTypeVoid)
+    l->binding = binding;
+    while (l && l->value.type == FcTypeVoid)
     {
        FcValueList     *next = l->next;
        
@@ -947,7 +983,7 @@ FcConfigPatternAdd (FcPattern       *p,
 {
     if (list)
     {
-       FcPatternElt    *e = FcPatternFind (p, object, FcTrue);
+       FcPatternElt    *e = FcPatternInsertElt (p, object);
     
        if (!e)
            return;
@@ -962,7 +998,7 @@ static void
 FcConfigPatternDel (FcPattern  *p,
                    const char  *object)
 {
-    FcPatternElt    *e = FcPatternFind (p, object, FcFalse);
+    FcPatternElt    *e = FcPatternFindElt (p, object);
     if (!e)
        return;
     while (e->values)
@@ -973,7 +1009,7 @@ static void
 FcConfigPatternCanon (FcPattern            *p,
                      const char    *object)
 {
-    FcPatternElt    *e = FcPatternFind (p, object, FcFalse);
+    FcPatternElt    *e = FcPatternFindElt (p, object);
     if (!e)
        return;
     if (!e->values)
@@ -981,9 +1017,10 @@ FcConfigPatternCanon (FcPattern       *p,
 }
 
 FcBool
-FcConfigSubstitute (FcConfig   *config,
-                   FcPattern   *p,
-                   FcMatchKind kind)
+FcConfigSubstituteWithPat (FcConfig    *config,
+                          FcPattern   *p,
+                          FcPattern   *p_pat,
+                          FcMatchKind kind)
 {
     FcSubst        *s;
     FcSubState     *st;
@@ -991,6 +1028,7 @@ FcConfigSubstitute (FcConfig       *config,
     FcTest         *t;
     FcEdit         *e;
     FcValueList            *l;
+    FcPattern      *m;
 
     if (!config)
     {
@@ -1026,7 +1064,15 @@ FcConfigSubstitute (FcConfig     *config,
                printf ("FcConfigSubstitute test ");
                FcTestPrint (t);
            }
-           st[i].elt = FcPatternFind (p, t->field, FcFalse);
+           st[i].elt = 0;
+           if (kind == FcMatchFont && t->kind == FcMatchPattern)
+               m = p_pat;
+           else
+               m = p;
+           if (m)
+               st[i].elt = FcPatternFindElt (m, t->field);
+           else
+               st[i].elt = 0;
            /*
             * If there's no such field in the font,
             * then FcQualAll matches while FcQualAny does not
@@ -1045,9 +1091,13 @@ FcConfigSubstitute (FcConfig     *config,
             * Check to see if there is a match, mark the location
             * to apply match-relative edits
             */
-           st[i].value = FcConfigMatchValueList (p, t, st[i].elt->values);
+           st[i].value = FcConfigMatchValueList (m, t, st[i].elt->values);
            if (!st[i].value)
                break;
+           if (t->qual == FcQualFirst && st[i].value != st[i].elt->values)
+               break;
+           if (t->qual == FcQualNotFirst && st[i].value == st[i].elt->values)
+               break;
        }
        if (t)
        {
@@ -1065,13 +1115,19 @@ FcConfigSubstitute (FcConfig    *config,
            /*
             * Evaluate the list of expressions
             */
-           l = FcConfigValues (p, e->expr);
+           l = FcConfigValues (p, e->expr, e->binding);
            /*
-            * Locate any test associated with this field
+            * Locate any test associated with this field, skipping
+            * tests associated with the pattern when substituting in
+            * the font
             */
            for (t = s->test, i = 0; t; t = t->next, i++)
-               if (!FcStrCmpIgnoreCase (t->field, e->field))
+           {
+               if ((t->kind == FcMatchFont || kind == FcMatchPattern) &&
+                   !FcStrCmpIgnoreCase ((FcChar8 *) t->field, 
+                                        (FcChar8 *) e->field))
                    break;
+           }
            switch (e->op) {
            case FcOpAssign:
                /*
@@ -1087,6 +1143,10 @@ FcConfigSubstitute (FcConfig     *config,
                     * Append the new list of values after the current value
                     */
                    FcConfigAdd (&st[i].elt->values, thisValue, FcTrue, l);
+                   /*
+                    * Delete the marked value
+                    */
+                   FcConfigDel (&st[i].elt->values, thisValue);
                    /*
                     * Adjust any pointers into the value list to ensure
                     * future edits occur at the same place
@@ -1096,10 +1156,6 @@ FcConfigSubstitute (FcConfig     *config,
                        if (st[i].value == thisValue)
                            st[i].value = nextValue;
                    }
-                   /*
-                    * Delete the marked value
-                    */
-                   FcConfigDel (&st[i].elt->values, thisValue);
                    break;
                }
                /* fall through ... */
@@ -1171,6 +1227,14 @@ FcConfigSubstitute (FcConfig     *config,
     return FcTrue;
 }
 
+FcBool
+FcConfigSubstitute (FcConfig   *config,
+                   FcPattern   *p,
+                   FcMatchKind kind)
+{
+    return FcConfigSubstituteWithPat (config, p, 0, kind);
+}
+
 #ifndef FONTCONFIG_PATH
 #define FONTCONFIG_PATH        "/etc/fonts"
 #endif
@@ -1179,41 +1243,41 @@ FcConfigSubstitute (FcConfig    *config,
 #define FONTCONFIG_FILE        "fonts.conf"
 #endif
 
-static char *
-FcConfigFileExists (const char *dir, const char *file)
+static FcChar8 *
+FcConfigFileExists (const FcChar8 *dir, const FcChar8 *file)
 {
-    char    *path;
+    FcChar8    *path;
 
     if (!dir)
-       dir = "";
-    path = malloc (strlen (dir) + 1 + strlen (file) + 1);
+       dir = (FcChar8 *) "";
+    path = malloc (strlen ((char *) dir) + 1 + strlen ((char *) file) + 1);
     if (!path)
        return 0;
 
-    strcpy (path, dir);
+    strcpy ((char *) path, (const char *) dir);
     /* make sure there's a single separating / */
-    if ((!path[0] || path[strlen(path)-1] != '/') && file[0] != '/')
-       strcat (path, "/");
-    strcat (path, file);
+    if ((!path[0] || path[strlen((char *) path)-1] != '/') && file[0] != '/')
+       strcat ((char *) path, "/");
+    strcat ((char *) path, (char *) file);
 
-    if (access (path, R_OK) == 0)
+    if (access ((char *) path, R_OK) == 0)
        return path;
     
     free (path);
     return 0;
 }
 
-static char **
+static FcChar8 **
 FcConfigGetPath (void)
 {
-    char    **path;
-    char    *env, *e, *colon;
-    char    *dir;
+    FcChar8    **path;
+    FcChar8    *env, *e, *colon;
+    FcChar8    *dir;
     int            npath;
     int            i;
 
     npath = 2; /* default dir + null */
-    env = getenv ("FONTCONFIG_PATH");
+    env = (FcChar8 *) getenv ("FONTCONFIG_PATH");
     if (env)
     {
        e = env;
@@ -1222,7 +1286,7 @@ FcConfigGetPath (void)
            if (*e++ == ':')
                npath++;
     }
-    path = calloc (npath, sizeof (char *));
+    path = calloc (npath, sizeof (FcChar8 *));
     if (!path)
        goto bail0;
     i = 0;
@@ -1232,13 +1296,13 @@ FcConfigGetPath (void)
        e = env;
        while (*e) 
        {
-           colon = strchr (e, ':');
+           colon = (FcChar8 *) strchr ((char *) e, ':');
            if (!colon)
-               colon = e + strlen (e);
+               colon = e + strlen ((char *) e);
            path[i] = malloc (colon - e + 1);
            if (!path[i])
                goto bail1;
-           strncpy (path[i], e, colon - e);
+           strncpy ((char *) path[i], (const char *) e, colon - e);
            path[i][colon - e] = '\0';
            if (*colon)
                e = colon + 1;
@@ -1248,11 +1312,11 @@ FcConfigGetPath (void)
        }
     }
     
-    dir = FONTCONFIG_PATH;
-    path[i] = malloc (strlen (dir) + 1);
+    dir = (FcChar8 *) FONTCONFIG_PATH;
+    path[i] = malloc (strlen ((char *) dir) + 1);
     if (!path[i])
        goto bail1;
-    strcpy (path[i], dir);
+    strcpy ((char *) path[i], (const char *) dir);
     return path;
 
 bail1:
@@ -1264,29 +1328,30 @@ bail0:
 }
 
 static void
-FcConfigFreePath (char **path)
+FcConfigFreePath (FcChar8 **path)
 {
-    char    **p;
+    FcChar8    **p;
 
     for (p = path; *p; p++)
        free (*p);
     free (path);
 }
 
-char *
-FcConfigFilename (const char *url)
+FcChar8 *
+FcConfigFilename (const FcChar8 *url)
 {
-    char    *file, *dir, **path, **p;
+    FcChar8    *file, *dir, **path, **p;
     
     if (!url || !*url)
     {
-       url = getenv ("FONTCONFIG_FILE");
+       url = (FcChar8 *) getenv ("FONTCONFIG_FILE");
        if (!url)
-           url = FONTCONFIG_FILE;
+           url = (FcChar8 *) FONTCONFIG_FILE;
     }
+    file = 0;
     switch (*url) {
     case '~':
-       dir = getenv ("HOME");
+       dir = (FcChar8 *) getenv ("HOME");
        if (dir)
            file = FcConfigFileExists (dir, url + 1);
        else
@@ -1317,9 +1382,12 @@ FcConfigFilename (const char *url)
 
 FcBool
 FcConfigAppFontAddFile (FcConfig    *config,
-                       const char  *file)
+                       const FcChar8  *file)
 {
     FcFontSet  *set;
+    FcStrSet   *subdirs;
+    FcStrList  *sublist;
+    FcChar8    *subdir;
 
     if (!config)
     {
@@ -1328,22 +1396,46 @@ FcConfigAppFontAddFile (FcConfig    *config,
            return FcFalse;
     }
 
+    subdirs = FcStrSetCreate ();
+    if (!subdirs)
+       return FcFalse;
+    
     set = FcConfigGetFonts (config, FcSetApplication);
     if (!set)
     {
        set = FcFontSetCreate ();
        if (!set)
+       {
+           FcStrSetDestroy (subdirs);
            return FcFalse;
+       }
        FcConfigSetFonts (config, set, FcSetApplication);
     }
-    return FcFileScan (set, 0, config->blanks, file, FcFalse);
+       
+    if (!FcFileScan (set, subdirs, 0, config->blanks, file, FcFalse))
+    {
+       FcStrSetDestroy (subdirs);
+       return FcFalse;
+    }
+    if ((sublist = FcStrListCreate (subdirs)))
+    {
+       while ((subdir = FcStrListNext (sublist)))
+       {
+           FcConfigAppFontAddDir (config, subdir);
+       }
+       FcStrListDone (sublist);
+    }
+    return FcTrue;
 }
 
 FcBool
 FcConfigAppFontAddDir (FcConfig            *config,
-                      const char   *dir)
+                      const FcChar8   *dir)
 {
     FcFontSet  *set;
+    FcStrSet   *subdirs;
+    FcStrList  *sublist;
+    FcChar8    *subdir;
     
     if (!config)
     {
@@ -1351,15 +1443,36 @@ FcConfigAppFontAddDir (FcConfig     *config,
        if (!config)
            return FcFalse;
     }
+    subdirs = FcStrSetCreate ();
+    if (!subdirs)
+       return FcFalse;
+    
     set = FcConfigGetFonts (config, FcSetApplication);
     if (!set)
     {
        set = FcFontSetCreate ();
        if (!set)
+       {
+           FcStrSetDestroy (subdirs);
            return FcFalse;
+       }
        FcConfigSetFonts (config, set, FcSetApplication);
     }
-    return FcDirScan (set, 0, config->blanks, dir, FcFalse);
+    
+    if (!FcDirScan (set, subdirs, 0, config->blanks, dir, FcFalse))
+    {
+       FcStrSetDestroy (subdirs);
+       return FcFalse;
+    }
+    if ((sublist = FcStrListCreate (subdirs)))
+    {
+       while ((subdir = FcStrListNext (sublist)))
+       {
+           FcConfigAppFontAddDir (config, subdir);
+       }
+       FcStrListDone (sublist);
+    }
+    return FcTrue;
 }
 
 void