]> git.wh0rd.org - fontconfig.git/blobdiff - src/fccfg.c
Fix "contains" op for strings and langsets.
[fontconfig.git] / src / fccfg.c
index baa1cbcc364c2c7924c9a4be37c45481adcc0b3c..cbb6ecbc8281a22d77df19e77615ce7eddb10f0c 100644 (file)
@@ -1,7 +1,7 @@
 /*
- * $XFree86: xc/lib/fontconfig/src/fccfg.c,v 1.7 2002/05/29 08:21:33 keithp Exp $
+ * $RCSId: xc/lib/fontconfig/src/fccfg.c,v 1.23 2002/08/31 22:17:32 keithp Exp $
  *
- * Copyright © 2000 Keith Packard, member of The XFree86 Project, Inc.
+ * Copyright © 2000 Keith Packard
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
  * documentation for any purpose is hereby granted without fee, provided that
 
 #include "fcint.h"
 
+#if defined (_WIN32) && defined (PIC)
+#define STRICT
+#include <windows.h>
+#undef STRICT
+#endif
+
 FcConfig    *_fcConfig;
 
 FcConfig *
@@ -49,10 +55,19 @@ FcConfigCreate (void)
     if (!config->fontDirs)
        goto bail3;
     
-    config->cache = 0;
-    if (!FcConfigSetCache (config, (FcChar8 *) ("~/" FC_USER_CACHE_FILE)))
+    config->acceptGlobs = FcStrSetCreate ();
+    if (!config->acceptGlobs)
        goto bail4;
 
+    config->rejectGlobs = FcStrSetCreate ();
+    if (!config->rejectGlobs)
+       goto bail5;
+
+    config->cache = 0;
+    if (FcConfigHome())
+       if (!FcConfigSetCache (config, (FcChar8 *) ("~/" FC_USER_CACHE_FILE)))
+           goto bail6;
+
     config->blanks = 0;
 
     config->substPattern = 0;
@@ -66,6 +81,10 @@ FcConfigCreate (void)
     
     return config;
 
+bail6:
+    FcStrSetDestroy (config->rejectGlobs);
+bail5:
+    FcStrSetDestroy (config->acceptGlobs);
 bail4:
     FcStrSetDestroy (config->fontDirs);
 bail3:
@@ -79,27 +98,25 @@ bail0:
     return 0;
 }
 
-static time_t
+typedef struct _FcFileTime {
+    time_t  time;
+    FcBool  set;
+} FcFileTime;
+
+static FcFileTime
 FcConfigNewestFile (FcStrSet *files)
 {
     FcStrList      *list = FcStrListCreate (files);
-    FcBool         set = FcFalse;
-    time_t         newest = 0;
+    FcFileTime     newest = { 0, FcFalse };
     FcChar8        *file;
     struct  stat    statb;
 
     if (list)
     {
        while ((file = FcStrListNext (list)))
-       {
            if (stat ((char *) file, &statb) == 0)
-           {
-               if (!set)
-                   newest = statb.st_mtime;
-               else if (statb.st_mtime - newest > 0)
-                   newest = statb.st_mtime;
-           }
-       }
+               if (!newest.set || statb.st_mtime - newest.time > 0)
+                   newest.time = statb.st_mtime;
        FcStrListDone (list);
     }
     return newest;
@@ -108,9 +125,8 @@ FcConfigNewestFile (FcStrSet *files)
 FcBool
 FcConfigUptoDate (FcConfig *config)
 {
-    time_t  config_time;
-    time_t  font_time;
-    time_t  now = time(0);
+    FcFileTime config_time, font_time;
+    time_t     now = time(0);
     if (!config)
     {
        config = FcConfigGetCurrent ();
@@ -119,8 +135,8 @@ FcConfigUptoDate (FcConfig *config)
     }
     config_time = FcConfigNewestFile (config->configFiles);
     font_time = FcConfigNewestFile (config->configDirs);
-    if (config_time - config->rescanTime > 0 ||
-       font_time - config->rescanTime > 0)
+    if ((config_time.set && config_time.time - config->rescanTime > 0) ||
+       (font_time.set && font_time.time - config->rescanTime) > 0)
     {
        return FcFalse;
     }
@@ -136,8 +152,10 @@ FcSubstDestroy (FcSubst *s)
     while (s)
     {
        n = s->next;
-       FcTestDestroy (s->test);
-       FcEditDestroy (s->edit);
+       if (s->test)
+           FcTestDestroy (s->test);
+       if (s->edit)
+           FcEditDestroy (s->edit);
        s = n;
     }
 }
@@ -153,6 +171,8 @@ FcConfigDestroy (FcConfig *config)
     FcStrSetDestroy (config->configDirs);
     FcStrSetDestroy (config->fontDirs);
     FcStrSetDestroy (config->configFiles);
+    FcStrSetDestroy (config->acceptGlobs);
+    FcStrSetDestroy (config->rejectGlobs);
 
     FcStrFree (config->cache);
 
@@ -174,20 +194,20 @@ FcConfigDestroy (FcConfig *config)
 FcBool
 FcConfigBuildFonts (FcConfig *config)
 {
-    FcFontSet   *fonts;
-    FcFileCache *cache;
-    FcStrList  *list;
-    FcChar8    *dir;
+    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)
@@ -197,7 +217,8 @@ FcConfigBuildFonts (FcConfig *config)
     {
        if (FcDebug () & FC_DBG_FONTSET)
            printf ("scan dir %s\n", dir);
-       FcDirScan (fonts, config->fontDirs, cache, config->blanks, dir, FcFalse);
+       FcDirScanConfig (fonts, config->fontDirs, cache, 
+                        config->blanks, dir, FcFalse, config);
     }
     
     FcStrListDone (list);
@@ -205,8 +226,8 @@ FcConfigBuildFonts (FcConfig *config)
     if (FcDebug () & FC_DBG_FONTSET)
        FcFontSetPrint (fonts);
 
-    FcFileCacheSave (cache, config->cache);
-    FcFileCacheDestroy (cache);
+    FcGlobalCacheSave (cache, config->cache);
+    FcGlobalCacheDestroy (cache);
 
     FcConfigSetFonts (config, fonts, FcSetSystem);
     
@@ -432,6 +453,7 @@ FcConfigAddEdit (FcConfig   *config,
     subst = (FcSubst *) malloc (sizeof (FcSubst));
     if (!subst)
        return FcFalse;
+    FcMemAlloc (FC_MEM_SUBST, sizeof (FcSubst));
     if (kind == FcMatchPattern)
        prev = &config->substPattern;
     else
@@ -441,16 +463,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;
 }
 
@@ -459,8 +485,6 @@ typedef struct _FcSubState {
     FcValueList    *value;
 } FcSubState;
 
-static const FcMatrix    FcIdentityMatrix = { 1, 0, 0, 1 };
-
 static FcValue
 FcConfigPromote (FcValue v, FcValue u)
 {
@@ -471,25 +495,30 @@ FcConfigPromote (FcValue v, FcValue u)
     }
     else if (v.type == FcTypeVoid && u.type == FcTypeMatrix)
     {
-       v.u.m = FcMatrixCopy (&FcIdentityMatrix);
-       if (v.u.m)
-           v.type = FcTypeMatrix;
+       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;
 }
 
 FcBool
-FcConfigCompareValue (FcValue  m,
-                     FcOp      op,
-                     FcValue   v)
+FcConfigCompareValue (const FcValue    m_o,
+                     FcOp              op,
+                     const FcValue     v_o)
 {
-    FcBool    ret = FcFalse;
+    FcValue    m = m_o;
+    FcValue    v = v_o;
+    FcBool     ret = FcFalse;
     
     m = FcConfigPromote (m, v);
     v = FcConfigPromote (v, m);
     if (m.type == v.type) 
     {
-       ret = FcFalse;
        switch (m.type) {
        case FcTypeInteger:
            break;      /* FcConfigPromote prevents this from happening */
