FSWrap.c revision 258a0ebe 
1
2/*
3 * Copyright 1991 by the Open Software Foundation
4 * Copyright 1993 by the TOSHIBA Corp.
5 *
6 * Permission to use, copy, modify, distribute, and sell this software and its
7 * documentation for any purpose is hereby granted without fee, provided that
8 * the above copyright notice appear in all copies and that both that
9 * copyright notice and this permission notice appear in supporting
10 * documentation, and that the name Open Software Foundation
11 * not be used in advertising or publicity pertaining to distribution of the
12 * software without specific, written prior permission.  Open Software
13 * Foundation makes no representations about the suitability of this
14 * software for any purpose.  It is provided "as is" without express or
15 * implied warranty.
16 *
17 * OPEN SOFTWARE FOUNDATION DISCLAIMS ALL WARRANTIES WITH REGARD TO
18 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
19 * FITNESS, IN NO EVENT SHALL OPEN SOFTWARE FOUNDATIONN BE
20 * LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
21 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
22 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
23 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
24 *
25 *		 M. Collins		OSF
26 *
27 *		 Katsuhisa Yano		TOSHIBA Corp.
28 */
29
30/*
31
32Copyright 1991, 1998  The Open Group
33
34Permission to use, copy, modify, distribute, and sell this software and its
35documentation for any purpose is hereby granted without fee, provided that
36the above copyright notice appear in all copies and that both that
37copyright notice and this permission notice appear in supporting
38documentation.
39
40The above copyright notice and this permission notice shall be included
41in all copies or substantial portions of the Software.
42
43THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
44OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
45MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
46IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
47OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
48ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
49OTHER DEALINGS IN THE SOFTWARE.
50
51Except as contained in this notice, the name of The Open Group shall
52not be used in advertising or otherwise to promote the sale, use or
53other dealings in this Software without prior written authorization
54from The Open Group.
55
56*/
57
58
59#ifdef HAVE_CONFIG_H
60#include <config.h>
61#endif
62#include "Xlibint.h"
63#include "Xlcint.h"
64#include <ctype.h>
65#include <X11/Xos.h>
66#include "reallocarray.h"
67
68
69#define	XMAXLIST	256
70
71char **
72_XParseBaseFontNameList(
73    char           *str,
74    int            *num)
75{
76    char           *plist[XMAXLIST];
77    char          **list;
78    char           *ptr, *psave;
79
80    *num = 0;
81    if (!str || !*str) {
82	return (char **)NULL;
83    }
84    while (*str && isspace(*str))
85	str++;
86    if (!*str)
87	return (char **)NULL;
88
89    if (!(ptr = strdup(str))) {
90	return (char **)NULL;
91    }
92
93    psave = ptr;
94    /* somebody who specifies more than XMAXLIST basefontnames will lose */
95    while (*num < (sizeof plist / sizeof plist[0])) {
96	char	*back;
97
98	plist[*num] = ptr;
99	if ((ptr = strchr(ptr, ','))) {
100	    back = ptr;
101	} else {
102	    back = plist[*num] + strlen(plist[*num]);
103	}
104	while (isspace(*(back - 1)))
105	    back--;
106	*back = '\0';
107	(*num)++;
108	if (!ptr)
109	    break;
110	ptr++;
111	while (*ptr && isspace(*ptr))
112	    ptr++;
113	if (!*ptr)
114	    break;
115    }
116    if (!(list = Xmallocarray((*num + 1), sizeof(char *)))) {
117	Xfree(psave);
118	return (char **)NULL;
119    }
120    memcpy((char *)list, (char *)plist, sizeof(char *) * (*num));
121    *(list + *num) = NULL;
122
123    return list;
124}
125
126static char **
127copy_string_list(
128    char **string_list,
129    int list_count)
130{
131    char **string_list_ret, **list_src, **list_dst, *dst;
132    int length, count;
133
134    if (string_list == NULL || list_count <= 0)
135	return (char **) NULL;
136
137    string_list_ret = Xmallocarray(list_count, sizeof(char *));
138    if (string_list_ret == NULL)
139	return (char **) NULL;
140
141    list_src = string_list;
142    count = list_count;
143    for (length = 0; count-- > 0; list_src++)
144	length += strlen(*list_src) + 1;
145
146    dst = Xmalloc(length);
147    if (dst == NULL) {
148	Xfree(string_list_ret);
149	return (char **) NULL;
150    }
151
152    list_src = string_list;
153    count = list_count;
154    list_dst = string_list_ret;
155    for ( ;  count-- > 0; list_src++) {
156	strcpy(dst, *list_src);
157	*list_dst++ = dst;
158	dst += strlen(dst) + 1;
159    }
160
161    return string_list_ret;
162}
163
164XFontSet
165XCreateFontSet (
166    Display        *dpy,
167    _Xconst char   *base_font_name_list,
168    char         ***missing_charset_list,
169    int            *missing_charset_count,
170    char          **def_string)
171{
172    XOM om;
173    XOC oc;
174    XOMCharSetList *list;
175
176    *missing_charset_list = NULL;
177    *missing_charset_count = 0;
178
179    om = XOpenOM(dpy, NULL, NULL, NULL);
180    if (om == NULL)
181	return (XFontSet) NULL;
182
183    if ((oc = XCreateOC(om, XNBaseFontName, base_font_name_list, NULL))) {
184	list = &oc->core.missing_list;
185	oc->core.om_automatic = True;
186    } else
187	list = &om->core.required_charset;
188
189    *missing_charset_list = copy_string_list(list->charset_list,
190					     list->charset_count);
191    *missing_charset_count = list->charset_count;
192
193    if (list->charset_list && *missing_charset_list == NULL)
194	oc = NULL;
195
196    if (oc && def_string) {
197	*def_string = oc->core.default_string;
198	if (!*def_string)
199	    *def_string = (char *)"";
200    }
201
202    if (oc == NULL)
203	XCloseOM(om);
204
205    return (XFontSet) oc;
206}
207
208int
209XFontsOfFontSet(
210    XFontSet        font_set,
211    XFontStruct  ***font_struct_list,
212    char         ***font_name_list)
213{
214    *font_name_list   = font_set->core.font_info.font_name_list;
215    *font_struct_list = font_set->core.font_info.font_struct_list;
216    return font_set->core.font_info.num_font;
217}
218
219char *
220XBaseFontNameListOfFontSet(XFontSet font_set)
221{
222    return font_set->core.base_name_list;
223}
224
225char *
226XLocaleOfFontSet(XFontSet font_set)
227{
228    return font_set->core.om->core.lcd->core->name;
229}
230
231Bool
232XContextDependentDrawing(XFontSet font_set)
233{
234    return font_set->core.om->core.context_dependent;
235}
236
237Bool
238XDirectionalDependentDrawing(XFontSet font_set)
239{
240    return font_set->core.om->core.directional_dependent;
241}
242
243Bool
244XContextualDrawing(XFontSet font_set)
245{
246    return font_set->core.om->core.contextual_drawing;
247}
248
249XFontSetExtents *
250XExtentsOfFontSet(XFontSet font_set)
251{
252    if (!font_set)
253	return NULL;
254    return &font_set->core.font_set_extents;
255}
256
257void
258XFreeFontSet(
259    Display        *dpy,
260    XFontSet        font_set)
261{
262    XCloseOM(font_set->core.om);
263}
264