4.4BSD/usr/src/contrib/X11R5-lib/lib/X/XcmsColNm.c
/* $XConsortium: XcmsColNm.c,v 1.25 92/03/03 12:16:07 rws Exp $" */
/*
* Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
* All Rights Reserved
*
* This file is a component of an X Window System-specific implementation
* of Xcms based on the TekColor Color Management System. Permission is
* hereby granted to use, copy, modify, sell, and otherwise distribute this
* software and its documentation for any purpose and without fee, provided
* that this copyright, permission, and disclaimer notice is reproduced in
* all copies of this software and in supporting documentation. TekColor
* is a trademark of Tektronix, Inc.
*
* Tektronix makes no representation about the suitability of this software
* for any purpose. It is provided "as is" and with all faults.
*
* TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
* INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
* PARTICULAR PURPOSE. IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
* SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
* RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
* CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
* CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
*
* NAME
* XcmsColNm.c
*
* DESCRIPTION
* Source for _XcmsLookupColorName().
*
*
*/
#include "Xlibint.h"
#include "Xcmsint.h"
#include <X11/Xos.h>
#include <sys/stat.h>
#include <stdio.h>
#include <ctype.h>
#define XK_LATIN1
#include <X11/keysymdef.h>
/*
* EXTERNS
* External declarations required locally to this package
* that are not already declared in any of the included header
* files (external includes or internal includes).
*/
#ifdef X_NOT_STDC_ENV
extern char *getenv();
extern void qsort();
extern char *bsearch();
#endif
extern XcmsColorSpace **_XcmsDIColorSpaces;
static Status LoadColornameDB();
void _XcmsCopyISOLatin1Lowered();
/*
* LOCAL DEFINES
* #define declarations local to this package.
*/
#ifndef XCMSDB
#define XCMSDB "/usr/lib/X11/Xcms.txt"
#endif
#ifndef isgraph
# define isgraph(c) (isprint((c)) && !isspace((c)))
#endif
#ifndef XCMSDB_MAXLINELEN
# define XCMSDB_MAXLINELEN 256
#endif
#define FORMAT_VERSION "0.1"
#define START_TOKEN "XCMS_COLORDB_START"
#define END_TOKEN "XCMS_COLORDB_END"
#define DELIM_CHAR '\t'
#define NOT_VISITED 0x0
#define VISITED 0x1
#define CYCLE 0xFFFF
#define XcmsDbInitNone -1
#define XcmsDbInitFailure 0
#define XcmsDbInitSuccess 1
/*
* LOCAL TYPEDEFS
*/
typedef struct _XcmsPair {
char *first;
char *second;
int flag;
} XcmsPair;
/*
* LOCAL VARIABLES
*/
static int XcmsColorDbState = XcmsDbInitNone;
static int nEntries;
static char *strings;
static XcmsPair *pairs;
static char whitePtStr[] = "WhitePoint";
/************************************************************************
* *
* PRIVATE ROUTINES *
* *
************************************************************************/
/*
* NAME
* _XcmsColorSpaceOfString
*
* SYNOPSIS
*/
static XcmsColorSpace *
_XcmsColorSpaceOfString(ccc, color_string)
XcmsCCC ccc;
char *color_string;
/*
* DESCRIPTION
* Returns a pointer to the color space structure
* (XcmsColorSpace) associated with the specified color string.
*
* RETURNS
* Pointer to matching XcmsColorSpace structure if found;
* otherwise NULL.
*
* CAVEATS
*
*/
{
XcmsColorSpace **papColorSpaces;
int n;
char *pchar;
if ((pchar = strchr(color_string, ':')) == NULL) {
return(XcmsFailure);
}
n = (int)(pchar - color_string);
if (ccc == NULL) {
return(NULL);
}
/*
* First try Device-Independent color spaces
*/
papColorSpaces = _XcmsDIColorSpaces;
if (papColorSpaces != NULL) {
while (*papColorSpaces != NULL) {
if (strncmp((*papColorSpaces)->prefix, color_string, n) == 0 &&
!((*papColorSpaces)->prefix)[n]) {
return(*papColorSpaces);
}
papColorSpaces++;
}
}
/*
* Next try Device-Dependent color spaces
*/
papColorSpaces = ((XcmsFunctionSet *)ccc->pPerScrnInfo->functionSet)->DDColorSpaces;
if (papColorSpaces != NULL) {
while (*papColorSpaces != NULL) {
if (strncmp((*papColorSpaces)->prefix, color_string, n) == 0 &&
!((*papColorSpaces)->prefix)[n]) {
return(*papColorSpaces);
}
papColorSpaces++;
}
}
return(NULL);
}
/*
* NAME
* _XcmsParseColorString
*
* SYNOPSIS
*/
static int
_XcmsParseColorString(ccc, color_string, pColor)
XcmsCCC ccc;
char *color_string;
XcmsColor *pColor;
/*
* DESCRIPTION
* Assuming color_string contains a numerical string color
* specification, attempts to parse a string into an
* XcmsColor structure.
*
* RETURNS
* 0 if failed; otherwise non-zero.
*
* CAVEATS
* A color string containing a numerical color specification
* must be in ISO Latin-1 encoding!
*/
{
XcmsColorSpace *pColorSpace;
char string_buf[64];
char *string_lowered;
int len;
int res;
if (ccc == NULL) {
return(0);
}
/*
* While copying color_string to string_lowered, convert to lowercase
*/
if ((len = strlen(color_string)) >= sizeof(string_buf)) {
string_lowered = (char *) Xmalloc(len+1);
} else {
string_lowered = string_buf;
}
_XcmsCopyISOLatin1Lowered(string_lowered, color_string);
if (*string_lowered == '#') {
if ((pColorSpace = _XcmsColorSpaceOfString(ccc, "rgb:")) != NULL) {
res = (*pColorSpace->parseString)(string_lowered, pColor);
if (len >= sizeof(string_buf)) Xfree(string_lowered);
return res;
}
}
if ((pColorSpace = _XcmsColorSpaceOfString(ccc, string_lowered)) != NULL) {
res = (*pColorSpace->parseString)(string_lowered, pColor);
if (len >= sizeof(string_buf)) Xfree(string_lowered);
return res;
}
if (len >= sizeof(string_buf)) Xfree(string_lowered);
return(0);
}
/*
* NAME
* FirstCmp - Compare color names of pair recs
*
* SYNOPSIS
*/
static int
FirstCmp(p1, p2)
#if __STDC__
const void *p1, *p2;
#else
XcmsPair *p1, *p2;
#endif
/*
* DESCRIPTION
* Compares the color names of XcmsColorTuples.
* This routine is public to allow access from qsort???.
*
* RETURNS
* 0 if equal;
* < 0 if first precedes second,
* > 0 if first succeeds second.
*
*/
{
return(strcmp(((XcmsPair *)p1)->first, ((XcmsPair *)p2)->first));
}
/*
* NAME
* stringSectionSize - determine memory needed for strings
*
* SYNOPSIS
*/
static void
SetNoVisit()
/*
* DESCRIPTION
*
* RETURNS
* void
*
*/
{
int i;
XcmsPair *pair = pairs;
for (i = 0; i < nEntries; i++, pair++) {
if (pair->flag != CYCLE) {
pair->flag = NOT_VISITED;
}
}
}
/*
* NAME
* field2 - extract two fields
*
* SYNOPSIS
*/
static int
field2(pBuf, delim, p1, p2)
char *pBuf;
char delim; /* in: field delimiter */
char **p1; /* in/out: pointer to pointer to field 1 */
char **p2; /* in/out: pointer to pointer to field 2 */
/*
* DESCRIPTION
* Extracts two fields from a "record".
*
* RETURNS
* XcmsSuccess if succeeded, otherwise XcmsFailure.
*
*/
{
*p1 = *p2 = NULL;
/* Find Field 1 */
while (!isgraph(*pBuf)) {
if ((*pBuf != '\n') || (*pBuf != '\0')) {
return(XcmsFailure);
}
if (isspace(*pBuf) || (*pBuf == delim)) {
pBuf++;
}
}
*p1 = pBuf;
/* Find end of Field 2 */
while (isprint(*pBuf) && (*pBuf != delim)) {
pBuf++;
}
if ((*pBuf == '\n') || (*pBuf == '\0')) {
return(XcmsFailure);
}
if ((*pBuf == ' ') || (*pBuf == delim)) {
*pBuf++ = '\0'; /* stuff end of string character */
} else {
return(XcmsFailure);
}
/* Find Field 2 */
while (!isgraph(*pBuf)) {
if ((*pBuf == '\n') || (*pBuf == '\0')) {
return(XcmsFailure);
}
if (isspace(*pBuf) || (*pBuf == delim)) {
pBuf++;
}
}
*p2 = pBuf;
/* Find end of Field 2 */
while (isprint(*pBuf) && (*pBuf != delim)) {
pBuf++;
}
if (*pBuf != '\0') {
*pBuf = '\0'; /* stuff end of string character */
}
return(XcmsSuccess);
}
/*
* NAME
* _XcmsLookupColorName - Lookup DB entry for a color name
*
* SYNOPSIS
*/
static Status
_XcmsLookupColorName(ccc, name, pColor)
XcmsCCC ccc;
char **name;
XcmsColor *pColor;
/*
* DESCRIPTION
* Searches for an entry in the Device-Independent Color Name
* Database for the specified string.
*
* RETURNS
* XcmsFailure if failed to find a matching entry in
* the database.
* XcmsSuccess if succeeded in converting color name to
* XcmsColor.
* _XCMS_NEWNAME if succeeded in converting color string (which
* is a color name to yet another color name. Note
* that the new name is passed back via 'name'.
*/
{
Status retval = 0;
char name_lowered_64[64];
char *name_lowered;
register int i, j, left, right;
int len;
char *tmpName;
XcmsPair *pair;
/*
* Check state of Database:
* XcmsDbInitNone
* XcmsDbInitSuccess
* XcmsDbInitFailure
*/
if (XcmsColorDbState == XcmsDbInitFailure) {
return(XcmsFailure);
}
if (XcmsColorDbState == XcmsDbInitNone) {
if (!LoadColornameDB()) {
return(XcmsFailure);
}
}
SetNoVisit();
/*
* While copying name to name_lowered, convert to lowercase
*/
tmpName = *name;
Retry:
if ((len = strlen(tmpName)) > 63) {
name_lowered = (char *) Xmalloc(len+1);
} else {
name_lowered = name_lowered_64;
}
_XcmsCopyISOLatin1Lowered(name_lowered, tmpName);
/*
* Now, remove spaces.
*/
for (i = 0, j = 0; i < len; j++) {
if (!isspace(name_lowered[j])) {
name_lowered[i++] = name_lowered[j];
}
}
name_lowered[i] = '\0';
left = 0;
right = nEntries - 1;
while (left <= right) {
i = (left + right) >> 1;
pair = &pairs[i];
j = strcmp(name_lowered, pair->first);
if (j < 0)
right = i - 1;
else if (j > 0)
left = i + 1;
else {
break;
}
}
if (len > 63) Xfree(name_lowered);
if (left > right) {
if (retval == 2) {
if (*name != tmpName) {
*name = tmpName;
}
return(_XCMS_NEWNAME);
}
return(XcmsFailure);
}
if (pair->flag == CYCLE) {
return(XcmsFailure);
}
if (pair->flag == VISITED) {
pair->flag = CYCLE;
return(XcmsFailure);
}
if (_XcmsParseColorString(ccc, pair->second, pColor) == XcmsSuccess) {
/* f2 contains a numerical string specification */
return(XcmsSuccess);
} else {
/* f2 does not contain a numerical string specification */
tmpName = pair->second;
pair->flag = VISITED;
retval = 2;
goto Retry;
}
}
/*
* NAME
* RemoveSpaces
*
* SYNOPSIS
*/
static int
RemoveSpaces(pString)
char *pString;
/*
* DESCRIPTION
* Removes spaces from string.
*
* RETURNS
* Void
*
*/
{
int i, count = 0;
char *cptr;
/* REMOVE SPACES */
cptr = pString;
for (i = strlen(pString); i; i--, cptr++) {
if (!isspace(*cptr)) {
*pString++ = *cptr;
count++;
}
}
*pString = '\0';
return(count);
}
/*
* NAME
* stringSectionSize - determine memory needed for strings
*
* SYNOPSIS
*/
static int
stringSectionSize(stream, pNumEntries, pSectionSize)
FILE *stream;
int *pNumEntries;
int *pSectionSize;
/*
* DESCRIPTION
* Determines the amount of memory required to store the
* color name strings and also the number of strings.
*
* RETURNS
* XcmsSuccess if succeeded, otherwise XcmsFailure.
*
*/
{
char buf[XCMSDB_MAXLINELEN];
char token[XCMSDB_MAXLINELEN];
char token2[XCMSDB_MAXLINELEN];
char *pBuf;
char *f1;
char *f2;
int i;
*pNumEntries = 0;
*pSectionSize = 0;
/*
* Advance to START_TOKEN
* Anything before is just considered as comments.
*/
while((pBuf = fgets(buf, XCMSDB_MAXLINELEN, stream)) != NULL) {
if ((sscanf(buf, "%s %s", token, token2))
&& (strcmp(token, START_TOKEN) == 0)) {
if (strcmp(token2, FORMAT_VERSION) != 0) {
/* text file not in the right format */
return(XcmsFailure);
}
break;
} /* else it was just a blank line or comment */
}
if (pBuf == NULL) {
return(XcmsFailure);
}
while((pBuf = fgets(buf, XCMSDB_MAXLINELEN, stream)) != NULL) {
if ((sscanf(buf, "%s", token)) && (strcmp(token, END_TOKEN) == 0)) {
break;
}
if (field2(buf, DELIM_CHAR, &f1, &f2) != XcmsSuccess) {
return(XcmsFailure);
}
(*pNumEntries)++;
(*pSectionSize) += (i = strlen(f1)) + 1;
for (; i; i--, f1++) {
/* REMOVE SPACES FROM COUNT */
if (isspace(*f1)) {
(*pSectionSize)--;
}
}
(*pSectionSize) += (i = strlen(f2)) + 1;
for (; i; i--, f2++) {
/* REMOVE SPACES FROM COUNT */
if (isspace(*f2)) {
(*pSectionSize)--;
}
}
}
return(XcmsSuccess);
}
/*
* NAME
* ReadColornameDB - Read the Color Name Database
*
* SYNOPSIS
*/
static Status
ReadColornameDB(stream, pRec, pString)
FILE *stream;
XcmsPair *pRec;
char *pString;
/*
* DESCRIPTION
* Loads the Color Name Database from a text file.
*
* RETURNS
* XcmsSuccess if succeeded, otherwise XcmsFailure.
*
*/
{
char buf[XCMSDB_MAXLINELEN];
char token[XCMSDB_MAXLINELEN];
char token2[XCMSDB_MAXLINELEN];
char *f1;
char *f2;
char *pBuf;
/*
* Advance to START_TOKEN
* Anything before is just considered as comments.
*/
while((pBuf = fgets(buf, XCMSDB_MAXLINELEN, stream)) != NULL) {
if ((sscanf(buf, "%s %s", token, token2))
&& (strcmp(token, START_TOKEN) == 0)) {
if (strcmp(token2, FORMAT_VERSION) != 0) {
/* text file not in the right format */
return(XcmsFailure);
}
break;
} /* else it was just a blank line or comment */
}
if (pBuf == NULL) {
return(XcmsFailure);
}
/*
* Process lines between START_TOKEN to END_TOKEN
*/
while ((pBuf = fgets(buf, XCMSDB_MAXLINELEN, stream)) != NULL) {
if ((sscanf(buf, "%s", token)) && (strcmp(token, END_TOKEN) == 0)) {
/*
* Found END_TOKEN so break out of for loop
*/
break;
}
/*
* Get pairs
*/
if (field2(buf, DELIM_CHAR, &f1, &f2) != XcmsSuccess) {
/* Invalid line */
continue;
}
/*
* Add strings
*/
/* Left String */
pRec->first = pString;
_XcmsCopyISOLatin1Lowered(pString, f1);
pString += (1 + RemoveSpaces(pString));
pRec->second = pString;
/* Right String */
_XcmsCopyISOLatin1Lowered(pString, f2);
pString += RemoveSpaces(pString) + 1;
pRec++;
}
return(XcmsSuccess);
}
/*
* NAME
* LoadColornameDB - Load the Color Name Database
*
* SYNOPSIS
*/
static Status
LoadColornameDB()
/*
* DESCRIPTION
* Loads the Color Name Database from a text file.
*
* RETURNS
* XcmsSuccess if succeeded, otherwise XcmsFailure.
*
*/
{
int size;
FILE *stream;
char *pathname;
struct stat txt;
int length;
/* use and name of this env var is not part of the standard */
/* implementation-dependent feature */
if ((pathname = getenv("XCMSDB")) == NULL) {
pathname = XCMSDB;
}
length = strlen(pathname);
if ((length == 0) || (length >= (BUFSIZ - 5))){
XcmsColorDbState = XcmsDbInitFailure;
return(XcmsFailure);
}
if (stat(pathname, &txt)) {
/* can't stat file */
XcmsColorDbState = XcmsDbInitFailure;
return(XcmsFailure);
}
if ((stream = fopen(pathname, "r")) == NULL) {
return(XcmsFailure);
}
stringSectionSize(stream, &nEntries, &size);
rewind(stream);
strings = (char *) Xmalloc(size);
pairs = (XcmsPair *)Xcalloc(nEntries, sizeof(XcmsPair));
ReadColornameDB(stream, pairs, strings);
/*
* sort the pair recs
*/
qsort((char *)pairs, nEntries, sizeof(XcmsPair), FirstCmp);
XcmsColorDbState = XcmsDbInitSuccess;
return(XcmsSuccess);
}
/*
* NAME
* XcmsFreeColorDB - Free Color Name Database
*
* SYNOPSIS
*/
void
XcmsFreeColorDB()
/*
* DESCRIPTION
* Creates
*
* RETURNS
* XcmsSuccess if succeeded, otherwise XcmsFailure.
*
*/
{
/*
* Check if XcmsColorDB has been intialized
*/
if (XcmsColorDbState != XcmsDbInitSuccess) {
return;
}
/*
* Free memory
*/
free(strings);
free(pairs);
}
/************************************************************************
* *
* API PRIVATE ROUTINES *
* *
************************************************************************/
/*
* NAME
* _XcmsCopyISOLatin1Lowered
*
* SYNOPSIS
*/
void
_XcmsCopyISOLatin1Lowered(dst, src)
char *dst, *src;
/*
* DESCRIPTION
* ISO Latin-1 case conversion routine
* Identical to XmuCopyISOLatin1Lowered() but provided here
* to eliminate need to link with libXmu.a.
*
* IMPLEMENTORS NOTE:
* This routine is also used in XcmsFormatOfPrefix.
*
* RETURNS
* Void
*
*/
{
register unsigned char *dest, *source;
for (dest = (unsigned char *)dst, source = (unsigned char *)src;
*source;
source++, dest++)
{
if ((*source >= XK_A) && (*source <= XK_Z))
*dest = *source + (XK_a - XK_A);
else if ((*source >= XK_Agrave) && (*source <= XK_Odiaeresis))
*dest = *source + (XK_agrave - XK_Agrave);
else if ((*source >= XK_Ooblique) && (*source <= XK_Thorn))
*dest = *source + (XK_oslash - XK_Ooblique);
else
*dest = *source;
}
*dest = '\0';
}
/*
* NAME
* _XcmsResolveColorString -
*
* SYNOPSIS
*/
#if NeedFunctionPrototypes
Status
_XcmsResolveColorString (
XcmsCCC ccc,
_Xconst char **color_string,
XcmsColor *pColor_exact_return,
XcmsColorFormat result_format)
#else
Status
_XcmsResolveColorString(ccc, color_string, pColor_exact_return, result_format)
XcmsCCC ccc;
char **color_string;
XcmsColor *pColor_exact_return;
XcmsColorFormat result_format;
#endif
/*
* DESCRIPTION
* The XcmsLookupColor function finds the color specification
* associated with a color name in the Device-Independent Color
* Name Database.
* RETURNS
* XcmsFailure if failed to parse string or find any entry in
* the database.
* XcmsSuccess if succeeded in converting color string to
* XcmsColor.
* _XCMS_NEWNAME if succeeded in converting color string (which
* is a color name to yet another color name. Note
* that the new color name is returned via 'name'.
*
* This function returns both the color specification found in the
* database (db specification) and the color specification for the
* color displayable by the specified screen (screen
* specification). The calling routine sets the format for these
* returned specifications in the XcmsColor format component.
* If XcmsUndefinedFormat, the specification is returned in the
* format used to store the color in the database.
*/
{
XcmsColor dbWhitePt; /* whitePt associated with pColor_exact_return*/
/* the screen's white point */
XcmsColor *pClientWhitePt;
int retval;
char *strptr = whitePtStr;
/*
* 0. Check for invalid arguments.
*/
if (ccc == NULL || (*color_string)[0] == '\0' || pColor_exact_return == NULL) {
return(XcmsFailure);
}
/*
* 1. First attempt to parse the string
* If successful, then convert the specification to the target format
* and return.
*/
if (_XcmsParseColorString(ccc, *color_string, pColor_exact_return)
== 1) {
if (result_format != XcmsUndefinedFormat
&& pColor_exact_return->format != result_format) {
/* need to be converted to the target format */
return(XcmsConvertColors(ccc, pColor_exact_return, 1,
result_format, (Bool *)NULL));
} else {
return(XcmsSuccess);
}
}
/*
* 2. Attempt to find it in the DI Color Name Database
*/
/*
* a. Convert String into a XcmsColor structure
* Attempt to extract the specification for color_string from the
* DI Database (pColor_exact_return). If the DI Database does not
* have this entry, then return failure.
*/
retval = _XcmsLookupColorName(ccc, color_string, pColor_exact_return);
if (retval == _XCMS_NEWNAME) {
/* color_string replaced with a color name */
return(retval);
}
if ((retval == XcmsFailure)
|| (pColor_exact_return->format == XcmsUndefinedFormat)) {
return(XcmsFailure);
}
/*
* b. If result_format not defined, then assume target format
* is the exact format.
*/
if (result_format == XcmsUndefinedFormat) {
result_format = pColor_exact_return->format;
}
if ((ClientWhitePointOfCCC(ccc))->format == XcmsUndefinedFormat) {
pClientWhitePt = ScreenWhitePointOfCCC(ccc);
} else {
pClientWhitePt = ClientWhitePointOfCCC(ccc);
}
/*
* c. Convert to the target format, making adjustments for white
* point differences as necessary.
*/
if (XCMS_DD_ID(pColor_exact_return->format)) {
/*
* The spec format is Device-Dependent, therefore assume the
* its white point is the Screen White Point.
*/
if (XCMS_DD_ID(result_format)) {
/*
* Target format is Device-Dependent
* Therefore, DD --> DD conversion
*/
return(_XcmsDDConvertColors(ccc, pColor_exact_return,
1, result_format, (Bool *) NULL));
} else {
/*
* Target format is Device-Independent
* Therefore, DD --> DI conversion
*/
if (ccc->whitePtAdjProc && !_XcmsEqualWhitePts(ccc,
pClientWhitePt, ScreenWhitePointOfCCC(ccc))) {
return((*ccc->whitePtAdjProc)(ccc, ScreenWhitePointOfCCC(ccc),
pClientWhitePt, result_format,
pColor_exact_return, 1, (Bool *) NULL));
} else {
if (_XcmsDDConvertColors(ccc, pColor_exact_return, 1,
XcmsCIEXYZFormat, (Bool *) NULL) == XcmsFailure) {
return(XcmsFailure);
}
return(_XcmsDIConvertColors(ccc, pColor_exact_return,
pClientWhitePt, 1, result_format));
}
}
} else {
/*
* The spec format is Device-Independent, therefore attempt
* to find a database white point.
*
* If the Database does not have a white point, then assume the
* database white point is the same as the Screen White Point.
*/
if (_XcmsLookupColorName(ccc, &strptr, &dbWhitePt) != 1) {
bcopy((char *)&ccc->pPerScrnInfo->screenWhitePt, (char *)&dbWhitePt,
sizeof(XcmsColor));
}
if (XCMS_DD_ID(result_format)) {
/*
* Target format is Device-Dependent
* Therefore, DI --> DD conversion
*/
if (ccc->whitePtAdjProc && !_XcmsEqualWhitePts(ccc,
&dbWhitePt, ScreenWhitePointOfCCC(ccc))) {
return((*ccc->whitePtAdjProc)(ccc, &dbWhitePt,
ScreenWhitePointOfCCC(ccc), result_format,
pColor_exact_return, 1, (Bool *)NULL));
} else {
if (pColor_exact_return->format != XcmsCIEXYZFormat) {
if (_XcmsDIConvertColors(ccc, pColor_exact_return,
&dbWhitePt, 1, XcmsCIEXYZFormat) == XcmsFailure) {
return(XcmsFailure);
}
}
return (_XcmsDDConvertColors(ccc, pColor_exact_return, 1,
result_format, (Bool *)NULL));
}
} else {
/*
* Target format is Device-Independent
* Therefore, DI --> DI conversion
*/
if (ccc->whitePtAdjProc && !_XcmsEqualWhitePts(ccc,
&dbWhitePt, pClientWhitePt)) {
/*
* The calling routine wants to resolve this color
* in terms if it's white point (i.e. Client White Point).
* Therefore, apply white adjustment for the displacement
* between dbWhitePt to clientWhitePt.
*/
return((*ccc->whitePtAdjProc)(ccc, &dbWhitePt,
pClientWhitePt, result_format,
pColor_exact_return, 1, (Bool *)NULL));
} else if (_XcmsEqualWhitePts(ccc,
&dbWhitePt, pClientWhitePt)) {
/*
* Can use either dbWhitePt or pClientWhitePt to
* convert to the result_format.
*/
if (pColor_exact_return->format == result_format) {
return(XcmsSuccess);
} else {
return (_XcmsDIConvertColors(ccc, pColor_exact_return,
&dbWhitePt, 1, result_format));
}
} else {
/*
* Need to convert to a white point independent color
* space (let's choose CIEXYZ) then convert to the
* target color space. Why? Lets assume that
* pColor_exact_return->format and result format
* are white point dependent format (e.g., CIELUV, CIELAB,
* TekHVC ... same or any combination). If so, we'll
* need to convert the color with dbWhitePt to an absolute
* spec (i.e. non-white point dependent) then convert that
* absolute value with clientWhitePt to the result_format.
*/
if (pColor_exact_return->format != XcmsCIEXYZFormat) {
if (_XcmsDIConvertColors(ccc, pColor_exact_return,
&dbWhitePt, 1, XcmsCIEXYZFormat) == XcmsFailure) {
return(XcmsFailure);
}
}
if (result_format == XcmsCIEXYZFormat) {
return(XcmsSuccess);
} else {
return(_XcmsDIConvertColors(ccc, pColor_exact_return,
pClientWhitePt, 1, result_format));
}
}
}
}
}