@@ -499,7 +528,8 @@ FcConfigCompareValue (FcValue       m,
            case FcOpContains:
                ret = m.u.d == v.u.d;
                break;
-           case FcOpNotEqual:    
+           case FcOpNotEqual:
+           case FcOpNotContains:
                ret = m.u.d != v.u.d;
                break;
            case FcOpLess:    
@@ -524,7 +554,8 @@ FcConfigCompareValue (FcValue       m,
            case FcOpContains:
                ret = m.u.b == v.u.b;
                break;
-           case FcOpNotEqual:    
+           case FcOpNotEqual:
+           case FcOpNotContains:
                ret = m.u.b != v.u.b;
                break;
            default:
@@ -534,12 +565,17 @@ FcConfigCompareValue (FcValue     m,
        case FcTypeString:
            switch (op) {
            case FcOpEqual:    
-           case FcOpContains:
                ret = FcStrCmpIgnoreCase (m.u.s, v.u.s) == 0;
                break;
-           case FcOpNotEqual:    
+           case FcOpContains:
+               ret = FcStrStrIgnoreCase (m.u.s, v.u.s) != 0;
+               break;
+           case FcOpNotEqual:
                ret = FcStrCmpIgnoreCase (m.u.s, v.u.s) != 0;
                break;
+           case FcOpNotContains:
+               ret = FcStrStrIgnoreCase (m.u.s, v.u.s) == 0;
+               break;
            default:
                break;
            }
@@ -551,6 +587,7 @@ FcConfigCompareValue (FcValue       m,
                ret = FcMatrixEqual (m.u.m, v.u.m);
                break;
            case FcOpNotEqual:
+           case FcOpNotContains:
                ret = !FcMatrixEqual (m.u.m, v.u.m);
                break;
            default:
@@ -560,8 +597,12 @@ FcConfigCompareValue (FcValue      m,
        case FcTypeCharSet:
            switch (op) {
            case FcOpContains:
-               /* m contains v if v is a subset of m */
-               ret = FcCharSetIsSubset (v.u.c, m.u.c);
+               /* v contains m if m is a subset of v */
+               ret = FcCharSetIsSubset (m.u.c, v.u.c);
+               break;
+           case FcOpNotContains:
+               /* v contains m if m is a subset of v */
+               ret = !FcCharSetIsSubset (m.u.c, v.u.c);
                break;
            case FcOpEqual:
                ret = FcCharSetEqual (m.u.c, v.u.c);
@@ -573,6 +614,24 @@ FcConfigCompareValue (FcValue      m,
                break;
            }
            break;
+       case FcTypeLangSet:
+           switch (op) {
+           case FcOpContains:
+               ret = FcLangSetContains (m.u.l, v.u.l);
+               break;
+           case FcOpNotContains:
+               ret = FcLangSetContains (m.u.l, v.u.l);
+               break;
+           case FcOpEqual:
+               ret = FcLangSetEqual (m.u.l, v.u.l);
+               break;
+           case FcOpNotEqual:
+               ret = !FcLangSetEqual (m.u.l, v.u.l);
+               break;
+           default:
+               break;
+           }
+           break;
        case FcTypeVoid:
            switch (op) {
            case FcOpEqual:
@@ -586,25 +645,35 @@ FcConfigCompareValue (FcValue     m,
        case FcTypeFTFace:
            switch (op) {
            case FcOpEqual:
+           case FcOpContains:
                ret = m.u.f == v.u.f;
                break;
            case FcOpNotEqual:
+           case FcOpNotContains:
                ret = m.u.f != v.u.f;
                break;
            default:
                break;
            }
+           break;
        }
     }
     else
     {
-       if (op == FcOpNotEqual)
+       if (op == FcOpNotEqual || op == FcOpNotContains)
            ret = FcTrue;
     }
     return ret;
 }
 
 
+#define _FcDoubleFloor(d)      ((int) (d))
+#define _FcDoubleCeil(d)       ((double) (int) (d) == (d) ? (int) (d) : (int) ((d) + 1))
+#define FcDoubleFloor(d)       ((d) >= 0 ? _FcDoubleFloor(d) : -_FcDoubleCeil(-(d)))
+#define FcDoubleCeil(d)                ((d) >= 0 ? _FcDoubleCeil(d) : -_FcDoubleFloor(-(d)))
+#define FcDoubleRound(d)       FcDoubleFloor ((d) + 0.5)
+#define FcDoubleTrunc(d)       ((d) >= 0 ? _FcDoubleFloor (d) : -_FcDoubleFloor (-(d)))
+
 static FcValue
 FcConfigEvaluate (FcPattern *p, FcExpr *e)
 {
@@ -664,15 +733,23 @@ 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:
+    case FcOpContains:
+    case FcOpNotContains:
+       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 FcOpPlus:
     case FcOpMinus:
     case FcOpTimes:
@@ -702,31 +779,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;
@@ -748,15 +800,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;
@@ -764,15 +807,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);
@@ -783,17 +817,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));
@@ -813,26 +839,6 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
                    break;
                }
                break;
-           case FcTypeCharSet:
-               switch (e->op) {
-               case FcOpContains:
-                   /* vl contains vr if vr is a subset of vl */
-                   v.type = FcTypeBool;
-                   v.u.b = FcCharSetIsSubset (vr.u.c, vl.u.c);
-                   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;
@@ -856,6 +862,70 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
        }
        FcValueDestroy (vl);
        break;
+    case FcOpFloor:
+       vl = FcConfigEvaluate (p, e->u.tree.left);
+       switch (vl.type) {
+       case FcTypeInteger:
+           v = vl;
+           break;
+       case FcTypeDouble:
+           v.type = FcTypeInteger;
+           v.u.i = FcDoubleFloor (vl.u.d);
+           break;
+       default:
+           v.type = FcTypeVoid;
+           break;
+       }
+       FcValueDestroy (vl);
+       break;
+    case FcOpCeil:
+       vl = FcConfigEvaluate (p, e->u.tree.left);
+       switch (vl.type) {
+       case FcTypeInteger:
+           v = vl;
+           break;
+       case FcTypeDouble:
+           v.type = FcTypeInteger;
+           v.u.i = FcDoubleCeil (vl.u.d);
+           break;
+       default:
+           v.type = FcTypeVoid;
+           break;
+       }
+       FcValueDestroy (vl);
+       break;
+    case FcOpRound:
+       vl = FcConfigEvaluate (p, e->u.tree.left);
+       switch (vl.type) {
+       case FcTypeInteger:
+           v = vl;
+           break;
+       case FcTypeDouble:
+           v.type = FcTypeInteger;
+           v.u.i = FcDoubleRound (vl.u.d);
+           break;
+       default:
+           v.type = FcTypeVoid;
+           break;
+       }
+       FcValueDestroy (vl);
+       break;
+    case FcOpTrunc:
+       vl = FcConfigEvaluate (p, e->u.tree.left);
+       switch (vl.type) {
+       case FcTypeInteger:
+           v = vl;
+           break;
+       case FcTypeDouble:
+           v.type = FcTypeInteger;
+           v.u.i = FcDoubleTrunc (vl.u.d);
+           break;
+       default:
+           v.type = FcTypeVoid;
+           break;
+       }
+       FcValueDestroy (vl);
+       break;
     default:
        v.type = FcTypeVoid;
        break;
@@ -866,11 +936,12 @@ FcConfigEvaluate (FcPattern *p, FcExpr *e)
 static FcValueList *
 FcConfigMatchValueList (FcPattern      *p,
                        FcTest          *t,
-                       FcValueList     *v)
+                       FcValueList     *values)
 {
     FcValueList            *ret = 0;
     FcExpr         *e = t->expr;
     FcValue        value;
+    FcValueList            *v;
     
     while (e)
     {
@@ -885,7 +956,7 @@ FcConfigMatchValueList (FcPattern   *p,
            e = 0;
        }
 
-       for (; v; v = v->next)
+       for (v = values; v; v = v->next)
        {
            if (FcConfigCompareValue (v->value, t->op, value))
            {
@@ -907,7 +978,7 @@ FcConfigMatchValueList (FcPattern   *p,
 }
 
 static FcValueList *
-FcConfigValues (FcPattern *p, FcExpr *e)
+FcConfigValues (FcPattern *p, FcExpr *e, FcValueBinding binding)
 {
     FcValueList        *l;
     
@@ -920,13 +991,14 @@ 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;
     }
+    l->binding = binding;
     while (l && l->value.type == FcTypeVoid)
     {
        FcValueList     *next = l->next;
@@ -944,8 +1016,16 @@ FcConfigAdd (FcValueList    **head,
             FcBool         append,
             FcValueList    *new)
 {
-    FcValueList    **prev, *last;
+    FcValueList            **prev, *last, *v;
+    FcValueBinding  sameBinding;
     
+    if (position)
+       sameBinding = position->binding;
+    else
+       sameBinding = FcValueBindingWeak;
+    for (v = new; v; v = v->next)
+       if (v->binding == FcValueBindingSame)
+           v->binding = sameBinding;
     if (append)
     {
        if (position)
@@ -1061,9 +1141,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;
@@ -1071,6 +1152,7 @@ FcConfigSubstitute (FcConfig      *config,
     FcTest         *t;
     FcEdit         *e;
     FcValueList            *l;
+    FcPattern      *m;
 
     if (!config)
     {
@@ -1106,7 +1188,15 @@ FcConfigSubstitute (FcConfig     *config,
                printf ("FcConfigSubstitute test ");
                FcTestPrint (t);
            }
-           st[i].elt = FcPatternFindElt (p, t->field);
+           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
@@ -1125,9 +1215,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)
        {
@@ -1145,13 +1239,31 @@ 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 ((FcChar8 *) t->field, (FcChar8 *) e->field))
+           {
+               if ((t->kind == FcMatchFont || kind == FcMatchPattern) &&
+                   !FcStrCmpIgnoreCase ((FcChar8 *) t->field, 
+                                        (FcChar8 *) e->field))
+               {
+                   /* 
+                    * KLUDGE - the pattern may have been reallocated or
+                    * things may have been inserted or deleted above
+                    * this element by other edits.  Go back and find
+                    * the element again
+                    */
+                   if (e != s->edit && st[i].elt)
+                       st[i].elt = FcPatternFindElt (p, t->field);
+                   if (!st[i].elt)
+                       t = 0;
                    break;
+               }
+           }
            switch (e->op) {
            case FcOpAssign:
                /*
@@ -1251,9 +1363,61 @@ FcConfigSubstitute (FcConfig     *config,
     return FcTrue;
 }
 
-#ifndef FONTCONFIG_PATH
-#define FONTCONFIG_PATH        "/etc/fonts"
-#endif
+FcBool
+FcConfigSubstitute (FcConfig   *config,
+                   FcPattern   *p,
+                   FcMatchKind kind)
+{
+    return FcConfigSubstituteWithPat (config, p, 0, kind);
+}
+
+#if defined (_WIN32) && defined (PIC)
+
+static FcChar8 fontconfig_path[1000] = "";
+
+BOOL WINAPI
+DllMain (HINSTANCE hinstDLL,
+        DWORD     fdwReason,
+        LPVOID    lpvReserved)
+{
+  FcChar8 *p;
+
+  switch (fdwReason) {
+  case DLL_PROCESS_ATTACH:
+      if (!GetModuleFileName ((HMODULE) hinstDLL, fontconfig_path,
+                             sizeof (fontconfig_path)))
+         break;
+
+      /* If the fontconfig DLL is in a "bin" or "lib" subfolder,
+       * assume it's a Unix-style installation tree, and use
+       * "etc/fonts" in there as FONTCONFIG_PATH. Otherwise use the
+       * folder where the DLL is as FONTCONFIG_PATH.
+       */
+      p = strrchr (fontconfig_path, '\\');
+      if (p)
+      {
+         *p = '\0';
+         p = strrchr (fontconfig_path, '\\');
+         if (p && (FcStrCmpIgnoreCase (p + 1, "bin") == 0 ||
+                   FcStrCmpIgnoreCase (p + 1, "lib") == 0))
+             *p = '\0';
+         strcat (fontconfig_path, "\\etc\\fonts");
+      }
+      else
+          fontconfig_path[0] = '\0';
+      
+      break;
+  }
+
+  return TRUE;
+}
+
+#undef FONTCONFIG_PATH
+#define FONTCONFIG_PATH fontconfig_path
+
+#else /* !(_WIN32 && PIC) */
+
+#endif /* !(_WIN32 && PIC) */
 
 #ifndef FONTCONFIG_FILE
 #define FONTCONFIG_FILE        "fonts.conf"
@@ -1271,15 +1435,23 @@ FcConfigFileExists (const FcChar8 *dir, const FcChar8 *file)
        return 0;
 
     strcpy ((char *) path, (const char *) dir);
-    /* make sure there's a single separating / */
+    /* make sure there's a single separator */
+#ifdef _WIN32
+    if ((!path[0] || (path[strlen((char *) path)-1] != '/' &&
+                     path[strlen((char *) path)-1] != '\\')) &&
+        (file[0] != '/' && file[0] != '\\'))
+       strcat ((char *) path, "\\");
+#else
     if ((!path[0] || path[strlen((char *) path)-1] != '/') && file[0] != '/')
        strcat ((char *) path, "/");
+#endif
     strcat ((char *) path, (char *) file);
 
+    FcMemAlloc (FC_MEM_STRING, strlen ((char *) path) + 1);
     if (access ((char *) path, R_OK) == 0)
        return path;
     
-    free (path);
+    FcStrFree (path);
     return 0;
 }
 
@@ -1299,7 +1471,7 @@ FcConfigGetPath (void)
        e = env;
        npath++;
        while (*e)
-           if (*e++ == ':')
+           if (*e++ == FC_SEARCH_PATH_SEPARATOR)
                npath++;
     }
     path = calloc (npath, sizeof (FcChar8 *));
@@ -1312,7 +1484,7 @@ FcConfigGetPath (void)
        e = env;
        while (*e) 
        {
-           colon = (FcChar8 *) strchr ((char *) e, ':');
+           colon = (FcChar8 *) strchr ((char *) e, FC_SEARCH_PATH_SEPARATOR);
            if (!colon)
                colon = e + strlen ((char *) e);
            path[i] = malloc (colon - e + 1);
@@ -1353,6 +1525,33 @@ FcConfigFreePath (FcChar8 **path)
     free (path);
 }
 
+static FcBool  _FcConfigHomeEnabled = FcTrue;
+
+FcChar8 *
+FcConfigHome (void)
+{
+    if (_FcConfigHomeEnabled)
+    {
+        char *home = getenv ("HOME");
+
+#ifdef _WIN32
+       if (home == NULL)
+           home = getenv ("USERPROFILE");
+#endif
+
+       return home;
+    }
+    return 0;
+}
+
+FcBool
+FcConfigEnableHome (FcBool enable)
+{
+    FcBool  prev = _FcConfigHomeEnabled;
+    _FcConfigHomeEnabled = enable;
+    return prev;
+}
+
 FcChar8 *
 FcConfigFilename (const FcChar8 *url)
 {
@@ -1365,14 +1564,26 @@ FcConfigFilename (const FcChar8 *url)
            url = (FcChar8 *) FONTCONFIG_FILE;
     }
     file = 0;
+
+#ifdef _WIN32
+    if (isalpha (*url) &&
+       url[1] == ':' &&
+       (url[2] == '/' || url[2] == '\\'))
+       goto absolute_path;
+#endif
+
     switch (*url) {
     case '~':
-       dir = (FcChar8 *) getenv ("HOME");
+       dir = FcConfigHome ();
        if (dir)
            file = FcConfigFileExists (dir, url + 1);
        else
            file = 0;
        break;
+#ifdef _WIN32
+    case '\\':
+    absolute_path:
+#endif
     case '/':
        file = FcConfigFileExists (0, url);
        break;
@@ -1428,7 +1639,7 @@ FcConfigAppFontAddFile (FcConfig    *config,
        FcConfigSetFonts (config, set, FcSetApplication);
     }
        
-    if (!FcFileScan (set, subdirs, 0, config->blanks, file, FcFalse))
+    if (!FcFileScanConfig (set, subdirs, 0, config->blanks, file, FcFalse, config))
     {
        FcStrSetDestroy (subdirs);
        return FcFalse;
@@ -1475,7 +1686,7 @@ FcConfigAppFontAddDir (FcConfig       *config,
        FcConfigSetFonts (config, set, FcSetApplication);
     }
     
-    if (!FcDirScan (set, subdirs, 0, config->blanks, dir, FcFalse))
+    if (!FcDirScanConfig (set, subdirs, 0, config->blanks, dir, FcFalse, config))
     {
        FcStrSetDestroy (subdirs);
        return FcFalse;
@@ -1496,3 +1707,76 @@ FcConfigAppFontClear (FcConfig       *config)
 {
     FcConfigSetFonts (config, 0, FcSetApplication);
 }
+
+/*
+ * Manage filename-based font source selectors
+ */
+
+FcBool
+FcConfigGlobAdd (FcConfig      *config,
+                const FcChar8  *glob,
+                FcBool         accept)
+{
+    FcStrSet   *set = accept ? config->acceptGlobs : config->rejectGlobs;
+
+    return FcStrSetAdd (set, glob);
+}
+
+static FcBool
+FcConfigGlobMatch (const FcChar8    *glob,
+                  const FcChar8    *string)
+{
+    FcChar8    c;
+
+    while ((c = *glob++)) 
+    {
+       switch (c) {
+       case '*':
+           /* short circuit common case */
+           if (!*glob)
+               return FcTrue;
+           /* short circuit another common case */
+           if (strchr ((char *) glob, '*') == 0)
+               string += strlen ((char *) string) - strlen ((char *) glob);
+           while (*string)
+           {
+               if (FcConfigGlobMatch (glob, string))
+                   return FcTrue;
+               string++;
+           }
+           return FcFalse;
+       case '?':
+           if (*string++ == '\0')
+               return FcFalse;
+           break;
+       default:
+           if (*string++ != c)
+               return FcFalse;
+           break;
+       }
+    }
+    return *string == '\0';
+}
+
+static FcBool
+FcConfigGlobsMatch (const FcStrSet     *globs,
+                   const FcChar8       *string)
+{
+    int        i;
+
+    for (i = 0; i < globs->num; i++)
+       if (FcConfigGlobMatch (globs->strs[i], string))
+           return FcTrue;
+    return FcFalse;
+}
+
+FcBool
+FcConfigAcceptFilename (FcConfig       *config,
+                       const FcChar8   *filename)
+{
+    if (FcConfigGlobsMatch (config->acceptGlobs, filename))
+       return FcTrue;
+    if (FcConfigGlobsMatch (config->rejectGlobs, filename))
+       return FcFalse;
+    return FcTrue;
+}