1 /*
2 * fontconfig/fc-cat/fc-cat.c
3 *
4 * Copyright © 2002 Keith Packard
5 *
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 the author(s) not be used in
11 * advertising or publicity pertaining to distribution of the software without
12 * specific, written prior permission. The authors make no
13 * representations about the suitability of this software for any purpose. It
14 * is provided "as is" without express or implied warranty.
15 *
16 * THE AUTHOR(S) DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
17 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
18 * EVENT SHALL THE AUTHOR(S) 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.
23 */
24
25 #ifdef HAVE_CONFIG_H
26 #include <config.h>
27 #else
28 #ifdef linux
29 #define HAVE_GETOPT_LONG 1
30 #endif
31 #define HAVE_GETOPT 1
32 #endif
33
34 #include <fontconfig/fontconfig.h>
35 #include "../src/fcarch.h"
36 #include <stdio.h>
37 #include <stdlib.h>
38 #include <string.h>
39 #include <unistd.h>
40 #include <sys/types.h>
41 #include <sys/stat.h>
42 #include <errno.h>
43 #include <locale.h>
44
45 #ifdef ENABLE_NLS
46 #include <libintl.h>
47 #define _(x) (dgettext(GETTEXT_PACKAGE, x))
48 #else
49 #define dgettext(d, s) (s)
50 #define _(x) (x)
51 #endif
52
53 #ifndef HAVE_GETOPT
54 #define HAVE_GETOPT 0
55 #endif
56 #ifndef HAVE_GETOPT_LONG
57 #define HAVE_GETOPT_LONG 0
58 #endif
59
60 #if HAVE_GETOPT_LONG
61 #undef _GNU_SOURCE
62 #define _GNU_SOURCE
63 #include <getopt.h>
64 const struct option longopts[] = {
65 {"version", 0, 0, 'V'},
66 {"verbose", 0, 0, 'v'},
67 {"recurse", 0, 0, 'r'},
68 {"help", 0, 0, 'h'},
69 {NULL,0,0,0},
70 };
71 #else
72 #if HAVE_GETOPT
73 extern char *optarg;
74 extern int optind, opterr, optopt;
75 #endif
76 #endif
77
78 /*
79 * POSIX has broken stdio so that putc must do thread-safe locking,
80 * this is a serious performance problem for applications doing large
81 * amounts of IO with putc (as is done here). If available, use
82 * the putc_unlocked varient instead.
83 */
84
85 #if defined(putc_unlocked) || defined(_IO_putc_unlocked)
86 #define PUTC(c,f) putc_unlocked(c,f)
87 #else
88 #define PUTC(c,f) putc(c,f)
89 #endif
90
91 static FcBool
write_chars(FILE * f,const FcChar8 * chars)92 write_chars (FILE *f, const FcChar8 *chars)
93 {
94 FcChar8 c;
95 while ((c = *chars++))
96 {
97 switch (c) {
98 case '"':
99 case '\\':
100 if (PUTC ('\\', f) == EOF)
101 return FcFalse;
102 /* fall through */
103 default:
104 if (PUTC (c, f) == EOF)
105 return FcFalse;
106 }
107 }
108 return FcTrue;
109 }
110
111 static FcBool
write_ulong(FILE * f,unsigned long t)112 write_ulong (FILE *f, unsigned long t)
113 {
114 int pow;
115 unsigned long temp, digit;
116
117 temp = t;
118 pow = 1;
119 while (temp >= 10)
120 {
121 temp /= 10;
122 pow *= 10;
123 }
124 temp = t;
125 while (pow)
126 {
127 digit = temp / pow;
128 if (PUTC ((char) digit + '0', f) == EOF)
129 return FcFalse;
130 temp = temp - pow * digit;
131 pow = pow / 10;
132 }
133 return FcTrue;
134 }
135
136 static FcBool
write_int(FILE * f,int i)137 write_int (FILE *f, int i)
138 {
139 return write_ulong (f, (unsigned long) i);
140 }
141
142 static FcBool
write_string(FILE * f,const FcChar8 * string)143 write_string (FILE *f, const FcChar8 *string)
144 {
145
146 if (PUTC ('"', f) == EOF)
147 return FcFalse;
148 if (!write_chars (f, string))
149 return FcFalse;
150 if (PUTC ('"', f) == EOF)
151 return FcFalse;
152 return FcTrue;
153 }
154
155 static void
usage(char * program,int error)156 usage (char *program, int error)
157 {
158 FILE *file = error ? stderr : stdout;
159 #if HAVE_GETOPT_LONG
160 fprintf (file, _("usage: %s [-rv] [--recurse] [--verbose] [*-%s" FC_CACHE_SUFFIX "|directory]...\n"),
161 program, FC_ARCHITECTURE);
162 fprintf (file, " %s [-Vh] [--version] [--help]\n", program);
163 #else
164 fprintf (file, _("usage: %s [-rvVh] [*-%s" FC_CACHE_SUFFIX "|directory]...\n"),
165 program, FC_ARCHITECTURE);
166 #endif
167 fprintf (file, _("Reads font information cache from:\n"));
168 fprintf (file, _(" 1) specified fontconfig cache file\n"));
169 fprintf (file, _(" 2) related to a particular font directory\n"));
170 fprintf (file, "\n");
171 #if HAVE_GETOPT_LONG
172 fprintf (file, _(" -r, --recurse recurse into subdirectories\n"));
173 fprintf (file, _(" -v, --verbose be verbose\n"));
174 fprintf (file, _(" -V, --version display font config version and exit\n"));
175 fprintf (file, _(" -h, --help display this help and exit\n"));
176 #else
177 fprintf (file, _(" -r (recurse) recurse into subdirectories\n"));
178 fprintf (file, _(" -v (verbose) be verbose\n"));
179 fprintf (file, _(" -V (version) display font config version and exit\n"));
180 fprintf (file, _(" -h (help) display this help and exit\n"));
181 #endif
182 exit (error);
183 }
184
185 /*
186 * return the path from the directory containing 'cache' to 'file'
187 */
188
189 static const FcChar8 *
file_base_name(const FcChar8 * cache,const FcChar8 * file)190 file_base_name (const FcChar8 *cache, const FcChar8 *file)
191 {
192 int cache_len = strlen ((char *) cache);
193
194 if (!strncmp ((char *) cache, (char *) file, cache_len) && file[cache_len] == '/')
195 return file + cache_len + 1;
196 return file;
197 }
198
199 #define FC_FONT_FILE_DIR ((FcChar8 *) ".dir")
200
201 static FcBool
cache_print_set(FcFontSet * set,FcStrSet * dirs,const FcChar8 * base_name,FcBool verbose)202 cache_print_set (FcFontSet *set, FcStrSet *dirs, const FcChar8 *base_name, FcBool verbose)
203 {
204 FcChar8 *dir;
205 const FcChar8 *base;
206 int n;
207 int ndir = 0;
208 FcStrList *list;
209
210 list = FcStrListCreate (dirs);
211 if (!list)
212 goto bail2;
213
214 while ((dir = FcStrListNext (list)))
215 {
216 base = file_base_name (base_name, dir);
217 if (!write_string (stdout, base))
218 goto bail3;
219 if (PUTC (' ', stdout) == EOF)
220 goto bail3;
221 if (!write_int (stdout, 0))
222 goto bail3;
223 if (PUTC (' ', stdout) == EOF)
224 goto bail3;
225 if (!write_string (stdout, FC_FONT_FILE_DIR))
226 goto bail3;
227 if (PUTC ('\n', stdout) == EOF)
228 goto bail3;
229 ndir++;
230 }
231
232 for (n = 0; n < set->nfont; n++)
233 {
234 FcPattern *font = set->fonts[n];
235 FcChar8 *s;
236
237 s = FcPatternFormat (font, (const FcChar8 *) "%{=fccat}\n");
238 if (s)
239 {
240 printf ("%s", s);
241 FcStrFree (s);
242 }
243 }
244 if (verbose && !set->nfont && !ndir)
245 printf ("<empty>\n");
246
247 FcStrListDone (list);
248
249 return FcTrue;
250
251 bail3:
252 FcStrListDone (list);
253 bail2:
254 return FcFalse;
255 }
256
257 int
main(int argc,char ** argv)258 main (int argc, char **argv)
259 {
260 int i;
261 int ret = 0;
262 FcFontSet *fs;
263 FcStrSet *dirs;
264 FcStrSet *args = NULL;
265 FcStrList *arglist;
266 FcCache *cache;
267 FcConfig *config;
268 FcChar8 *arg;
269 int verbose = 0;
270 int recurse = 0;
271 FcBool first = FcTrue;
272 #if HAVE_GETOPT_LONG || HAVE_GETOPT
273 int c;
274
275 setlocale (LC_ALL, "");
276 #if HAVE_GETOPT_LONG
277 while ((c = getopt_long (argc, argv, "Vvrh", longopts, NULL)) != -1)
278 #else
279 while ((c = getopt (argc, argv, "Vvrh")) != -1)
280 #endif
281 {
282 switch (c) {
283 case 'V':
284 fprintf (stderr, "fontconfig version %d.%d.%d\n",
285 FC_MAJOR, FC_MINOR, FC_REVISION);
286 exit (0);
287 case 'v':
288 verbose++;
289 break;
290 case 'r':
291 recurse++;
292 break;
293 case 'h':
294 usage (argv[0], 0);
295 default:
296 usage (argv[0], 1);
297 }
298 }
299 i = optind;
300 #else
301 i = 1;
302 #endif
303
304 config = FcInitLoadConfig ();
305 if (!config)
306 {
307 fprintf (stderr, _("%s: Can't initialize font config library\n"), argv[0]);
308 return 1;
309 }
310 FcConfigSetCurrent (config);
311 FcConfigDestroy (config);
312
313 args = FcStrSetCreate ();
314 if (!args)
315 {
316 fprintf (stderr, _("%s: malloc failure\n"), argv[0]);
317 return 1;
318 }
319 if (i < argc)
320 {
321 for (; i < argc; i++)
322 {
323 if (!FcStrSetAddFilename (args, (const FcChar8 *) argv[i]))
324 {
325 fprintf (stderr, _("%s: malloc failure\n"), argv[0]);
326 return 1;
327 }
328 }
329 }
330 else
331 {
332 recurse++;
333 arglist = FcConfigGetFontDirs (config);
334 while ((arg = FcStrListNext (arglist)))
335 if (!FcStrSetAdd (args, arg))
336 {
337 fprintf (stderr, _("%s: malloc failure\n"), argv[0]);
338 return 1;
339 }
340 FcStrListDone (arglist);
341 }
342 arglist = FcStrListCreate (args);
343 if (!arglist)
344 {
345 fprintf (stderr, _("%s: malloc failure\n"), argv[0]);
346 return 1;
347 }
348 FcStrSetDestroy (args);
349
350 while ((arg = FcStrListNext (arglist)))
351 {
352 int j;
353 FcChar8 *cache_file = NULL;
354 struct stat file_stat;
355
356 /* reset errno */
357 errno = 0;
358 if (FcFileIsDir (arg))
359 cache = FcDirCacheLoad (arg, config, &cache_file);
360 else
361 cache = FcDirCacheLoadFile (arg, &file_stat);
362 if (!cache)
363 {
364 if (errno != 0)
365 perror ((char *) arg);
366 else
367 fprintf (stderr, "%s: Unable to load the cache: %s\n", argv[0], arg);
368 ret++;
369 continue;
370 }
371
372 dirs = FcStrSetCreate ();
373 fs = FcCacheCopySet (cache);
374 for (j = 0; j < FcCacheNumSubdir (cache); j++)
375 {
376 FcStrSetAdd (dirs, FcCacheSubdir (cache, j));
377 if (recurse)
378 FcStrSetAdd (args, FcCacheSubdir (cache, j));
379 }
380
381 if (verbose)
382 {
383 if (!first)
384 printf ("\n");
385 printf (_("Directory: %s\nCache: %s\n--------\n"),
386 FcCacheDir(cache), cache_file ? cache_file : arg);
387 first = FcFalse;
388 }
389 cache_print_set (fs, dirs, FcCacheDir (cache), verbose);
390
391 FcStrSetDestroy (dirs);
392
393 FcFontSetDestroy (fs);
394 FcDirCacheUnload (cache);
395 if (cache_file)
396 FcStrFree (cache_file);
397 }
398 FcStrListDone (arglist);
399
400 FcFini ();
401 return 0;
402 }
403