Mercurial > hg > xemacs-beta
annotate src/font-mgr.c @ 5797:a1808d52a34a
If the position of a window's cached point is deleted, use buffer point instead
src/ChangeLog addition:
2014-06-17 Aidan Kehoe <kehoea@parhasard.net>
* extents.h:
* window.c:
* window.c (unshow_buffer):
* window.c (Fset_window_buffer):
Use extents, rather than markers, for the window buffer point
cache, so that when the text containing that window buffer point
is deleted, the window display code uses the buffer's actual point
instead of the position that the marker had been moved to.
Fixes Michael Heinrich's problem of
http://mid.gmane.org/6zr42uxtf5.fsf@elektra.science-computing.de ,
introduced by Ben's patch of
https://bitbucket.org/xemacs/xemacs/commits/047d37eb70d70f43803 .
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 17 Jun 2014 20:55:45 +0100 |
| parents | 23dc211f4d2f |
| children | 15b0715c204d |
| rev | line source |
|---|---|
| 3354 | 1 /* Lisp font handling implementation for X with Xft. |
| 2 | |
| 3 Copyright (C) 2003 Eric Knauel and Matthias Neubauer | |
| 4 Copyright (C) 2005 Eric Knauel | |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
5 Copyright (C) 2004-2009, 2013 Free Software Foundation, Inc. |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
6 Copyright (C) 2010 Ben Wing. |
| 3354 | 7 |
| 8 Authors: Eric Knauel <knauel@informatik.uni-tuebingen.de> | |
| 9 Matthias Neubauer <neubauer@informatik.uni-freiburg.de> | |
| 10 Stephen J. Turnbull <stephen@xemacs.org> | |
| 11 Created: 27 Oct 2003 | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
12 Updated: 18 November 2009 by Stephen J. Turnbull |
| 3354 | 13 |
| 14 This file is part of XEmacs. | |
| 15 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5189
diff
changeset
|
16 XEmacs is free software: you can redistribute it and/or modify it |
| 3354 | 17 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5189
diff
changeset
|
18 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5189
diff
changeset
|
19 option) any later version. |
| 3354 | 20 |
| 21 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 22 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 23 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 24 for more details. | |
| 25 | |
| 26 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5189
diff
changeset
|
27 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 3354 | 28 |
| 29 /* Synched up with: Not in GNU Emacs. */ | |
| 30 | |
| 31 /* This module provides the Lisp interface to fonts in X11, including Xft, | |
| 32 but (at least at first) not GTK+ or Qt. | |
| 33 | |
| 34 Sealevel code should be in ../lwlib/lwlib-fonts.c or | |
| 35 ../lwlib/lwlib-colors.c. | |
| 36 */ | |
| 37 | |
| 38 #include <config.h> | |
| 39 #include "lisp.h" | |
| 40 #include "device.h" | |
| 41 #include "device-impl.h" | |
| 42 #include "console-x-impl.h" | |
|
5176
8b2f75cecb89
rename objects* (.c, .h and .el files) to fontcolor*
Ben Wing <ben@xemacs.org>
parents:
4982
diff
changeset
|
43 #include "fontcolor-x.h" |
|
8b2f75cecb89
rename objects* (.c, .h and .el files) to fontcolor*
Ben Wing <ben@xemacs.org>
parents:
4982
diff
changeset
|
44 #include "fontcolor-x-impl.h" |
| 3354 | 45 #include "hash.h" |
| 46 #include "font-mgr.h" | |
| 47 | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
48 #include "sysfile.h" |
|
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
49 |
| 3354 | 50 /* #### TO DO #### |
| 51 . The "x-xft-*" and "x_xft_*" nomenclature is mostly redundant, especially | |
| 52 if we separate X fonts from Xft fonts, and use fontconfig more generally. | |
| 53 . We should support the most recent Xft first, old Xft libraries later. | |
| 54 . We may (think about it) wish to use fontconfig generally, even if we're | |
| 55 not using Xft. Either way, names that are really from fontconfig should | |
| 56 use the Fc* namespace. | |
| 57 . Mule-ize this file. | |
| 58 . Separate X Font Struct ops from Xft Font ops; give precedence to Xft but | |
| 59 allow fallback to X. | |
| 60 . Push decisions about font choice, defaults, fallbacks to Lisp; if we | |
| 61 really need efficiency, can reimplement in C later. | |
| 62 . Implement symbols interned in this file in the Q* namespace. | |
| 63 . Implement FcMatrix (Lisp vector). | |
| 64 . Implement FcCharSets (Lisp chartable? For implementation hints, see | |
| 65 FcCharSetFirstPage and FcCharSetNextPage). | |
| 66 . Implement FcConfigs. | |
| 67 DONE | |
| 68 . Fontconfig fontnames are encoded in UTF-8. | |
| 69 */ | |
| 70 | |
| 3360 | 71 Lisp_Object Qfont_mgr; |
| 3354 | 72 Lisp_Object Qfc_patternp; |
| 73 /* Lisp_Object Qfc_result_match; */ /* FcResultMatch */ | |
| 74 Lisp_Object Qfc_result_type_mismatch; /* FcResultTypeMismatch */ | |
| 75 Lisp_Object Qfc_result_no_match; /* FcResultNoMatch */ | |
| 76 Lisp_Object Qfc_result_no_id; /* FcResultNoId */ | |
| 77 Lisp_Object Qfc_internal_error; | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
78 Lisp_Object Qfc_match_pattern; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
79 Lisp_Object Qfc_match_font; |
| 3354 | 80 Lisp_Object Vxlfd_font_name_regexp; /* #### Really needed? */ |
| 3935 | 81 Fixnum xft_version; |
| 82 Fixnum fc_version; | |
| 3354 | 83 Fixnum debug_xft; /* Set to 1 enables lots of obnoxious messages. |
| 84 Setting it to 2 or 3 enables even more. */ | |
| 3931 | 85 #ifdef FONTCONFIG_EXPOSE_CONFIG |
| 86 Lisp_Object Qfc_configp; | |
| 87 static Lisp_Object Vfc_config_weak_list; | |
| 88 #endif | |
| 3354 | 89 |
| 90 /**************************************************************** | |
| 91 * FcPattern objects * | |
| 92 ****************************************************************/ | |
| 93 | |
| 94 static void | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
95 finalize_fc_pattern (Lisp_Object obj) |
| 3354 | 96 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
97 struct fc_pattern *p = XFC_PATTERN (obj); |
| 3354 | 98 if (p->fcpatPtr) |
| 99 { | |
| 100 FcPatternDestroy (p->fcpatPtr); | |
| 101 p->fcpatPtr = 0; | |
| 102 } | |
| 103 } | |
| 104 | |
| 3906 | 105 /* #### We really need an equal method and a hash method (required if you |
| 106 have an equal method). For the equal method, we can probably use one | |
| 107 or both of | |
| 108 | |
| 109 -- Function: FcBool FcPatternEqual (const FcPattern *pa, const | |
| 110 FcPattern *pb); | |
| 111 Returns whether PA and PB are exactly alike. | |
| 112 | |
| 113 -- Function: FcBool FcPatternEqualSubset (const FcPattern *pa, const | |
| 114 FcPattern *pb, const FcObjectSet *os) | |
| 115 Returns whether PA and PB have exactly the same values for all of | |
| 116 the objects in OS. | |
| 117 | |
| 118 For the hash, we'll have to extract some subset of attributes. | |
| 119 | |
| 120 #### Crap. It's altogether unobvious what we need. x_color_instance | |
| 121 does have a hash method, but fonts are apparently special. I get the | |
| 122 feeling that for this to work properly we're going to need to switch | |
| 123 to fontconfig-based font specifications (although we can allow the | |
| 124 platform syntaxes, the underlying specification object will need to | |
| 125 conform to the fontconfig API, or more precisely the font-mgr API). | |
| 126 | |
| 127 I think the whole `font-truename' interface needs to be dropped. */ | |
| 128 | |
| 3354 | 129 static const struct memory_description fcpattern_description [] = { |
| 130 /* #### nothing here, is this right?? */ | |
| 131 { XD_END } | |
| 132 }; | |
| 133 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
134 DEFINE_NODUMP_LISP_OBJECT ("fc-pattern", fc_pattern, |
|
5142
f965e31a35f0
reduce lcrecord headers to 2 words, rename printing_unreadable_object
Ben Wing <ben@xemacs.org>
parents:
5127
diff
changeset
|
135 0, external_object_printer, finalize_fc_pattern, |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
136 0, 0, fcpattern_description, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
137 struct fc_pattern); |
| 3354 | 138 |
| 139 /* | |
| 140 * Helper Functions | |
| 141 */ | |
| 142 static Lisp_Object make_xlfd_font_regexp (void); | |
| 143 static void string_list_to_fcobjectset (Lisp_Object list, FcObjectSet *os); | |
| 144 | |
| 145 /* | |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
146 Extract the C representation of the Lisp string STR and convert it |
| 3354 | 147 to the encoding used by the Fontconfig API for property and font |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
148 names. These functions assume that STR is a Lisp string. |
| 3354 | 149 */ |
| 150 #define extract_fcapi_string(str) \ | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
151 (LISP_STRING_TO_EXTERNAL ((str), Qfc_font_name_encoding)) |
| 3354 | 152 |
| 3906 | 153 #define build_fcapi_string(str) \ |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
4932
diff
changeset
|
154 (build_extstring ((Extbyte *) (str), Qfc_font_name_encoding)) |
| 3906 | 155 |
| 3360 | 156 /* #### This homebrew lashup should be replaced with FcConstants. |
| 157 | |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
158 #### This isn't true any more (fontconfig v2.10.95), if it ever was. |
| 3360 | 159 fontconfig assumes that objects (property names) are statically allocated, |
| 3354 | 160 and you will get bizarre results if you pass Lisp string data or strings |
| 161 allocated on the stack as objects. fontconfig _does_ copy values, so we | |
| 162 (I hope) don't have to worry about that member. | |
| 163 | |
| 164 Probably these functions don't get called so often that the memory leak | |
| 165 due to strdup'ing every time we add a property would matter, but XEmacs | |
| 166 _is_ a long-running process. So we hash them. | |
| 167 | |
| 168 I suspect that using symbol names or even keywords does not provide | |
| 169 assurance that the string won't move in memory. So we hash them | |
| 3360 | 170 ourselves; hash.c hashtables do not interpret the value pointers. |
| 171 | |
| 172 This array should be FcChar8**, but GCC 4.x bitches about signedness. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
173 static const Extbyte *fc_standard_properties[] = |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
174 { |
| 3360 | 175 /* treated specially, ordered first */ |
| 176 "family", "size", | |
| 177 /* remaining are alphabetized by group */ | |
| 178 /* standard properties in fontconfig and Xft v.2 */ | |
| 179 "antialias", "aspect", "autohint", "charset", "dpi", "file", | |
| 3354 | 180 "foundry", "ftface", "globaladvance", "hinting", "index", "lang", |
| 181 "minspace", "outline", "pixelsize", "rasterizer", "rgba", "scalable", | |
| 3360 | 182 "scale", "slant", "spacing", "style", "verticallayout", "weight", |
| 183 /* common in modern fonts */ | |
| 184 "fontformat", "fontversion", | |
| 3354 | 185 /* obsolete after Xft v. 1 */ |
| 186 "charwidth", "charheight", "core", "encoding", "render" | |
| 187 }; | |
| 188 | |
| 189 static struct hash_table *fc_property_name_hash_table; | |
| 190 | |
| 191 /* #### Maybe fc_intern should be exposed to LISP? The idea is that | |
| 192 fc-pattern-add could warn or error if the property isn't interned. */ | |
| 193 | |
| 3469 | 194 static const Extbyte * |
| 3354 | 195 fc_intern (Lisp_Object property) |
| 196 { | |
| 197 const void *dummy; | |
| 3469 | 198 const Extbyte *prop = extract_fcapi_string (property); |
| 3354 | 199 const void *val = gethash (prop, fc_property_name_hash_table, &dummy); |
| 200 | |
| 201 /* extract_fcapi_string returns something alloca'd | |
| 202 so we can just drop the old value of prop on the floor */ | |
| 203 if (val) | |
| 3469 | 204 prop = (const Extbyte *) val; |
| 3354 | 205 else |
| 206 { | |
| 3469 | 207 prop = (const Extbyte *) FcStrCopy ((FcChar8 *) prop); |
| 3354 | 208 puthash (prop, NULL, fc_property_name_hash_table); |
| 209 } | |
| 210 return prop; | |
| 211 } | |
| 212 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
213 DEFUN ("fc-pattern-p", Ffc_pattern_p, 1, 1, 0, /* |
| 3354 | 214 Returns t if OBJECT is of type fc-pattern, nil otherwise. |
| 215 */ | |
| 216 (object)) | |
| 217 { | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
218 return FC_PATTERNP (object) ? Qt : Qnil; |
| 3354 | 219 } |
| 220 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
221 DEFUN ("fc-pattern-create", Ffc_pattern_create, 0, 0, 0, /* |
| 3354 | 222 Return a new, empty fc-pattern object. |
| 223 */ | |
| 224 ()) | |
| 225 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
226 fc_pattern *fcpat = XFC_PATTERN (ALLOC_NORMAL_LISP_OBJECT (fc_pattern)); |
| 3354 | 227 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
228 fcpat->fcpatPtr = FcPatternCreate (); |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
229 assert (fcpat->fcpatPtr); |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
230 return wrap_fc_pattern (fcpat); |
| 3354 | 231 } |
| 232 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
233 DEFUN ("fc-name-parse", Ffc_name_parse, 1, 1, 0, /* |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
234 Parse an Fc font name and return its representation as a Fc pattern object. |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
235 Signal `invalid-argument' if the name is unparseable. |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
236 |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
237 Note: The name returned by xft-font-truename has been observed to be |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
238 unparseable \(in the case of the xft-font-default-font-name). The cause |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
239 is unknown so you can't assume getting a name from a font instance then |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
240 instantiating the font again will round-trip. See `fc-name-parse-harder'. |
| 3354 | 241 */ |
| 242 (name)) | |
| 243 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
244 fc_pattern *fcpat = XFC_PATTERN (ALLOC_NORMAL_LISP_OBJECT (fc_pattern)); |
| 3354 | 245 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
246 CHECK_STRING (name); |
| 3469 | 247 fcpat->fcpatPtr = FcNameParse ((FcChar8 *) extract_fcapi_string (name)); |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
248 if (!fcpat->fcpatPtr) |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
249 /* #### Is this the best API? Could return a symbol or similar. */ |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
250 invalid_argument ("unparseable Fc font name", name); |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
251 return wrap_fc_pattern (fcpat); |
| 3354 | 252 } |
| 253 | |
| 254 /* #### Ga-a-ack! Xft's similar function is actually a different API. | |
| 255 We provide both. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
256 DEFUN ("fc-name-unparse", Ffc_name_unparse, 1, 1, 0, /* |
| 3354 | 257 Unparse an fc pattern object to a string. |
| 258 */ | |
| 259 (pattern)) | |
| 260 { | |
|
4799
ca99a807b025
Free, rather than discard, the return value of FcNameUnparse. See message
Jerry James <james@xemacs.org>
parents:
4758
diff
changeset
|
261 FcChar8 *name; |
|
ca99a807b025
Free, rather than discard, the return value of FcNameUnparse. See message
Jerry James <james@xemacs.org>
parents:
4758
diff
changeset
|
262 Lisp_Object result; |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
263 CHECK_FC_PATTERN (pattern); |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
264 name = FcNameUnparse (XFC_PATTERN_PTR (pattern)); |
|
4799
ca99a807b025
Free, rather than discard, the return value of FcNameUnparse. See message
Jerry James <james@xemacs.org>
parents:
4758
diff
changeset
|
265 result = build_fcapi_string (name); |
|
4976
16112448d484
Rename xfree(FOO, TYPE) -> xfree(FOO)
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
266 xfree (name); |
|
4799
ca99a807b025
Free, rather than discard, the return value of FcNameUnparse. See message
Jerry James <james@xemacs.org>
parents:
4758
diff
changeset
|
267 return result; |
| 3354 | 268 } |
| 269 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
270 DEFUN ("fc-pattern-duplicate", Ffc_pattern_duplicate, 1, 1, 0, /* |
| 3354 | 271 Make a copy of the fc pattern object PATTERN and return it. |
| 272 */ | |
| 273 (pattern)) | |
| 274 { | |
| 275 struct fc_pattern *copy = NULL; | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
276 CHECK_FC_PATTERN (pattern); |
| 3354 | 277 |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
278 copy = XFC_PATTERN (ALLOC_NORMAL_LISP_OBJECT (fc_pattern)); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
279 copy->fcpatPtr = FcPatternDuplicate (XFC_PATTERN_PTR (pattern)); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
280 return wrap_fc_pattern (copy); |
| 3354 | 281 } |
| 282 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
283 DEFUN ("fc-pattern-add", Ffc_pattern_add, 3, 3, 0, /* |
| 3354 | 284 Add attributes to the pattern object PATTERN. PROPERTY is a string naming |
| 285 the attribute to add, VALUE the value for this attribute. | |
| 286 | |
| 287 VALUE may be a string, integer, float, or symbol, in which case the value | |
| 288 will be added as an FcChar8[], int, double, or FcBool respectively. | |
| 289 */ | |
| 290 (pattern, property, value)) | |
| 291 { | |
| 292 Bool res = 0; | |
| 3469 | 293 const Extbyte *obj; |
| 3354 | 294 FcPattern *fcpat; |
| 295 | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
296 CHECK_FC_PATTERN (pattern); |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
297 CHECK_STRING (property); |
| 3354 | 298 |
| 299 obj = fc_intern (property); | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
300 fcpat = XFC_PATTERN_PTR (pattern); |
| 3354 | 301 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
302 if (STRINGP (value)) |
| 3354 | 303 { |
| 304 FcChar8 *str = (FcChar8 *) extract_fcapi_string (value); | |
| 305 res = FcPatternAddString (fcpat, obj, str); | |
| 306 } | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
307 else if (FIXNUMP (value)) |
| 3354 | 308 { |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
309 res = FcPatternAddInteger (fcpat, obj, XFIXNUM (value)); |
| 3354 | 310 } |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
311 else if (FLOATP (value)) |
| 3354 | 312 { |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
313 res = FcPatternAddDouble (fcpat, obj, (double) XFLOAT_DATA (value)); |
| 3354 | 314 } |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
315 else if (SYMBOLP (value)) |
| 3354 | 316 { |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
317 res = FcPatternAddBool (fcpat, obj, !NILP (value)); |
| 3354 | 318 } |
| 319 /* else ... maybe we should wta here? */ | |
| 320 | |
| 321 return res ? Qt : Qnil; | |
| 322 } | |
| 323 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
324 DEFUN ("fc-pattern-del", Ffc_pattern_del, 2, 2, 0, /* |
| 3354 | 325 Remove attribute PROPERTY from fc pattern object OBJECT. |
| 326 */ | |
| 327 (pattern, property)) | |
| 328 { | |
| 329 Bool res; | |
| 330 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
331 CHECK_FC_PATTERN (pattern); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
332 CHECK_STRING (property); |
| 3354 | 333 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
334 res = FcPatternDel (XFC_PATTERN_PTR (pattern), extract_fcapi_string (property)); |
| 3354 | 335 return res ? Qt : Qnil; |
| 336 } | |
| 337 | |
| 338 /* Generic interface to FcPatternGet() | |
| 339 * Don't support the losing symbol-for-property interface. | |
| 340 */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
341 DEFUN ("fc-pattern-get", Ffc_pattern_get, 2, 4, 0, /* |
| 3354 | 342 From PATTERN, extract PROPERTY for the ID'th member, of type TYPE. |
| 343 | |
| 344 PATTERN is an Xft (fontconfig) pattern object. | |
| 345 PROPERTY is a string naming an fontconfig font property. | |
| 346 Optional ID is a nonnegative integer indexing the list of values for PROPERTY | |
| 347 stored in PATTERN, defaulting to 0 (the first value). | |
| 348 Optional TYPE is a symbol, one of 'string, 'boolean, 'integer, 'float, | |
| 349 'double, 'matrix, 'charset, or 'void, corresponding to the FcValue types. | |
| 350 ('float is an alias for 'double). | |
| 351 | |
| 352 The Lisp types returned will conform to TYPE: | |
| 353 string string | |
| 354 boolean `t' or `nil' | |
| 355 integer integer | |
| 356 double (float) float | |
| 357 matrix not implemented | |
| 358 charset not implemented | |
| 359 void not implemented | |
| 360 | |
| 361 Symbols with names of the form "fc-result-DESCRIPTION" are returned when | |
| 362 the desired value is not available. These are | |
| 363 | |
| 364 fc-result-type-mismatch the value found has an unexpected type | |
| 365 fc-result-no-match there is no such attribute | |
| 366 fc-result-no-id there is no value for the requested ID | |
| 367 | |
| 368 The types of the following standard properties are predefined by fontconfig. | |
| 369 The symbol 'fc-result-type-mismatch will be returned if the object exists but | |
| 370 TYPE does not match the predefined type. It is best not to specify a type | |
| 371 for predefined properties, as a mistake here ensures error returns on the | |
| 372 correct type. | |
| 373 | |
| 374 Each standard property has a convenience accessor defined in fontconfig.el, | |
| 375 named in the form "fc-pattern-get-PROPERTY". The convenience functions are | |
| 376 preferred to `fc-pattern-get' since a typo in the string naming a property | |
| 377 will result in a silent null return, while a typo in a function name will | |
| 378 usually result in a compiler or runtime \"not fboundp\" error. You may use | |
| 379 `defsubst' to define convenience functions for non-standard properties. | |
| 380 | |
| 381 family String Font family name | |
| 382 style String Font style. Overrides weight and slant | |
| 383 slant Int Italic, oblique or roman | |
| 384 weight Int Light, medium, demibold, bold or black | |
| 385 size Double Point size | |
| 386 aspect Double Stretches glyphs horizontally before hinting | |
| 387 pixelsize Double Pixel size | |
| 388 spacing Int Proportional, monospace or charcell | |
| 389 foundry String Font foundry name | |
| 390 antialias Bool Whether glyphs can be antialiased | |
| 391 hinting Bool Whether the rasterizer should use hinting | |
| 392 verticallayout Bool Use vertical layout | |
| 393 autohint Bool Use autohinter instead of normal hinter | |
| 394 globaladvance Bool Use font global advance data | |
| 395 file String The filename holding the font | |
| 396 index Int The index of the font within the file | |
| 397 ftface FT_Face Use the specified FreeType face object | |
| 398 rasterizer String Which rasterizer is in use | |
| 399 outline Bool Whether the glyphs are outlines | |
| 400 scalable Bool Whether glyphs can be scaled | |
| 401 scale Double Scale factor for point->pixel conversions | |
| 402 dpi Double Target dots per inch | |
| 403 rgba Int unknown, rgb, bgr, vrgb, vbgr, none - subpixel geometry | |
| 404 minspace Bool Eliminate leading from line spacing | |
| 405 charset CharSet Unicode chars encoded by the font | |
| 406 lang String List of RFC-3066-style languages this font supports | |
| 407 | |
| 408 The FT_Face, Matrix, CharSet types are unimplemented, so the corresponding | |
| 409 properties are not accessible from Lisp at this time. If the value of a | |
| 410 property returned has type FT_Face, FcCharSet, or FcMatrix, | |
| 411 `fc-result-type-mismatch' is returned. | |
| 412 | |
| 413 The following properties which were standard in Xft v.1 are obsolete in | |
| 414 Xft v.2: encoding, charwidth, charheight, core, and render. */ | |
| 415 (pattern, property, id, type)) | |
| 416 { | |
| 3469 | 417 Extbyte *fc_property; |
| 3354 | 418 FcResult fc_result; |
| 419 FcValue fc_value; | |
|
5307
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
420 int int_id = 0; |
| 3354 | 421 |
| 422 /* | |
| 423 process arguments | |
| 424 */ | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
425 CHECK_FC_PATTERN (pattern); |
| 3354 | 426 |
| 427 #if 0 | |
| 428 /* Don't support the losing symbol-for-property interface. */ | |
| 429 property = SYMBOLP (property) ? symbol_name (XSYMBOL (property)) : property; | |
| 430 #endif | |
| 431 if (STRINGP (property)) | |
| 432 { | |
| 3469 | 433 fc_property = extract_fcapi_string (property); |
| 3354 | 434 } |
| 435 else | |
| 436 { | |
| 437 /* if we allow symbols, this would need to be | |
| 438 list3 (Qlambda, list1 (Qobject), | |
| 439 list3 (Qor, list2 (Qstringp, Qobject), | |
| 440 list2 (Qsymbolp, Qobject))) | |
| 441 or something like that? */ | |
| 442 dead_wrong_type_argument (Qstringp, property); | |
| 443 } | |
| 444 | |
|
5307
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
445 if (!NILP (id)) |
|
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
446 { |
|
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
447 #ifdef HAVE_BIGNUM |
|
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
448 check_integer_range (id, Qzero, make_integer (INT_MAX)); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
449 int_id = BIGNUMP (id) ? bignum_to_int (XBIGNUM_DATA (id)) : XFIXNUM (id); |
|
5307
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
450 #else |
|
5736
3192994c49ca
Convert C (un)signed long long values to bignums properly.
Jerry James <james@xemacs.org>
parents:
5581
diff
changeset
|
451 check_integer_range (id, Qzero, make_fixnum (MOST_POSITIVE_FIXNUM)); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
452 int_id = XFIXNUM (id); |
|
5307
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
453 #endif |
|
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
454 } |
| 3354 | 455 if (!NILP (type)) CHECK_SYMBOL (type); |
| 456 | |
| 457 /* get property */ | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
458 fc_result = FcPatternGet (XFC_PATTERN_PTR (pattern), |
|
5307
c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5189
diff
changeset
|
459 fc_property, int_id, &fc_value); |
| 3354 | 460 |
| 461 switch (fc_result) | |
| 462 { | |
| 463 case FcResultMatch: | |
| 464 /* wrap it and return */ | |
| 465 switch (fc_value.type) | |
| 466 { | |
| 467 case FcTypeInteger: | |
| 468 return ((!NILP (type) && !EQ (type, Qinteger)) | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
469 ? Qfc_result_type_mismatch : make_fixnum (fc_value.u.i)); |
| 3354 | 470 case FcTypeDouble: |
| 471 return ((!NILP (type) && !EQ (type, intern ("double")) | |
| 472 && !EQ (type, Qfloat)) | |
| 473 ? Qfc_result_type_mismatch : make_float (fc_value.u.d)); | |
| 474 case FcTypeString: | |
| 475 return ((!NILP (type) && !EQ (type, Qstring)) | |
| 476 ? Qfc_result_type_mismatch | |
| 3906 | 477 : build_fcapi_string (fc_value.u.s)); |
| 3354 | 478 case FcTypeBool: |
| 479 return ((!NILP (type) && !EQ (type, Qboolean)) | |
| 480 ? Qfc_result_type_mismatch : fc_value.u.b ? Qt : Qnil); | |
| 481 case FcTypeMatrix: | |
| 482 return Qfc_result_type_mismatch; | |
| 483 /* #### unimplemented | |
| 484 return ((!NILP (type) && !EQ (type, intern ("matrix"))) | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
485 ? Qfc_result_type_mismatch : make_fixnum (fc_value.u.m)); |
| 3354 | 486 */ |
| 487 case FcTypeCharSet: | |
| 488 return Qfc_result_type_mismatch; | |
| 489 /* #### unimplemented | |
| 490 return ((!NILP (type) && !EQ (type, intern ("charset"))) | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
491 ? Qfc_result_type_mismatch : make_fixnum (fc_value.u.c)); |
| 3354 | 492 */ |
| 493 } | |
| 494 case FcResultTypeMismatch: | |
| 495 return Qfc_result_type_mismatch; | |
| 496 case FcResultNoMatch: | |
| 497 return Qfc_result_no_match; | |
| 498 case FcResultNoId: | |
| 499 return Qfc_result_no_id; | |
| 500 default: | |
| 501 return Qfc_internal_error; | |
| 502 } | |
| 503 } | |
| 504 | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
505 /* FcConfig handling functions. */ |
| 3354 | 506 |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
507 /* We obviously need to be careful about garbage collecting the current |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
508 FcConfig. I infer from the documentation of FcConfigDestroy that that |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
509 is the only reference maintained by fontconfig. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
510 So we keep track of our own references on a weak list, and only cons a |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
511 new object if we don't already have a reference to it there. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
512 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
513 enum DestroyFontsetP { DestroyNo = 0, DestroyYes = 1 }; |
| 3354 | 514 |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
515 static Lisp_Object |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
516 fc_config_create_using (FcConfig * (*create_function) (void)) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
517 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
518 FcConfig *fc = (*create_function) (); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
519 Lisp_Object configs = XWEAK_LIST_LIST (Vfc_config_weak_list); |
| 3354 | 520 |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
521 /* Linear search: fc_configs are not going to multiply like conses. */ |
| 3360 | 522 { |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
523 LIST_LOOP_2 (cfg, configs) |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
524 if (fc == XFC_CONFIG_PTR (cfg)) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
525 return cfg; |
| 3360 | 526 } |
| 527 | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
528 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
529 fc_config *fccfg = XFC_CONFIG (ALLOC_NORMAL_LISP_OBJECT (fc_config)); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
530 fccfg->fccfgPtr = fc; |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
531 configs = Fcons (wrap_fc_config (fccfg), configs); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
532 XWEAK_LIST_LIST (Vfc_config_weak_list) = configs; |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
533 return wrap_fc_config (fccfg); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
534 } |
| 3354 | 535 } |
| 536 | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
537 static Lisp_Object |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
538 fc_strlist_to_lisp_using (FcStrList * (*getter) (FcConfig *), |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
539 Lisp_Object config) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
540 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
541 FcChar8 *thing; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
542 Lisp_Object value = Qnil; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
543 FcStrList *thing_list; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
544 |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
545 CHECK_FC_CONFIG (config); |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
546 thing_list = (*getter) (XFC_CONFIG_PTR (config)); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
547 /* Yes, we need to do this check -- sheesh, Keith! */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
548 if (!thing_list) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
549 return Qnil; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
550 while ((thing = FcStrListNext (thing_list))) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
551 value = Fcons (build_fcapi_string (thing), value); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
552 FcStrListDone (thing_list); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
553 return value; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
554 } |
| 3931 | 555 |
| 3354 | 556 static Lisp_Object |
| 3931 | 557 fontset_to_list (FcFontSet *fontset, enum DestroyFontsetP destroyp) |
| 3354 | 558 { |
| 559 int idx; | |
| 560 Lisp_Object fontlist = Qnil; | |
| 561 fc_pattern *fcpat; | |
| 562 | |
| 563 /* #### improve this error message */ | |
| 564 if (!fontset) | |
| 4860 | 565 invalid_state ("failed to create FcFontSet", Qunbound); |
| 3354 | 566 for (idx = 0; idx < fontset->nfont; ++idx) |
| 567 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
568 fcpat = XFC_PATTERN (ALLOC_NORMAL_LISP_OBJECT (fc_pattern)); |
| 3354 | 569 fcpat->fcpatPtr = FcPatternDuplicate (fontset->fonts[idx]); |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
570 fontlist = Fcons (wrap_fc_pattern (fcpat), fontlist); |
| 3354 | 571 } |
| 3931 | 572 if (destroyp) |
| 573 FcFontSetDestroy (fontset); | |
| 3354 | 574 return fontlist; |
| 575 } | |
| 576 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
577 DEFUN ("fc-config-p", Ffc_config_p, 1, 1, 0, /* |
| 3931 | 578 Returns t if OBJECT is of type fc-config, nil otherwise. |
| 579 */ | |
| 580 (object)) | |
| 581 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
582 return FC_CONFIGP (object) ? Qt : Qnil; |
| 3931 | 583 } |
| 584 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
585 DEFUN ("fc-config-create", Ffc_config_create, 0, 0, 0, /* |
| 3931 | 586 -- Function: FcConfig *FcConfigCreate (void) |
| 587 Creates an empty configuration. */ | |
| 588 ()) | |
| 589 { | |
| 590 return fc_config_create_using (&FcConfigCreate); | |
| 591 } | |
| 592 | |
| 593 #if 0 | |
| 594 /* I'm sorry, but we just don't do this in Lisp, OK? | |
| 595 Don't even think about implementing this. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
596 DEFUN ("fc-config-destroy", Ffc_config_destroy, 1, 1, 0, /* |
| 3931 | 597 -- Function: void FcConfigDestroy (FcConfig *config) |
| 598 Destroys a configuration and any data associated with it. Note | |
| 599 that calling this function with the return value from | |
| 600 FcConfigGetCurrent will place the library in an indeterminate | |
| 601 state. */ | |
| 602 (config)) | |
| 603 { | |
| 604 signal_error (Qunimplemented, "No user-servicable parts!", | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
605 intern ("fc-config-destroy")); |
| 3931 | 606 } |
| 607 #endif | |
| 608 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
609 DEFUN ("fc-config-up-to-date", Ffc_config_up_to_date, 1, 1, 0, /* |
| 3931 | 610 -- Function: FcBool FcConfigUptoDate (FcConfig *config) |
| 611 Checks all of the files related to 'config' and returns whether the | |
| 612 in-memory version is in sync with the disk version. */ | |
| 613 (config)) | |
| 614 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
615 CHECK_FC_CONFIG (config); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
616 return FcConfigUptoDate (XFC_CONFIG_PTR (config)) == FcFalse ? Qnil : Qt; |
| 3931 | 617 } |
| 618 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
619 DEFUN ("fc-config-build-fonts", Ffc_config_build_fonts, 1, 1, 0, /* |
| 3931 | 620 -- Function: FcBool FcConfigBuildFonts (FcConfig *config) |
| 621 Builds the set of available fonts for the given configuration. | |
| 622 Note that any changes to the configuration after this call have | |
| 623 indeterminate effects. Returns FcFalse if this operation runs out | |
| 624 of memory. | |
| 625 XEmacs: signal out-of-memory, or return nil on success. */ | |
| 626 (config)) | |
| 627 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
628 CHECK_FC_CONFIG (config); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
629 if (FcConfigBuildFonts (XFC_CONFIG_PTR (config)) == FcFalse) |
| 3931 | 630 out_of_memory ("FcConfigBuildFonts failed", config); |
| 631 return Qnil; | |
| 632 } | |
| 633 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
634 DEFUN ("fc-config-get-config-dirs", Ffc_config_get_config_dirs, 1, 1, 0, /* |
| 3931 | 635 -- Function: FcStrList *FcConfigGetConfigDirs (FcConfig *config) |
| 636 Returns the list of font directories specified in the | |
| 637 configuration files for 'config'. Does not include any | |
| 638 subdirectories. */ | |
| 639 (config)) | |
| 640 { | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
641 return fc_strlist_to_lisp_using (&FcConfigGetConfigDirs, config); |
| 3931 | 642 } |
| 643 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
644 DEFUN ("fc-config-get-font-dirs", Ffc_config_get_font_dirs, 1, 1, 0, /* |
| 3931 | 645 -- Function: FcStrList *FcConfigGetFontDirs (FcConfig *config) |
| 646 Returns the list of font directories in 'config'. This includes the | |
| 647 configured font directories along with any directories below those | |
| 648 in the filesystem. */ | |
| 649 (config)) | |
| 650 { | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
651 return fc_strlist_to_lisp_using (&FcConfigGetFontDirs, config); |
| 3931 | 652 } |
| 653 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
654 DEFUN ("fc-config-get-config-files", Ffc_config_get_config_files, 1, 1, 0, /* |
| 3931 | 655 -- Function: FcStrList *FcConfigGetConfigFiles (FcConfig *config) |
| 656 Returns the list of known configuration files used to generate | |
| 657 'config'. Note that this will not include any configuration done | |
| 658 with FcConfigParse. */ | |
| 659 (config)) | |
| 660 { | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
661 return fc_strlist_to_lisp_using (&FcConfigGetConfigFiles, config); |
| 3931 | 662 } |
| 663 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
664 DEFUN ("fc-config-get-cache", Ffc_config_get_cache, 1, 1, 0, /* |
| 3931 | 665 -- Function: char *FcConfigGetCache (FcConfig *config) |
| 666 Returns the name of the file used to store per-user font | |
| 667 information. */ | |
| 668 (config)) | |
| 669 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
670 CHECK_FC_CONFIG (config); |
| 3931 | 671 /* Surely FcConfigGetCache just casts an FcChar8* to char*. */ |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
672 return build_fcapi_string ((FcChar8 *) FcConfigGetCache (XFC_CONFIG_PTR (config))); |
| 3931 | 673 } |
| 674 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
675 DEFUN ("fc-config-get-fonts", Ffc_config_get_fonts, 2, 2, 0, /* |
| 3931 | 676 -- Function: FcFontSet *FcConfigGetFonts (FcConfig *config, FcSetName set) |
| 677 Returns one of the two sets of fonts from the configuration as | |
| 678 specified by 'set'. | |
| 679 `FcSetName' | |
| 680 Specifies one of the two sets of fonts available in a | |
| 681 configuration; FcSetSystem for those fonts specified in the | |
| 682 configuration and FcSetApplication which holds fonts provided by | |
| 683 the application. */ | |
| 684 (config, set)) | |
| 685 { | |
| 686 FcSetName name = FcSetSystem; | |
| 687 FcFontSet *fs = NULL; | |
| 688 | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
689 CHECK_FC_CONFIG (config); |
| 3931 | 690 CHECK_SYMBOL (set); |
| 691 | |
| 692 if (EQ (set, intern ("fc-set-system"))) | |
| 693 name = FcSetSystem; | |
| 694 else if (EQ (set, intern ("fc-set-application"))) | |
| 695 name = FcSetApplication; | |
| 696 else | |
| 697 wtaerror ("must be in (fc-set-system fc-set-application)", set); | |
| 698 | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
699 fs = FcConfigGetFonts (XFC_CONFIG_PTR (config), name); |
| 3931 | 700 return fs ? fontset_to_list (fs, DestroyNo) : Qnil; |
| 701 } | |
| 702 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
703 DEFUN ("fc-config-set-current", Ffc_config_set_current, 1, 1, 0, /* |
| 3931 | 704 -- Function: FcBool FcConfigSetCurrent (FcConfig *config) |
| 705 Sets the current default configuration to 'config'. Implicitly | |
| 706 calls FcConfigBuildFonts if necessary, returning FcFalse if that | |
| 707 call fails. | |
| 708 XEmacs: signals out-of-memory if FcConfigBuildFonts fails, or args-out-of-range | |
| 709 if the resulting FcConfig has no fonts (which would crash XEmacs if installed). | |
| 710 */ | |
| 711 (config)) | |
| 712 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
713 CHECK_FC_CONFIG (config); |
| 3931 | 714 /* *sigh* "Success" DOES NOT mean you have any fonts available. It is |
| 715 easy to crash fontconfig, and XEmacs with it. Without the following | |
| 716 check, this will do it: | |
| 717 (progn | |
| 718 (fc-config-set-current (fc-config-create)) | |
| 719 (set-face-font 'default "serif-12")) | |
| 720 */ | |
| 721 | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
722 if (FcConfigBuildFonts (XFC_CONFIG_PTR (config)) == FcFalse) |
| 3931 | 723 out_of_memory ("FcConfigBuildFonts failed", config); |
| 724 /* #### We'd like to avoid this consing, and FcConfigGetFonts sometimes | |
| 725 returns NULL, but it doesn't always. This will do for now .... */ | |
| 726 if (NILP (Ffc_config_get_fonts (config, intern ("fc-set-system"))) | |
| 727 && NILP (Ffc_config_get_fonts (config, intern ("fc-set-application")))) | |
| 728 signal_error (intern ("args-out-of-range"), "no fonts found", config); | |
| 729 /* Should never happen, but I don't trust Keith anymore .... */ | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
730 if (FcConfigSetCurrent (XFC_CONFIG_PTR (config)) == FcFalse) |
| 3931 | 731 out_of_memory ("FcConfigBuildFonts failed in set", config); |
| 732 return Qnil; | |
| 733 } | |
| 734 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
735 DEFUN ("fc-config-get-blanks", Ffc_config_get_blanks, 1, 1, 0, /* |
| 3931 | 736 -- Function: FcBlanks *FcConfigGetBlanks (FcConfig *config) |
| 737 Returns the FcBlanks object associated with the given | |
| 738 configuration, if no blanks were present in the configuration, | |
| 739 this function will return 0. | |
| 740 XEmacs: should convert to a chartable. | |
| 741 #### Unimplemented. */ | |
| 742 (config)) | |
| 743 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
744 CHECK_FC_CONFIG (config); |
| 3931 | 745 signal_error (Qunimplemented, "no method to convert FcBlanks object", |
| 746 intern ("fc-config-get-blanks")); | |
| 747 } | |
| 748 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
749 DEFUN ("fc-config-get-rescan-interval", Ffc_config_get_rescan_interval, 1, 1, 0, /* |
|
4328
dfd878799ef0
Autoconfiscate the recent fontconfig spelling change.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3935
diff
changeset
|
750 -- Function: int FcConfigGetRescanInterval (FcConfig *config) |
| 3931 | 751 Returns the interval between automatic checks of the configuration |
| 752 (in seconds) specified in 'config'. The configuration is checked | |
| 753 during a call to FcFontList when this interval has passed since | |
| 754 the last check. */ | |
| 755 (config)) | |
| 756 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
757 CHECK_FC_CONFIG (config); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
758 return make_fixnum (FcConfigGetRescanInterval (XFC_CONFIG_PTR (config))); |
| 3931 | 759 } |
| 760 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
761 DEFUN ("fc-config-set-rescan-interval", Ffc_config_set_rescan_interval, 2, 2, 0, /* |
|
4328
dfd878799ef0
Autoconfiscate the recent fontconfig spelling change.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3935
diff
changeset
|
762 -- Function: FcBool FcConfigSetRescanInterval (FcConfig *config, int |
| 3931 | 763 rescanInterval) |
| 764 Sets the rescan interval; returns FcFalse if an error occurred. | |
| 765 XEmacs: signal such error, or return nil on success. */ | |
| 766 (config, rescan_interval)) | |
| 767 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
768 CHECK_FC_CONFIG (config); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
769 CHECK_FIXNUM (rescan_interval); |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
770 if (FcConfigSetRescanInterval (XFC_CONFIG_PTR (config), |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
771 XFIXNUM (rescan_interval)) == FcFalse) |
| 3931 | 772 signal_error (Qio_error, "FcConfigSetRescanInverval barfed", |
| 773 intern ("fc-config-set-rescan-interval")); | |
| 774 return Qnil; | |
| 775 } | |
| 776 | |
| 777 /* #### This might usefully be made interactive. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
778 DEFUN ("fc-config-app-font-add-file", Ffc_config_app_font_add_file, 2, 2, 0, /* |
| 3931 | 779 -- Function: FcBool FcConfigAppFontAddFile (FcConfig *config, const |
| 780 char *file) | |
| 781 Adds an application-specific font to the configuration. */ | |
| 782 (config, file)) | |
| 783 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
784 CHECK_FC_CONFIG (config); |
| 3931 | 785 CHECK_STRING (file); |
| 786 if (FcConfigAppFontAddFile | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
787 (XFC_CONFIG_PTR (config), |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4809
diff
changeset
|
788 /* #### FIXME! is Qfile_name right? */ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
789 (FcChar8 *) LISP_STRING_TO_EXTERNAL (file, Qfile_name)) == FcFalse) |
| 3931 | 790 return Qnil; |
| 791 else | |
| 792 return Qt; | |
| 793 } | |
| 794 | |
| 795 /* #### This might usefully be made interactive. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
796 DEFUN ("fc-config-app-font-add-dir", Ffc_config_app_font_add_dir, 2, 2, 0, /* |
| 3931 | 797 -- Function: FcBool FcConfigAppFontAddDir (FcConfig *config, const |
| 798 char *dir) | |
| 799 Scans the specified directory for fonts, adding each one found to | |
| 800 the application-specific set of fonts. */ | |
| 801 (config, dir)) | |
| 802 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
803 CHECK_FC_CONFIG (config); |
| 3931 | 804 CHECK_STRING (dir); |
| 805 if (FcConfigAppFontAddDir | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
806 (XFC_CONFIG_PTR (config), |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4809
diff
changeset
|
807 /* #### FIXME! is Qfile_name right? */ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
808 (FcChar8 *) LISP_STRING_TO_EXTERNAL (dir, Qfile_name)) == FcFalse) |
| 3931 | 809 return Qnil; |
| 810 else | |
| 811 return Qt; | |
| 812 } | |
| 813 | |
| 814 /* #### This might usefully be made interactive. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
815 DEFUN ("fc-config-app-font-clear", Ffc_config_app_font_clear, 1, 1, 0, /* |
| 3931 | 816 -- Function: void FcConfigAppFontClear (FcConfig *config) |
| 817 Clears the set of application-specific fonts. */ | |
| 818 (config)) | |
| 819 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
820 CHECK_FC_CONFIG (config); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
821 FcConfigAppFontClear (XFC_CONFIG_PTR (config)); |
| 3931 | 822 return Qnil; |
| 823 } | |
| 824 | |
| 825 /* These functions provide some control over how the default | |
| 826 configuration of the library is initialized. (This configuration is | |
| 827 normally implicitly initialized.) */ | |
| 828 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
829 DEFUN ("fc-config-filename", Ffc_config_filename, 1, 1, 0, /* |
| 3931 | 830 -- Function: char *FcConfigFilename (const char *name) |
| 831 Given the specified external entity name, return the associated | |
| 832 filename. This provides applications a way to convert various | |
| 833 configuration file references into filename form. | |
| 834 | |
| 835 A null or empty 'name' indicates that the default configuration | |
| 836 file should be used; which file this references can be overridden | |
| 837 with the FC_CONFIG_FILE environment variable. Next, if the name | |
| 838 starts with '~', it refers to a file in the current users home | |
| 839 directory. Otherwise if the name doesn't start with '/', it | |
| 840 refers to a file in the default configuration directory; the | |
| 841 built-in default directory can be overridden with the | |
| 842 FC_CONFIG_DIR environment variable. */ | |
| 843 (name)) | |
| 844 { | |
| 4932 | 845 const Ascbyte *fcname = ""; |
| 3931 | 846 |
| 847 if (!NILP (name)) | |
| 848 { | |
| 849 CHECK_STRING (name); | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4809
diff
changeset
|
850 /* #### FIXME! is Qfile_name right? */ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4953
diff
changeset
|
851 LISP_PATHNAME_CONVERT_OUT (name, fcname); |
| 3931 | 852 } |
| 853 return (build_fcapi_string (FcConfigFilename ((FcChar8 *) fcname))); | |
| 854 } | |
| 855 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
856 DEFUN ("fc-init-load-config", Ffc_init_load_config, 0, 0, 0, /* |
| 3931 | 857 -- Function: FcConfig *FcInitLoadConfig (void) |
| 858 Loads the default configuration file and returns the resulting | |
| 859 configuration. Does not load any font information. */ | |
| 860 ()) | |
| 861 { | |
| 862 return fc_config_create_using (&FcInitLoadConfig); | |
| 863 } | |
| 864 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
865 DEFUN ("fc-init-load-config-and-fonts", Ffc_init_load_config_and_fonts, 0, 0, 0, /* |
| 3931 | 866 -- Function: FcConfig *FcInitLoadConfigAndFonts (void) |
| 867 Loads the default configuration file and builds information about | |
| 868 the available fonts. Returns the resulting configuration. */ | |
| 869 ()) | |
| 870 { | |
| 871 return fc_config_create_using (&FcInitLoadConfigAndFonts); | |
| 872 } | |
| 873 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
874 DEFUN ("fc-config-get-current", Ffc_config_get_current, 0, 0, 0, /* |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
875 -- Function: FcConfig *FcConfigGetCurrent (void) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
876 Returns the current default configuration. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
877 ()) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
878 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
879 return fc_config_create_using (&FcConfigGetCurrent); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
880 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
881 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
882 /* Pattern manipulation functions. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
883 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
884 DEFUN ("fc-default-substitute", Ffc_default_substitute, 1, 1, 0, /* |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
885 Adds defaults for certain attributes if not specified in PATTERN. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
886 FcPattern PATTERN is modified in-place, and nil is returned. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
887 * Patterns without a specified style or weight are set to Medium |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
888 * Patterns without a specified style or slant are set to Roman |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
889 * Patterns without a specified pixel size are given one computed from any |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
890 specified point size (default 12), dpi (default 75) and scale (default 1). */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
891 (pattern)) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
892 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
893 CHECK_FC_PATTERN (pattern); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
894 FcDefaultSubstitute (XFC_PATTERN_PTR (pattern)); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
895 return Qnil; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
896 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
897 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
898 /* -- Function: FcBool FcConfigSubstituteWithPat (FcConfig *config, |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
899 FcPattern *p, FcPattern *p_pat FcMatchKind kind) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
900 OMITTED: use optional arguments in `fc-config-substitute'. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
901 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
902 DEFUN ("fc-config-substitute", Ffc_config_substitute, 1, 4, 0, /* |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
903 Modifies PATTERN according to KIND and TESTPAT using operations from CONFIG. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
904 PATTERN is modified in-place. Returns an undocumented Boolean value. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
905 If optional KIND is `fc-match-pattern', then those tagged as pattern operations |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
906 are applied, else if KIND is `fc-match-font', those tagged as font operations |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
907 are applied and TESTPAT is used for <test> elements with target=pattern. KIND |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
908 defaults to `fc-match-font'. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
909 If optional TESTPAT is nil, it is ignored. Otherwise it must be an FcPattern. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
910 Optional CONFIG must be an FcConfig, defaulting to the current one. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
911 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
912 Note that this function actually corresponds to FcConfigSubstituteWithPat, and |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
913 the argument order is changed to take advantage of Lisp optional arguments. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
914 (pattern, kind, testpat, config)) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
915 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
916 FcMatchKind knd; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
917 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
918 /* There ought to be a standard idiom for this.... */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
919 if (NILP (kind) |
| 4860 | 920 || EQ (kind, Qfc_match_font)) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
921 knd = FcMatchFont; |
| 4860 | 922 else if (EQ (kind, Qfc_match_pattern)) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
923 knd = FcMatchPattern; |
| 4860 | 924 else |
| 925 wtaerror ("need `fc-match-pattern' or `fc-match-font'", kind); | |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
926 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
927 /* Typecheck arguments */ |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
928 CHECK_FC_PATTERN (pattern); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
929 if (!NILP (testpat)) CHECK_FC_PATTERN (testpat); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
930 if (!NILP (config)) CHECK_FC_CONFIG (config); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
931 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
932 return (FcConfigSubstituteWithPat |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
933 (NILP (config) ? FcConfigGetCurrent () : XFC_CONFIG_PTR (config), |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
934 XFC_PATTERN_PTR (pattern), |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
935 NILP (testpat) ? NULL : XFC_PATTERN_PTR (testpat), |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
936 knd) == FcTrue) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
937 ? Qt : Qnil; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
938 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
939 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
940 /* Pattern matching functions. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
941 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
942 /* The following functions return fonts that match a certain pattern. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
943 `FcFontRenderPrepare' and `FcFontMatch' always return a single best |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
944 match. `FcFontList' returns the list of fonts that match a given |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
945 pattern on a certain set of properties. `FcFontSort' returns the |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
946 entire list of fonts, sorted in order of match quality, possibly |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
947 filtering out fonts that do not provide additional characters beyond |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
948 those provided by preferred fonts. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
949 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
950 DEFUN ("fc-font-render-prepare", Ffc_font_render_prepare, 2, 3, 0, /* |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
951 Return a new pattern blending PATTERN and FONT. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
952 Optional CONFIG is an FcConfig, defaulting to the current one. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
953 The returned pattern consists of elements of FONT not appearing in PATTERN, |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
954 elements of PATTERN not appearing in FONT, and the best matching value from |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
955 PATTERN for elements appearing in both. The result is passed to |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
956 FcConfigSubstitute with 'kind' FcMatchFont and then returned. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
957 (pattern, font, config)) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
958 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
959 if (NILP (config)) { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
960 config = Ffc_config_get_current (); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
961 } |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
962 CHECK_FC_PATTERN (pattern); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
963 CHECK_FC_PATTERN (font); |
|
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
964 CHECK_FC_CONFIG (config); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
965 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
966 /* I don't think this can fail? */ |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
967 return wrap_fc_pattern (FcFontRenderPrepare (XFC_CONFIG_PTR (config), |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
968 XFC_PATTERN_PTR (font), |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
969 XFC_PATTERN_PTR (pattern))); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
970 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
971 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
972 DEFUN ("fc-font-match", Ffc_font_match, 2, 3, 0, /* |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
973 Return the font on DEVICE that most closely matches PATTERN. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
974 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
975 DEVICE is an X11 device. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
976 PATTERN is a fontconfig pattern object. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
977 Optional CONFIG is an FcConfig, defaulting to the current one. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
978 Returns a fontconfig pattern object representing the closest match to the |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
979 given pattern, or an error code. Possible error codes are |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
980 `fc-result-no-match' and `fc-result-no-id'. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
981 PATTERN is massaged with FcConfigSubstitute and FcDefaultSubstitute before |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
982 being processed by FcFontMatch. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
983 (device, pattern, config)) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
984 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
985 FcResult res; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
986 struct fc_pattern *res_fcpat; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
987 FcPattern *p; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
988 FcConfig *fcc; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
989 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
990 CHECK_FC_PATTERN (pattern); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
991 if (NILP (device)) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
992 return Qnil; |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
993 CHECK_X_DEVICE (device); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
994 if (!DEVICE_LIVE_P (XDEVICE (device))) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
995 return Qnil; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
996 if (!NILP (config)) |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
997 CHECK_FC_CONFIG (config); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
998 |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
999 res_fcpat = XFC_PATTERN (ALLOC_NORMAL_LISP_OBJECT (fc_pattern)); |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1000 p = XFC_PATTERN_PTR (pattern); |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1001 fcc = NILP (config) ? FcConfigGetCurrent () : XFC_CONFIG_PTR (config); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1002 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1003 FcConfigSubstitute (fcc, p, FcMatchPattern); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1004 FcDefaultSubstitute (p); |
|
4809
0d3ccd5a2509
Initialize the result variable passed to FcFontMatch. See xemacs-patches
Jerry James <james@xemacs.org>
parents:
4799
diff
changeset
|
1005 res = FcResultMatch; |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1006 res_fcpat->fcpatPtr = FcFontMatch (fcc, p, &res); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1007 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1008 if (res_fcpat->fcpatPtr == NULL) |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1009 switch (res) |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1010 { |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1011 case FcResultNoMatch: |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1012 return Qfc_result_no_match; |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1013 case FcResultNoId: |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1014 return Qfc_result_no_id; |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1015 default: |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1016 return Qfc_internal_error; |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1017 } |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1018 else |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1019 return wrap_fc_pattern (res_fcpat); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1020 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1021 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1022 /* #### fix this name to correspond to Ben's new nomenclature */ |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1023 DEFUN ("fc-list-fonts-pattern-objects", Ffc_list_fonts_pattern_objects, |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1024 3, 3, 0, /* |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1025 Return a list of fonts on DEVICE that match PATTERN for PROPERTIES. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1026 Each font is represented by a fontconfig pattern object. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1027 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1028 DEVICE is an X11 device. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1029 PATTERN is a fontconfig pattern to be matched. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1030 PROPERTIES is a list of property names (strings) that should match. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1031 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1032 #### DEVICE is unused, ignored, and may be removed if it's not needed to |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1033 match other font-listing APIs. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1034 (UNUSED (device), pattern, properties)) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1035 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1036 FcObjectSet *os; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1037 FcFontSet *fontset; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1038 |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1039 CHECK_FC_PATTERN (pattern); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1040 CHECK_LIST (properties); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1041 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1042 os = FcObjectSetCreate (); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1043 string_list_to_fcobjectset (properties, os); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1044 /* #### why don't we need to do the "usual substitutions"? */ |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1045 fontset = FcFontList (NULL, XFC_PATTERN_PTR (pattern), os); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1046 FcObjectSetDestroy (os); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1047 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1048 return fontset_to_list (fontset, DestroyYes); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1049 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1050 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1051 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1052 /* #### maybe this can/should be folded into fc-list-fonts-pattern-objects? */ |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1053 DEFUN ("fc-font-sort", Ffc_font_sort, 2, 4, 0, /* |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1054 Return a list of all fonts sorted by proximity to PATTERN. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1055 Each font is represented by a fontconfig pattern object. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1056 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1057 DEVICE is an X11 device. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1058 PATTERN is a fontconfig pattern to be matched. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1059 Optional argument TRIM, if non-nil, means to trim trailing fonts that do not |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1060 contribute new characters to the union repertoire. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1061 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1062 #### Optional argument NOSUB, if non-nil, suppresses some of the usual |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1063 property substitutions. DON'T USE THIS in production code, it is intended |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1064 for exploring behavior of fontconfig and will be removed when this code is |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1065 stable. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1066 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1067 #### DEVICE is unused, ignored, and may be removed if it's not needed to |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1068 match other font-listing APIs. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1069 (UNUSED (device), pattern, trim, nosub)) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1070 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1071 CHECK_FC_PATTERN (pattern); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1072 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1073 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1074 FcConfig *fcc = FcConfigGetCurrent(); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1075 FcFontSet *fontset; |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1076 FcPattern *p = XFC_PATTERN_PTR (pattern); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1077 FcResult fcresult; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1078 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1079 if (NILP (nosub)) /* #### temporary debug hack */ |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1080 FcDefaultSubstitute (p); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1081 FcConfigSubstitute (fcc, p, FcMatchPattern); |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1082 fontset = FcFontSort (fcc, p, !NILP (trim), NULL, &fcresult); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1083 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1084 return fontset_to_list (fontset, DestroyYes); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1085 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1086 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1087 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1088 #ifdef FONTCONFIG_EXPOSE_CONFIG |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1089 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1090 /* Configuration routines --- for debugging |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1091 Don't depend on these routines being available in the future! |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1092 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1093 3.2.10 Initialization |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1094 --------------------- |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1095 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1096 An FcConfig object holds the internal representation of a configuration. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1097 There is a default configuration which applications may use by passing |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1098 0 to any function using the data within an FcConfig. |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1099 */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1100 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1101 static void |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1102 finalize_fc_config (Lisp_Object obj) |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1103 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1104 struct fc_config *p = XFC_CONFIG (obj); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1105 if (p->fccfgPtr && p->fccfgPtr != FcConfigGetCurrent()) |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1106 { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1107 /* If we get here, all of *our* references are garbage (see comment on |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1108 fc_config_create_using() for why), and the only reference that |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1109 fontconfig keeps is the current FcConfig. */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1110 FcConfigDestroy (p->fccfgPtr); |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1111 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1112 p->fccfgPtr = 0; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1113 } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1114 |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1115 static const struct memory_description fcconfig_description [] = { |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1116 /* #### nothing here, is this right?? */ |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1117 { XD_END } |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1118 }; |
|
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1119 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
1120 DEFINE_NODUMP_LISP_OBJECT ("fc-config", fc_config, |
|
5142
f965e31a35f0
reduce lcrecord headers to 2 words, rename printing_unreadable_object
Ben Wing <ben@xemacs.org>
parents:
5127
diff
changeset
|
1121 0, external_object_printer, finalize_fc_config, |
|
f965e31a35f0
reduce lcrecord headers to 2 words, rename printing_unreadable_object
Ben Wing <ben@xemacs.org>
parents:
5127
diff
changeset
|
1122 0, 0, fcconfig_description, |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4758
diff
changeset
|
1123 struct fc_config); |
|
4758
75975fd0b7fc
Implement more of the fontconfig API.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4757
diff
changeset
|
1124 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1125 DEFUN ("fc-init", Ffc_init, 0, 0, 0, /* |
| 3931 | 1126 -- Function: FcBool FcInit (void) |
| 1127 Loads the default configuration file and the fonts referenced | |
| 1128 therein and sets the default configuration to that result. | |
| 1129 Returns whether this process succeeded or not. If the default | |
| 1130 configuration has already been loaded, this routine does nothing | |
| 1131 and returns FcTrue. */ | |
| 1132 ()) | |
| 1133 { | |
| 1134 return (FcInit () == FcTrue) ? Qt : Qnil; | |
| 1135 } | |
| 1136 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1137 DEFUN ("fc-get-version", Ffc_get_version, 0, 0, 0, /* |
| 3931 | 1138 -- Function: int FcGetVersion (void) |
| 1139 Returns the version number of the library. | |
| 3935 | 1140 XEmacs: No, this should NOT return a pretty string. |
| 3931 | 1141 (let ((i (fc-get-version))) |
| 1142 (format "%d.%d.%d" (/ i 10000) (mod (/ i 100) 100) (mod i 100))) | |
| 3935 | 1143 gives the usual x.y.z format. This is the version of the .so. It can be |
| 1144 checked against `fc-version', which is the version of fontconfig.h. | |
| 1145 It's probably not a disaster if `(> (fc-get-version) fc-version)'. */ | |
| 3931 | 1146 ()) |
| 1147 { | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5438
diff
changeset
|
1148 return make_fixnum (FcGetVersion ()); |
| 3931 | 1149 } |
| 1150 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1151 DEFUN ("fc-init-reinitialize", Ffc_init_reinitialize, 0, 0, 0, /* |
| 3931 | 1152 -- Function: FcBool FcInitReinitialize (void) |
| 1153 Forces the default configuration file to be reloaded and resets | |
| 1154 the default configuration. */ | |
| 1155 ()) | |
| 1156 { | |
| 1157 return (FcInitReinitialize () == FcTrue) ? Qt : Qnil; | |
| 1158 } | |
| 1159 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1160 DEFUN ("fc-init-bring-up-to-date", Ffc_init_bring_up_to_date, 0, 0, 0, /* |
| 3931 | 1161 -- Function: FcBool FcInitBringUptoDate (void) |
| 1162 Checks the rescan interval in the default configuration, checking | |
| 1163 the configuration if the interval has passed and reloading the | |
| 1164 configuration when any changes are detected. */ | |
| 1165 ()) | |
| 1166 { | |
| 1167 return (FcInitBringUptoDate () == FcTrue) ? Qt : Qnil; | |
| 1168 } | |
| 1169 | |
| 1170 #endif /* FONTCONFIG_EXPOSE_CONFIG */ | |
| 1171 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1172 DEFUN ("xlfd-font-name-p", Fxlfd_font_name_p, 1, 1, 0, /* |
| 3354 | 1173 Check whether the string FONTNAME is a XLFD font name. */ |
| 1174 (fontname)) | |
| 1175 { | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1176 CHECK_STRING (fontname); |
| 3354 | 1177 /* #### should bind `case-fold-search' here? */ |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1178 return Fstring_match (Vxlfd_font_name_regexp, fontname, Qnil, Qnil); |
| 3354 | 1179 } |
| 1180 | |
| 1181 /* FcPatternPrint: there is no point in having wrappers fc-pattern-print, | |
| 1182 Ffc_pattern_print since this function prints to stdout. */ | |
| 1183 | |
| 1184 /* Initialization of font-mgr */ | |
| 1185 | |
| 1186 #define XE_XLFD_SEPARATOR "-" | |
| 1187 /* XLFD specifies ISO 8859-1 encoding, but we can't handle non-ASCII | |
| 1188 in Mule when this function is called. So use HPC. */ | |
| 1189 #if 0 | |
| 1190 #define XE_XLFD_PREFIX "\\(\\+[\040-\176\240-\377]*\\)?-" | |
| 1191 #define XE_XLFD_OPT_TEXT "\\([\040-\044\046-\176\240-\377]*\\)" | |
| 1192 #define XE_XLFD_TEXT "\\([\040-\044\046-\176\240-\377]+\\)" | |
| 1193 #else | |
| 1194 #define XE_XLFD_PREFIX "\\(\\+[\040-\176]*\\)?-" | |
| 1195 #define XE_XLFD_OPT_TEXT "\\([^-]*\\)" | |
| 1196 #define XE_XLFD_TEXT "\\([^-]+\\)" | |
| 1197 #endif | |
| 1198 | |
| 1199 #define XE_XLFD_SLANT "\\([0-9ior?*][iot]?\\)" | |
| 1200 #define XE_XLFD_SPACING "\\([cmp?*]\\)" | |
| 1201 /* Hyphen as minus conflicts with use as separator. */ | |
| 1202 #define XE_XLFD_OPT_NEGATE "~?" | |
| 1203 #define XE_XLFD_NUMBER "\\([0-9?*]+\\)" | |
| 1204 #define XE_XLFD_PSIZE "\\([0-9?*]+\\|\\[[ 0-9+~.e?*]+\\]\\)" | |
| 1205 | |
| 1206 /* Call this only from the init code | |
| 1207 #### This is really horrible, let's get rid of it, please. */ | |
| 1208 static Lisp_Object | |
| 1209 make_xlfd_font_regexp (void) | |
| 1210 { | |
| 1211 struct gcpro gcpro1; | |
| 1212 unsigned i; | |
| 1213 Lisp_Object reg = Qnil; | |
| 1214 const Extbyte *re[] = /* #### This could just be catenated by | |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
4932
diff
changeset
|
1215 cpp and passed to build_extstring. */ |
| 3354 | 1216 { |
| 1217 /* Regular expression matching XLFDs as defined by XLFD v. 1.5. | |
| 1218 Matches must be case-insensitive. | |
| 1219 PSIZE is a pixel or point size, which may be a "matrix". The | |
| 1220 syntax of a matrix is not checked, just some lexical properties. | |
| 1221 AFAICT none of the TEXT fields except adstyle is optional. | |
| 1222 | |
| 1223 NB. It should not be a problem if this matches "too much", since | |
| 1224 an "old" server will simply not be able to find a matching font. */ | |
| 1225 "\\`", | |
| 1226 XE_XLFD_PREFIX, /* prefix */ | |
| 1227 XE_XLFD_TEXT, /* foundry */ | |
| 1228 XE_XLFD_SEPARATOR, | |
| 1229 XE_XLFD_TEXT, /* family */ | |
| 1230 XE_XLFD_SEPARATOR, | |
| 1231 XE_XLFD_TEXT, /* weight */ | |
| 1232 XE_XLFD_SEPARATOR, | |
| 1233 XE_XLFD_SLANT, /* slant */ | |
| 1234 XE_XLFD_SEPARATOR, | |
| 1235 XE_XLFD_TEXT, /* swidth */ | |
| 1236 XE_XLFD_SEPARATOR, | |
| 1237 XE_XLFD_OPT_TEXT, /* adstyle */ | |
| 1238 XE_XLFD_SEPARATOR, | |
| 1239 XE_XLFD_PSIZE, /* pixelsize */ | |
| 1240 XE_XLFD_SEPARATOR, | |
| 1241 XE_XLFD_PSIZE, /* pointsize */ | |
| 1242 XE_XLFD_SEPARATOR, | |
| 1243 XE_XLFD_NUMBER, /* resx */ | |
| 1244 XE_XLFD_SEPARATOR, | |
| 1245 XE_XLFD_NUMBER, /* resy */ | |
| 1246 XE_XLFD_SEPARATOR, | |
| 1247 XE_XLFD_SPACING, /* spacing */ | |
| 1248 XE_XLFD_SEPARATOR, | |
| 1249 XE_XLFD_OPT_NEGATE, /* avgwidth */ | |
| 1250 XE_XLFD_NUMBER, | |
| 1251 XE_XLFD_SEPARATOR, | |
| 1252 XE_XLFD_TEXT, /* registry */ | |
| 1253 XE_XLFD_SEPARATOR, | |
| 1254 XE_XLFD_TEXT, /* encoding */ | |
| 1255 "\\'" | |
| 1256 }; | |
| 1257 | |
| 1258 GCPRO1 (reg); | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1259 for (i = 0; i < sizeof (re)/sizeof (Extbyte *); i++) |
| 3354 | 1260 { |
| 1261 /* #### Currently this is Host Portable Coding, not ISO 8859-1. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1262 reg = concat2 (reg, build_extstring (re[i], Qx_font_name_encoding)); |
| 3354 | 1263 } |
| 1264 | |
| 1265 RETURN_UNGCPRO (reg); | |
| 1266 } | |
| 1267 #undef XE_XLFD_SEPARATOR | |
| 1268 #undef XE_XLFD_PREFIX | |
| 1269 #undef XE_XLFD_OPT_TEXT | |
| 1270 #undef XE_XLFD_TEXT | |
| 1271 #undef XE_XLFD_OPT_SLANT | |
| 1272 #undef XE_XLFD_OPT_SPACING | |
| 1273 #undef XE_XLFD_OPT_NEGATE | |
| 1274 #undef XE_XLFD_NUMBER | |
| 1275 #undef XE_XLFD_PSIZE | |
| 1276 | |
| 1277 #define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ | |
| 1278 ? ((unsigned long) (x)) : ((unsigned long) (y))) | |
| 1279 | |
| 1280 static void | |
| 1281 string_list_to_fcobjectset (Lisp_Object list, FcObjectSet *os) | |
| 1282 { | |
| 1283 EXTERNAL_LIST_LOOP_2 (elt, list) | |
| 1284 { | |
| 3469 | 1285 const Extbyte *s; |
| 3354 | 1286 |
| 1287 CHECK_STRING (elt); | |
| 1288 s = fc_intern (elt); | |
| 1289 FcObjectSetAdd (os, s); | |
| 1290 } | |
| 1291 } | |
| 1292 | |
| 1293 void | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1294 syms_of_font_mgr (void) |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1295 { |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1296 INIT_LISP_OBJECT (fc_pattern); |
| 3354 | 1297 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1298 DEFSYMBOL_MULTIWORD_PREDICATE (Qfc_patternp); |
| 3354 | 1299 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1300 DEFSYMBOL (Qfc_result_type_mismatch); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1301 DEFSYMBOL (Qfc_result_no_match); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1302 DEFSYMBOL (Qfc_result_no_id); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1303 DEFSYMBOL (Qfc_internal_error); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1304 DEFSYMBOL (Qfc_match_pattern); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1305 DEFSYMBOL (Qfc_match_font); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1306 DEFSYMBOL (Qfont_mgr); |
| 3354 | 1307 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1308 DEFSUBR (Ffc_pattern_p); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1309 DEFSUBR (Ffc_pattern_create); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1310 DEFSUBR (Ffc_name_parse); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1311 DEFSUBR (Ffc_name_unparse); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1312 DEFSUBR (Ffc_pattern_duplicate); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1313 DEFSUBR (Ffc_pattern_add); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1314 DEFSUBR (Ffc_pattern_del); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1315 DEFSUBR (Ffc_pattern_get); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1316 DEFSUBR (Ffc_list_fonts_pattern_objects); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1317 DEFSUBR (Ffc_font_sort); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1318 DEFSUBR (Ffc_font_match); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1319 DEFSUBR (Ffc_default_substitute); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1320 DEFSUBR (Ffc_config_substitute); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1321 DEFSUBR (Ffc_font_render_prepare); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1322 DEFSUBR (Fxlfd_font_name_p); |
| 3931 | 1323 |
| 1324 #ifdef FONTCONFIG_EXPOSE_CONFIG | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1325 INIT_LISP_OBJECT (fc_config); |
| 3931 | 1326 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1327 DEFSYMBOL_MULTIWORD_PREDICATE (Qfc_configp); |
| 3931 | 1328 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1329 DEFSUBR (Ffc_config_p); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1330 DEFSUBR (Ffc_config_create); |
| 3931 | 1331 #if 0 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1332 DEFSUBR (Ffc_config_destroy); |
| 3931 | 1333 #endif |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1334 DEFSUBR (Ffc_config_set_current); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1335 DEFSUBR (Ffc_config_get_current); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1336 DEFSUBR (Ffc_config_up_to_date); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1337 DEFSUBR (Ffc_config_build_fonts); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1338 DEFSUBR (Ffc_config_get_config_dirs); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1339 DEFSUBR (Ffc_config_get_font_dirs); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1340 DEFSUBR (Ffc_config_get_config_files); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1341 DEFSUBR (Ffc_config_get_cache); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1342 DEFSUBR (Ffc_config_get_fonts); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1343 DEFSUBR (Ffc_config_get_blanks); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1344 DEFSUBR (Ffc_config_get_rescan_interval); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1345 DEFSUBR (Ffc_config_set_rescan_interval); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1346 DEFSUBR (Ffc_config_app_font_add_file); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1347 DEFSUBR (Ffc_config_app_font_add_dir); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1348 DEFSUBR (Ffc_config_app_font_clear); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1349 DEFSUBR (Ffc_config_filename); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1350 DEFSUBR (Ffc_init_load_config); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1351 DEFSUBR (Ffc_init_load_config_and_fonts); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1352 DEFSUBR (Ffc_init); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1353 DEFSUBR (Ffc_get_version); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1354 DEFSUBR (Ffc_init_reinitialize); |
|
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1355 DEFSUBR (Ffc_init_bring_up_to_date); |
| 3931 | 1356 #endif /* FONTCONFIG_EXPOSE_CONFIG */ |
| 3354 | 1357 } |
| 1358 | |
| 1359 void | |
| 1360 vars_of_font_mgr (void) | |
| 1361 { | |
| 3935 | 1362 /* #### The next two DEFVARs belong somewhere else. */ |
| 3354 | 1363 |
| 1364 /* #### I know, but the right fix is use the generic debug facility. */ | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1365 DEFVAR_INT ("debug-xft", &debug_xft /* |
| 3354 | 1366 Level of debugging messages to issue to stderr for Xft. |
| 1367 A nonnegative integer. Set to 0 to suppress all warnings. | |
| 1368 Default is 1 to ensure a minimum of debugging output at initialization. | |
| 1369 Higher levels give even more information. | |
| 1370 */ ); | |
|
4757
a23ac8f90a49
Improve warning and error messages from Xft.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4328
diff
changeset
|
1371 debug_xft = 0; |
| 3354 | 1372 |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1373 DEFVAR_CONST_INT ("xft-version", &xft_version /* |
| 3354 | 1374 The major version number of the Xft library being used. |
| 1375 */ ); | |
| 3935 | 1376 xft_version = XFT_VERSION; |
| 1377 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1378 DEFVAR_CONST_INT ("fc-version", &fc_version /* |
| 3935 | 1379 The version number of fontconfig.h. It can be checked against |
| 1380 `(fc-get-version)', which is the version of the .so. | |
| 1381 It's probably not a disaster if `(> (fc-get-version) fc-version)'. | |
| 1382 */ ); | |
| 1383 fc_version = FC_VERSION; | |
| 3354 | 1384 |
| 3360 | 1385 Fprovide (intern ("font-mgr")); |
| 3354 | 1386 } |
| 1387 | |
| 1388 void | |
| 1389 complex_vars_of_font_mgr (void) | |
| 1390 { | |
| 3931 | 1391 #ifdef FONTCONFIG_EXPOSE_CONFIG |
| 1392 Vfc_config_weak_list = make_weak_list (WEAK_LIST_SIMPLE); | |
| 1393 staticpro (&Vfc_config_weak_list); | |
| 1394 #endif | |
| 1395 | |
|
5189
b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
Ben Wing <ben@xemacs.org>
parents:
5178
diff
changeset
|
1396 DEFVAR_LISP ("xft-xlfd-font-regexp", &Vxlfd_font_name_regexp /* |
|
5763
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
1397 The regular expression used to match XLFD font names. |
|
23dc211f4d2f
Make fc-name-parse signal on invalid-argument.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5736
diff
changeset
|
1398 */ ); |
| 3354 | 1399 Vxlfd_font_name_regexp = make_xlfd_font_regexp(); |
| 1400 } | |
| 1401 | |
| 1402 void | |
| 1403 reinit_vars_of_font_mgr (void) | |
| 1404 { | |
| 1405 int i, size = (int) countof (fc_standard_properties); | |
| 1406 | |
| 1407 FcInit (); | |
| 1408 | |
| 1409 fc_property_name_hash_table = make_string_hash_table (size); | |
| 1410 for (i = 0; i < size; ++i) | |
| 1411 puthash (fc_standard_properties[i], NULL, fc_property_name_hash_table); | |
| 1412 } | |
| 1413 |