1
2/*
3 * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
4 * 	All Rights Reserved
5 *
6 * This file is a component of an X Window System-specific implementation
7 * of Xcms based on the TekColor Color Management System.  Permission is
8 * hereby granted to use, copy, modify, sell, and otherwise distribute this
9 * software and its documentation for any purpose and without fee, provided
10 * that this copyright, permission, and disclaimer notice is reproduced in
11 * all copies of this software and in supporting documentation.  TekColor
12 * is a trademark of Tektronix, Inc.
13 *
14 * Tektronix makes no representation about the suitability of this software
15 * for any purpose.  It is provided "as is" and with all faults.
16 *
17 * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
18 * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
19 * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
20 * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
21 * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
22 * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
23 * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
24 *
25 *
26 *	NAME
27 *		XcmsAlNCol.c
28 *
29 *	DESCRIPTION
30 *		Source for XcmsAllocNamedColor
31 *
32 *
33 */
34
35#ifdef HAVE_CONFIG_H
36#include <config.h>
37#endif
38#include <stdio.h>
39#include "Xlibint.h"
40#include "Xcmsint.h"
41#include "Cv.h"
42
43
44/*
45 *	NAME
46 *		XcmsAllocNamedColor -
47 *
48 *	SYNOPSIS
49 */
50Status
51XcmsAllocNamedColor (
52    Display *dpy,
53    Colormap cmap,
54    _Xconst char *colorname,
55    XcmsColor *pColor_scrn_return,
56    XcmsColor *pColor_exact_return,
57    XcmsColorFormat result_format)
58/*
59 *	DESCRIPTION
60 *		Finds the color specification associated with the color
61 *		name in the Device-Independent Color Name Database, then
62 *		converts that color specification to an RGB format.  This
63 *		RGB value is then used in a call to XAllocColor to allocate
64 *		a read-only color cell.
65 *
66 *	RETURNS
67 *		0 if failed to parse string or find any entry in the database.
68 *		1 if succeeded in converting color name to XcmsColor.
69 *		2 if succeeded in converting color name to another color name.
70 *
71 */
72{
73    long nbytes;
74    xAllocNamedColorReply rep;
75    xAllocNamedColorReq *req;
76    XColor hard_def;
77    XColor exact_def;
78    Status retval1 = 1;
79    Status retval2 = XcmsSuccess;
80    XcmsColor tmpColor;
81    XColor XColor_in_out;
82    XcmsCCC ccc;
83
84    /*
85     * 0. Check for invalid arguments.
86     */
87    if (dpy == NULL || colorname[0] == '\0' || pColor_scrn_return == 0
88	    || pColor_exact_return == NULL) {
89	return(XcmsFailure);
90    }
91
92    if ((ccc = XcmsCCCOfColormap(dpy, cmap)) == (XcmsCCC)NULL) {
93	return(XcmsFailure);
94    }
95
96    /*
97     * 1. Convert string to a XcmsColor using Xcms and i18n mechanism
98     */
99    if ((retval1 = _XcmsResolveColorString(ccc, &colorname,
100	    &tmpColor, result_format)) == XcmsFailure) {
101	return(XcmsFailure);
102    }
103    if (retval1 == _XCMS_NEWNAME) {
104	goto PassToServer;
105    }
106    memcpy((char *)pColor_exact_return, (char *)&tmpColor, sizeof(XcmsColor));
107
108    /*
109     * 2. Convert tmpColor to RGB
110     *	Assume pColor_exact_return is now adjusted to Client White Point
111     */
112    if ((retval2 = XcmsConvertColors(ccc, &tmpColor,
113	    1, XcmsRGBFormat, (Bool *) NULL)) == XcmsFailure) {
114	return(XcmsFailure);
115    }
116
117    /*
118     * 3. Convert to XColor and call XAllocColor
119     */
120    _XcmsRGB_to_XColor(&tmpColor, &XColor_in_out, 1);
121    if (XAllocColor(ccc->dpy, cmap, &XColor_in_out) == 0) {
122	return(XcmsFailure);
123    }
124
125    /*
126     * 4. pColor_scrn_return
127     *
128     * Now convert to the target format.
129     *    We can ignore the return value because we're already in a
130     *    device-dependent format.
131     */
132    _XColor_to_XcmsRGB(ccc, &XColor_in_out, pColor_scrn_return, 1);
133    if (result_format != XcmsRGBFormat) {
134	if (result_format == XcmsUndefinedFormat) {
135	    result_format = pColor_exact_return->format;
136	}
137	if (XcmsConvertColors(ccc, pColor_scrn_return, 1, result_format,
138		(Bool *) NULL) == XcmsFailure) {
139	    return(XcmsFailure);
140	}
141    }
142
143    return(retval1 > retval2 ? retval1 : retval2);
144
145PassToServer:
146    /*
147     * All previous methods failed, so lets pass it to the server
148     * for parsing.
149     */
150    dpy = ccc->dpy;
151    LockDisplay(dpy);
152    GetReq(AllocNamedColor, req);
153
154    req->cmap = cmap;
155    nbytes = req->nbytes = (CARD16) strlen(colorname);
156    req->length += (nbytes + 3) >> 2; /* round up to mult of 4 */
157
158    _XSend(dpy, colorname, nbytes);
159       /* _XSend is more efficient that Data, since _XReply follows */
160
161    if (!_XReply (dpy, (xReply *) &rep, 0, xTrue)) {
162	UnlockDisplay(dpy);
163        SyncHandle();
164        return (0);
165    }
166
167    exact_def.red = rep.exactRed;
168    exact_def.green = rep.exactGreen;
169    exact_def.blue = rep.exactBlue;
170
171    hard_def.red = rep.screenRed;
172    hard_def.green = rep.screenGreen;
173    hard_def.blue = rep.screenBlue;
174
175    exact_def.pixel = hard_def.pixel = rep.pixel;
176
177    UnlockDisplay(dpy);
178    SyncHandle();
179
180    /*
181     * Now convert to the target format.
182     */
183    _XColor_to_XcmsRGB(ccc, &exact_def, pColor_exact_return, 1);
184    _XColor_to_XcmsRGB(ccc, &hard_def, pColor_scrn_return, 1);
185    if (result_format != XcmsRGBFormat
186	    && result_format != XcmsUndefinedFormat) {
187	if (XcmsConvertColors(ccc, pColor_exact_return, 1, result_format,
188		(Bool *) NULL) == XcmsFailure) {
189	    return(XcmsFailure);
190	}
191	if (XcmsConvertColors(ccc, pColor_scrn_return, 1, result_format,
192		(Bool *) NULL) == XcmsFailure) {
193	    return(XcmsFailure);
194	}
195    }
196
197    return(XcmsSuccess);
198}
199