2 * $XFree86: xc/lib/fontconfig/src/fccfg.c,v 1.11 2002/06/08 17:32:04 keithp Exp $
4 * Copyright © 2000 Keith Packard, member of The XFree86 Project, Inc.
6 * Permission to use, copy, modify, distribute, and sell this software and its
7 * documentation for any purpose is hereby granted without fee, provided that
8 * the above copyright notice appear in all copies and that both that
9 * copyright notice and this permission notice appear in supporting
10 * documentation, and that the name of Keith Packard not be used in
11 * advertising or publicity pertaining to distribution of the software without
12 * specific, written prior permission. Keith Packard makes no
13 * representations about the suitability of this software for any purpose. It
14 * is provided "as is" without express or implied warranty.
16 * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
17 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
18 * EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
19 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
20 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
21 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
22 * PERFORMANCE OF THIS SOFTWARE.
35 config = malloc (sizeof (FcConfig));
38 FcMemAlloc (FC_MEM_CONFIG, sizeof (FcConfig));
40 config->configDirs = FcStrSetCreate ();
41 if (!config->configDirs)
44 config->configFiles = FcStrSetCreate ();
45 if (!config->configFiles)
48 config->fontDirs = FcStrSetCreate ();
49 if (!config->fontDirs)
53 if (!FcConfigSetCache (config, (FcChar8 *) ("~/" FC_USER_CACHE_FILE)))
58 config->substPattern = 0;
59 config->substFont = 0;
60 config->maxObjects = 0;
61 for (set = FcSetSystem; set <= FcSetApplication; set++)
62 config->fonts[set] = 0;
64 config->rescanTime = time(0);
65 config->rescanInterval = 30;
70 FcStrSetDestroy (config->fontDirs);
72 FcStrSetDestroy (config->configFiles);
74 FcStrSetDestroy (config->configDirs);
77 FcMemFree (FC_MEM_CONFIG, sizeof (FcConfig));
83 FcConfigNewestFile (FcStrSet *files)
85 FcStrList *list = FcStrListCreate (files);
93 while ((file = FcStrListNext (list)))
95 if (stat ((char *) file, &statb) == 0)
98 newest = statb.st_mtime;
99 else if (statb.st_mtime - newest > 0)
100 newest = statb.st_mtime;
103 FcStrListDone (list);
109 FcConfigUptoDate (FcConfig *config)
113 time_t now = time(0);
116 config = FcConfigGetCurrent ();
120 config_time = FcConfigNewestFile (config->configFiles);
121 font_time = FcConfigNewestFile (config->configDirs);
122 if (config_time - config->rescanTime > 0 ||
123 font_time - config->rescanTime > 0)
127 config->rescanTime = now;
132 FcSubstDestroy (FcSubst *s)
139 FcTestDestroy (s->test);
140 FcEditDestroy (s->edit);
146 FcConfigDestroy (FcConfig *config)
150 if (config == _fcConfig)
153 FcStrSetDestroy (config->configDirs);
154 FcStrSetDestroy (config->fontDirs);
155 FcStrSetDestroy (config->configFiles);
157 FcStrFree (config->cache);
159 FcSubstDestroy (config->substPattern);
160 FcSubstDestroy (config->substFont);
161 for (set = FcSetSystem; set <= FcSetApplication; set++)
162 if (config->fonts[set])
163 FcFontSetDestroy (config->fonts[set]);
165 FcMemFree (FC_MEM_CONFIG, sizeof (FcConfig));
169 * Scan the current list of directories in the configuration
170 * and build the set of available fonts. Update the
171 * per-user cache file to reflect the new configuration
175 FcConfigBuildFonts (FcConfig *config)
182 fonts = FcFontSetCreate ();
186 cache = FcFileCacheCreate ();
190 FcFileCacheLoad (cache, config->cache);
192 list = FcConfigGetFontDirs (config);
196 while ((dir = FcStrListNext (list)))
198 if (FcDebug () & FC_DBG_FONTSET)
199 printf ("scan dir %s\n", dir);
200 FcDirScan (fonts, config->fontDirs, cache, config->blanks, dir, FcFalse);
203 FcStrListDone (list);
205 if (FcDebug () & FC_DBG_FONTSET)
206 FcFontSetPrint (fonts);
208 FcFileCacheSave (cache, config->cache);
209 FcFileCacheDestroy (cache);
211 FcConfigSetFonts (config, fonts, FcSetSystem);
215 FcFontSetDestroy (fonts);
221 FcConfigSetCurrent (FcConfig *config)
224 if (!FcConfigBuildFonts (config))
228 FcConfigDestroy (_fcConfig);
234 FcConfigGetCurrent (void)
243 FcConfigAddConfigDir (FcConfig *config,
246 return FcStrSetAddFilename (config->configDirs, d);
250 FcConfigGetConfigDirs (FcConfig *config)
254 config = FcConfigGetCurrent ();
258 return FcStrListCreate (config->configDirs);
262 FcConfigAddFontDir (FcConfig *config,
265 return FcStrSetAddFilename (config->fontDirs, d);
269 FcConfigAddDir (FcConfig *config,
272 return (FcConfigAddConfigDir (config, d) &&
273 FcConfigAddFontDir (config, d));
277 FcConfigGetFontDirs (FcConfig *config)
281 config = FcConfigGetCurrent ();
285 return FcStrListCreate (config->fontDirs);
289 FcConfigAddConfigFile (FcConfig *config,
293 FcChar8 *file = FcConfigFilename (f);
298 ret = FcStrSetAdd (config->configFiles, file);
304 FcConfigGetConfigFiles (FcConfig *config)
308 config = FcConfigGetCurrent ();
312 return FcStrListCreate (config->configFiles);
316 FcConfigSetCache (FcConfig *config,
319 FcChar8 *new = FcStrCopyFilename (c);
324 FcStrFree (config->cache);
330 FcConfigGetCache (FcConfig *config)
334 config = FcConfigGetCurrent ();
338 return config->cache;
342 FcConfigGetFonts (FcConfig *config,
347 config = FcConfigGetCurrent ();
351 return config->fonts[set];
355 FcConfigSetFonts (FcConfig *config,
359 if (config->fonts[set])
360 FcFontSetDestroy (config->fonts[set]);
361 config->fonts[set] = fonts;
367 FcConfigGetBlanks (FcConfig *config)
371 config = FcConfigGetCurrent ();
375 return config->blanks;
379 FcConfigAddBlank (FcConfig *config,
387 b = FcBlanksCreate ();
391 if (!FcBlanksAdd (b, blank))
398 FcConfigGetRescanInverval (FcConfig *config)
402 config = FcConfigGetCurrent ();
406 return config->rescanInterval;
410 FcConfigSetRescanInverval (FcConfig *config, int rescanInterval)
414 config = FcConfigGetCurrent ();
418 config->rescanInterval = rescanInterval;
423 FcConfigAddEdit (FcConfig *config,
428 FcSubst *subst, **prev;
432 subst = (FcSubst *) malloc (sizeof (FcSubst));
435 if (kind == FcMatchPattern)
436 prev = &config->substPattern;
438 prev = &config->substFont;
439 for (; *prev; prev = &(*prev)->next);
444 if (FcDebug () & FC_DBG_EDIT)
446 printf ("Add Subst ");
447 FcSubstPrint (subst);
450 for (t = test; t; t = t->next)
452 if (config->maxObjects < num)
453 config->maxObjects = num;
457 typedef struct _FcSubState {
462 static const FcMatrix FcIdentityMatrix = { 1, 0, 0, 1 };
465 FcConfigPromote (FcValue v, FcValue u)
467 if (v.type == FcTypeInteger)
469 v.type = FcTypeDouble;
470 v.u.d = (double) v.u.i;
472 else if (v.type == FcTypeVoid && u.type == FcTypeMatrix)
474 v.u.m = FcMatrixCopy (&FcIdentityMatrix);
476 v.type = FcTypeMatrix;
482 FcConfigCompareValue (FcValue m,
486 FcBool ret = FcFalse;
488 m = FcConfigPromote (m, v);
489 v = FcConfigPromote (v, m);
490 if (m.type == v.type)
495 break; /* FcConfigPromote prevents this from happening */
500 ret = m.u.d == v.u.d;
503 ret = m.u.d != v.u.d;
509 ret = m.u.d <= v.u.d;
515 ret = m.u.d >= v.u.d;
525 ret = m.u.b == v.u.b;
528 ret = m.u.b != v.u.b;
538 ret = FcStrCmpIgnoreCase (m.u.s, v.u.s) == 0;
541 ret = FcStrCmpIgnoreCase (m.u.s, v.u.s) != 0;
551 ret = FcMatrixEqual (m.u.m, v.u.m);
554 ret = !FcMatrixEqual (m.u.m, v.u.m);
563 /* m contains v if v is a subset of m */
564 ret = FcCharSetIsSubset (v.u.c, m.u.c);
567 ret = FcCharSetEqual (m.u.c, v.u.c);
570 ret = !FcCharSetEqual (m.u.c, v.u.c);
589 ret = m.u.f == v.u.f;
592 ret = m.u.f != v.u.f;
601 if (op == FcOpNotEqual)
609 FcConfigEvaluate (FcPattern *p, FcExpr *e)
617 v.type = FcTypeInteger;
621 v.type = FcTypeDouble;
625 v.type = FcTypeString;
630 v.type = FcTypeMatrix;
635 v.type = FcTypeCharSet;
644 r = FcPatternGet (p, e->u.field, 0, &v);
645 if (r != FcResultMatch)
649 if (FcNameConstant (e->u.constant, &v.u.i))
650 v.type = FcTypeInteger;
655 vl = FcConfigEvaluate (p, e->u.tree.left);
656 if (vl.type == FcTypeBool)
659 v = FcConfigEvaluate (p, e->u.tree.right->u.tree.left);
661 v = FcConfigEvaluate (p, e->u.tree.right->u.tree.right);
680 vl = FcConfigEvaluate (p, e->u.tree.left);
681 vr = FcConfigEvaluate (p, e->u.tree.right);
682 vl = FcConfigPromote (vl, vr);
683 vr = FcConfigPromote (vr, vl);
684 if (vl.type == vr.type)
690 v.type = FcTypeDouble;
691 v.u.d = vl.u.d + vr.u.d;
694 v.type = FcTypeDouble;
695 v.u.d = vl.u.d - vr.u.d;
698 v.type = FcTypeDouble;
699 v.u.d = vl.u.d * vr.u.d;
702 v.type = FcTypeDouble;
703 v.u.d = vl.u.d / vr.u.d;
708 v.u.b = vl.u.d == vr.u.d;
712 v.u.b = vl.u.d != vr.u.d;
716 v.u.b = vl.u.d < vr.u.d;
720 v.u.b = vl.u.d <= vr.u.d;
724 v.u.b = vl.u.d > vr.u.d;
728 v.u.b = vl.u.d >= vr.u.d;
734 if (v.type == FcTypeDouble &&
735 v.u.d == (double) (int) v.u.d)
737 v.type = FcTypeInteger;
745 v.u.b = vl.u.b || vr.u.b;
749 v.u.b = vl.u.b && vr.u.b;
754 v.u.b = vl.u.b == vr.u.b;
758 v.u.b = vl.u.b != vr.u.b;
770 v.u.b = FcStrCmpIgnoreCase (vl.u.s, vr.u.s) == 0;
774 v.u.b = FcStrCmpIgnoreCase (vl.u.s, vr.u.s) != 0;
777 v.type = FcTypeString;
778 v.u.s = FcStrPlus (vl.u.s, vr.u.s);
791 v.u.b = FcMatrixEqual (vl.u.m, vr.u.m);
795 v.u.b = FcMatrixEqual (vl.u.m, vr.u.m);
798 v.type = FcTypeMatrix;
799 m = malloc (sizeof (FcMatrix));
802 FcMemAlloc (FC_MEM_MATRIX, sizeof (FcMatrix));
803 FcMatrixMultiply (m, vl.u.m, vr.u.m);
819 /* vl contains vr if vr is a subset of vl */
821 v.u.b = FcCharSetIsSubset (vr.u.c, vl.u.c);
825 v.u.b = FcCharSetEqual (vl.u.c, vr.u.c);
829 v.u.b = !FcCharSetEqual (vl.u.c, vr.u.c);
847 vl = FcConfigEvaluate (p, e->u.tree.left);
867 FcConfigMatchValueList (FcPattern *p,
871 FcValueList *ret = 0;
878 if (e->op == FcOpComma)
880 value = FcConfigEvaluate (p, e->u.tree.left);
885 value = FcConfigEvaluate (p, e);
889 for (v = values; v; v = v->next)
891 if (FcConfigCompareValue (v->value, t->op, value))
898 if (t->qual == FcQualAll)
905 FcValueDestroy (value);
911 FcConfigValues (FcPattern *p, FcExpr *e)
917 l = (FcValueList *) malloc (sizeof (FcValueList));
920 FcMemAlloc (FC_MEM_VALLIST, sizeof (FcValueList));
921 if (e->op == FcOpComma)
923 l->value = FcConfigEvaluate (p, e->u.tree.left);
924 l->next = FcConfigValues (p, e->u.tree.right);
928 l->value = FcConfigEvaluate (p, e);
931 while (l && l->value.type == FcTypeVoid)
933 FcValueList *next = l->next;
935 FcMemFree (FC_MEM_VALLIST, sizeof (FcValueList));
943 FcConfigAdd (FcValueList **head,
944 FcValueList *position,
948 FcValueList **prev, *last;
953 prev = &position->next;
955 for (prev = head; *prev; prev = &(*prev)->next)
962 for (prev = head; *prev; prev = &(*prev)->next)
964 if (*prev == position)
971 if (FcDebug () & FC_DBG_EDIT)
974 printf ("position not on list\n");
978 if (FcDebug () & FC_DBG_EDIT)
980 printf ("%s list before ", append ? "Append" : "Prepend");
981 FcValueListPrint (*head);
995 if (FcDebug () & FC_DBG_EDIT)
997 printf ("%s list after ", append ? "Append" : "Prepend");
998 FcValueListPrint (*head);
1006 FcConfigDel (FcValueList **head,
1007 FcValueList *position)
1011 for (prev = head; *prev; prev = &(*prev)->next)
1013 if (*prev == position)
1015 *prev = position->next;
1017 FcValueListDestroy (position);
1024 FcConfigPatternAdd (FcPattern *p,
1031 FcPatternElt *e = FcPatternInsertElt (p, object);
1035 FcConfigAdd (&e->values, 0, append, list);
1040 * Delete all values associated with a field
1043 FcConfigPatternDel (FcPattern *p,
1046 FcPatternElt *e = FcPatternFindElt (p, object);
1050 FcConfigDel (&e->values, e->values);
1054 FcConfigPatternCanon (FcPattern *p,
1057 FcPatternElt *e = FcPatternFindElt (p, object);
1061 FcPatternDel (p, object);
1065 FcConfigSubstitute (FcConfig *config,
1078 config = FcConfigGetCurrent ();
1083 st = (FcSubState *) malloc (config->maxObjects * sizeof (FcSubState));
1084 if (!st && config->maxObjects)
1086 FcMemAlloc (FC_MEM_SUBSTATE, config->maxObjects * sizeof (FcSubState));
1088 if (FcDebug () & FC_DBG_EDIT)
1090 printf ("FcConfigSubstitute ");
1093 if (kind == FcMatchPattern)
1094 s = config->substPattern;
1096 s = config->substFont;
1097 for (; s; s = s->next)
1100 * Check the tests to see if
1101 * they all match the pattern
1103 for (t = s->test, i = 0; t; t = t->next, i++)
1105 if (FcDebug () & FC_DBG_EDIT)
1107 printf ("FcConfigSubstitute test ");
1110 st[i].elt = FcPatternFindElt (p, t->field);
1112 * If there's no such field in the font,
1113 * then FcQualAll matches while FcQualAny does not
1117 if (t->qual == FcQualAll)
1126 * Check to see if there is a match, mark the location
1127 * to apply match-relative edits
1129 st[i].value = FcConfigMatchValueList (p, t, st[i].elt->values);
1135 if (FcDebug () & FC_DBG_EDIT)
1136 printf ("No match\n");
1139 if (FcDebug () & FC_DBG_EDIT)
1141 printf ("Substitute ");
1144 for (e = s->edit; e; e = e->next)
1147 * Evaluate the list of expressions
1149 l = FcConfigValues (p, e->expr);
1151 * Locate any test associated with this field
1153 for (t = s->test, i = 0; t; t = t->next, i++)
1154 if (!FcStrCmpIgnoreCase ((FcChar8 *) t->field, (FcChar8 *) e->field))
1159 * If there was a test, then replace the matched
1160 * value with the new list of values
1164 FcValueList *thisValue = st[i].value;
1165 FcValueList *nextValue = thisValue ? thisValue->next : 0;
1168 * Append the new list of values after the current value
1170 FcConfigAdd (&st[i].elt->values, thisValue, FcTrue, l);
1172 * Delete the marked value
1174 FcConfigDel (&st[i].elt->values, thisValue);
1176 * Adjust any pointers into the value list to ensure
1177 * future edits occur at the same place
1179 for (t = s->test, i = 0; t; t = t->next, i++)
1181 if (st[i].value == thisValue)
1182 st[i].value = nextValue;
1186 /* fall through ... */
1187 case FcOpAssignReplace:
1189 * Delete all of the values and insert
1192 FcConfigPatternDel (p, e->field);
1193 FcConfigPatternAdd (p, e->field, l, FcTrue);
1195 * Adjust any pointers into the value list as they no
1196 * longer point to anything valid
1200 FcPatternElt *thisElt = st[i].elt;
1201 for (t = s->test, i = 0; t; t = t->next, i++)
1203 if (st[i].elt == thisElt)
1211 FcConfigAdd (&st[i].elt->values, st[i].value, FcFalse, l);
1214 /* fall through ... */
1215 case FcOpPrependFirst:
1216 FcConfigPatternAdd (p, e->field, l, FcFalse);
1221 FcConfigAdd (&st[i].elt->values, st[i].value, FcTrue, l);
1224 /* fall through ... */
1225 case FcOpAppendLast:
1226 FcConfigPatternAdd (p, e->field, l, FcTrue);
1233 * Now go through the pattern and eliminate
1234 * any properties without data
1236 for (e = s->edit; e; e = e->next)
1237 FcConfigPatternCanon (p, e->field);
1239 if (FcDebug () & FC_DBG_EDIT)
1241 printf ("FcConfigSubstitute edit");
1245 FcMemFree (FC_MEM_SUBSTATE, config->maxObjects * sizeof (FcSubState));
1247 if (FcDebug () & FC_DBG_EDIT)
1249 printf ("FcConfigSubstitute done");
1255 #ifndef FONTCONFIG_PATH
1256 #define FONTCONFIG_PATH "/etc/fonts"
1259 #ifndef FONTCONFIG_FILE
1260 #define FONTCONFIG_FILE "fonts.conf"
1264 FcConfigFileExists (const FcChar8 *dir, const FcChar8 *file)
1269 dir = (FcChar8 *) "";
1270 path = malloc (strlen ((char *) dir) + 1 + strlen ((char *) file) + 1);
1274 strcpy ((char *) path, (const char *) dir);
1275 /* make sure there's a single separating / */
1276 if ((!path[0] || path[strlen((char *) path)-1] != '/') && file[0] != '/')
1277 strcat ((char *) path, "/");
1278 strcat ((char *) path, (char *) file);
1280 if (access ((char *) path, R_OK) == 0)
1288 FcConfigGetPath (void)
1291 FcChar8 *env, *e, *colon;
1296 npath = 2; /* default dir + null */
1297 env = (FcChar8 *) getenv ("FONTCONFIG_PATH");
1306 path = calloc (npath, sizeof (FcChar8 *));
1316 colon = (FcChar8 *) strchr ((char *) e, ':');
1318 colon = e + strlen ((char *) e);
1319 path[i] = malloc (colon - e + 1);
1322 strncpy ((char *) path[i], (const char *) e, colon - e);
1323 path[i][colon - e] = '\0';
1332 dir = (FcChar8 *) FONTCONFIG_PATH;
1333 path[i] = malloc (strlen ((char *) dir) + 1);
1336 strcpy ((char *) path[i], (const char *) dir);
1340 for (i = 0; path[i]; i++)
1348 FcConfigFreePath (FcChar8 **path)
1352 for (p = path; *p; p++)
1358 FcConfigFilename (const FcChar8 *url)
1360 FcChar8 *file, *dir, **path, **p;
1364 url = (FcChar8 *) getenv ("FONTCONFIG_FILE");
1366 url = (FcChar8 *) FONTCONFIG_FILE;
1371 dir = (FcChar8 *) getenv ("HOME");
1373 file = FcConfigFileExists (dir, url + 1);
1378 file = FcConfigFileExists (0, url);
1381 path = FcConfigGetPath ();
1384 for (p = path; *p; p++)
1386 file = FcConfigFileExists (*p, url);
1390 FcConfigFreePath (path);
1397 * Manage the application-specific fonts
1401 FcConfigAppFontAddFile (FcConfig *config,
1402 const FcChar8 *file)
1411 config = FcConfigGetCurrent ();
1416 subdirs = FcStrSetCreate ();
1420 set = FcConfigGetFonts (config, FcSetApplication);
1423 set = FcFontSetCreate ();
1426 FcStrSetDestroy (subdirs);
1429 FcConfigSetFonts (config, set, FcSetApplication);
1432 if (!FcFileScan (set, subdirs, 0, config->blanks, file, FcFalse))
1434 FcStrSetDestroy (subdirs);
1437 if ((sublist = FcStrListCreate (subdirs)))
1439 while ((subdir = FcStrListNext (sublist)))
1441 FcConfigAppFontAddDir (config, subdir);
1443 FcStrListDone (sublist);
1449 FcConfigAppFontAddDir (FcConfig *config,
1459 config = FcConfigGetCurrent ();
1463 subdirs = FcStrSetCreate ();
1467 set = FcConfigGetFonts (config, FcSetApplication);
1470 set = FcFontSetCreate ();
1473 FcStrSetDestroy (subdirs);
1476 FcConfigSetFonts (config, set, FcSetApplication);
1479 if (!FcDirScan (set, subdirs, 0, config->blanks, dir, FcFalse))
1481 FcStrSetDestroy (subdirs);
1484 if ((sublist = FcStrListCreate (subdirs)))
1486 while ((subdir = FcStrListNext (sublist)))
1488 FcConfigAppFontAddDir (config, subdir);
1490 FcStrListDone (sublist);
1496 FcConfigAppFontClear (FcConfig *config)
1498 FcConfigSetFonts (config, 0, FcSetApplication);