File: fontconfig.c

package info (click to toggle)
xdvik-ja 22.84.16-j1.40+t1lib-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 16,628 kB
  • ctags: 10,310
  • sloc: ansic: 88,999; sh: 5,309; makefile: 1,031; perl: 245; lisp: 244
file content (92 lines) | stat: -rw-r--r-- 2,373 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
#include "xdvi-config.h"
#include "xdvi.h"
#include <stdio.h>
#include "util.h"
#include "string-utils.h"

#ifdef	PTEX
#include "kpathsea/tex-file.h"

#if	HAVE_FONTCONFIG
#include <fontconfig/fontconfig.h>

char *fc_match(char *name)
{
    FcFontSet   *fs;
    FcPattern   *pat;
    FcResult    result;
    FcPattern   *match;
    char        *ret = NULL;
    static int inited = false;

    if (!inited) {
        if (FcInit() == 0) {
            XDVI_WARNING((stderr, "fontconfig: Can't init library.\n"));
            return NULL;
        }
        inited = true;
    }

    pat = FcNameParse((FcChar8 *)name);
    FcConfigSubstitute(0, pat, FcMatchPattern);
    FcDefaultSubstitute(pat);
    fs = FcFontSetCreate();
    match = FcFontMatch(0, pat, &result);
    if (match != NULL) FcFontSetAdd(fs, match);
    if (pat != NULL) FcPatternDestroy(pat);

    if (fs != NULL) {
        if (fs->nfont > 0) {
            FcChar8   *file;
            if (FcPatternGetString(fs->fonts[0], FC_FILE, 0, &file)
                == FcResultMatch) {
                ret = strdup(file);
            }
        }
        FcFontSetDestroy(fs);
    }
    if (kpathsea_debug) {
        fprintf(stderr, "fontconfig:fc_match(%s) => %s\n", name, ret);
    }
    return ret;
}

char *fc_convert(char *name) {
    char *tmp, *s;

    if (str_is_suffix(".otf", name, false)) return NULL;
    if (str_is_suffix(".ttf", name, false)) return NULL;
    if (str_is_suffix(".ttc", name, false)) return NULL;
    tmp = strdup(name);
    s = strstr(tmp, "-Light");   if (s != NULL) *s = '\0';
    s = strstr(tmp, "-Medium");  if (s != NULL) *s = '\0';
    s = strstr(tmp, "-Regular"); if (s != NULL) *s = '\0';
    s = fc_match(tmp);
    free(tmp);
    return s;
}
#endif	/* HAVE_FONTCONFIG */


const char *get_ptex_font_pathname(char *name)
{
    char *s = NULL;
    FILE *fp;

    if ((fp=XFOPEN(name, "r")) != NULL) {
	fclose(fp);
	s = name;
    }

    if (s == NULL) s = kpse_find_file(name, kpse_opentype_format, true);
    if (s == NULL) s = kpse_find_file(name, kpse_truetype_format, true);
    if (s == NULL) s = kpse_find_file(name, kpse_miscfonts_format, true);
    if (s == NULL) s = kpse_find_file(name, kpse_program_text_format, true);
#if	HAVE_FONTCONFIG
    if (s == NULL) s = fc_convert(name);
#endif	/* HAVE_FONTCONFIG */
    if (s == NULL) s = name;
    return s;
}

#endif	/* PTEX */