svn merge ^/branches/released .

8 files changed, 3088 insertions, 3064 deletions

diff --git a/libX11/src/xcms/LRGB.c b/libX11/src/xcms/LRGB.c
index 750c4924e..8f1394b7f 100644
--- a/libX11/src/xcms/LRGB.c
+++ b/libX11/src/xcms/LRGB.c
@@ -1,1845 +1,1844 @@
-
-/*
- * 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
- *		XcmsLRGB.c
- *
- *	DESCRIPTION
- *		This file contains the conversion routines:
- *		    1. CIE XYZ to RGB intensity
- *		    2. RGB intensity to device RGB
- *		    3. device RGB to RGB intensity
- *		    4. RGB intensity to CIE XYZ
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xos.h>
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xcmsint.h"
-#include "Cv.h"
-
-/*
- *      LOCAL DEFINES
- *		#define declarations local to this package.
- */
-#define EPS	0.001
-#ifndef MIN
-#define MIN(x,y) ((x) > (y) ? (y) : (x))
-#endif /* MIN */
-#ifndef MAX
-#define MAX(x,y) ((x) > (y) ? (x) : (y))
-#endif /* MAX */
-#ifndef MIN3
-#define MIN3(x,y,z) ((x) > (MIN((y), (z))) ? (MIN((y), (z))) : (x))
-#endif /* MIN3 */
-#ifndef MAX3
-#define MAX3(x,y,z) ((x) > (MAX((y), (z))) ? (x) : (MAX((y), (z))))
-#endif /* MAX3 */
-
-/*
- *      LOCAL TYPEDEFS
- *              typedefs local to this package (for use with local vars).
- *
- */
-
-/*
- *      FORWARD DECLARATIONS
- */
-static void LINEAR_RGB_FreeSCCData(XPointer pScreenDataTemp);
-static int LINEAR_RGB_InitSCCData(Display *dpy,
-    int screenNumber, XcmsPerScrnInfo *pPerScrnInfo);
-static int XcmsLRGB_RGB_ParseString(register char *spec, XcmsColor *pColor);
-static int XcmsLRGB_RGBi_ParseString(register char *spec, XcmsColor *pColor);
-static Status
-_XcmsGetTableType0(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount);
-static Status
-_XcmsGetTableType1(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount);
-
-/*
- *      LOCALS VARIABLES
- *		Variables local to this package.
- *		    Usage example:
- *		        static int	ExampleLocalVar;
- */
-
-static unsigned short const MASK[17] = {
-    0x0000,	/*  0 bitsPerRGB */
-    0x8000,	/*  1 bitsPerRGB */
-    0xc000,	/*  2 bitsPerRGB */
-    0xe000,	/*  3 bitsPerRGB */
-    0xf000,	/*  4 bitsPerRGB */
-    0xf800,	/*  5 bitsPerRGB */
-    0xfc00,	/*  6 bitsPerRGB */
-    0xfe00,	/*  7 bitsPerRGB */
-    0xff00,	/*  8 bitsPerRGB */
-    0xff80,	/*  9 bitsPerRGB */
-    0xffc0,	/* 10 bitsPerRGB */
-    0xffe0,	/* 11 bitsPerRGB */
-    0xfff0,	/* 12 bitsPerRGB */
-    0xfff8,	/* 13 bitsPerRGB */
-    0xfffc,	/* 14 bitsPerRGB */
-    0xfffe,	/* 15 bitsPerRGB */
-    0xffff	/* 16 bitsPerRGB */
-};
-
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsRGBFormat
-     * to XcmsCIEXYZFormat.
-     */
-static XcmsConversionProc Fl_RGB_to_CIEXYZ[] = {
-    (XcmsConversionProc)XcmsRGBToRGBi,
-    (XcmsConversionProc)XcmsRGBiToCIEXYZ,
-    NULL
-};
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat
-     * to XcmsRGBFormat.
-     */
-static XcmsConversionProc Fl_CIEXYZ_to_RGB[] = {
-    (XcmsConversionProc)XcmsCIEXYZToRGBi,
-    (XcmsConversionProc)XcmsRGBiToRGB,
-    NULL
-};
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsRGBiFormat
-     * to XcmsCIEXYZFormat.
-     */
-static XcmsConversionProc Fl_RGBi_to_CIEXYZ[] = {
-    (XcmsConversionProc)XcmsRGBiToCIEXYZ,
-    NULL
-};
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat
-     * to XcmsRGBiFormat.
-     */
-static XcmsConversionProc Fl_CIEXYZ_to_RGBi[] = {
-    (XcmsConversionProc)XcmsCIEXYZToRGBi,
-    NULL
-};
-
-    /*
-     * RGBi Color Spaces
-     */
-XcmsColorSpace	XcmsRGBiColorSpace =
-    {
-	_XcmsRGBi_prefix,	/* prefix */
-	XcmsRGBiFormat,		/* id */
-	XcmsLRGB_RGBi_ParseString,	/* parseString */
-	Fl_RGBi_to_CIEXYZ,	/* to_CIEXYZ */
-	Fl_CIEXYZ_to_RGBi,	/* from_CIEXYZ */
-	1
-    };
-
-    /*
-     * RGB Color Spaces
-     */
-XcmsColorSpace	XcmsRGBColorSpace =
-    {
-	_XcmsRGB_prefix,		/* prefix */
-	XcmsRGBFormat,		/* id */
-	XcmsLRGB_RGB_ParseString,	/* parseString */
-	Fl_RGB_to_CIEXYZ,	/* to_CIEXYZ */
-	Fl_CIEXYZ_to_RGB,	/* from_CIEXYZ */
-	1
-    };
-
-    /*
-     * Device-Independent Color Spaces known to the
-     * LINEAR_RGB Screen Color Characteristics Function Set.
-     */
-static XcmsColorSpace	*DDColorSpaces[] = {
-    &XcmsRGBColorSpace,
-    &XcmsRGBiColorSpace,
-    NULL
-};
-
-
-/*
- *      GLOBALS
- *              Variables declared in this package that are allowed
- *		to be used globally.
- */
-
-    /*
-     * LINEAR_RGB Screen Color Characteristics Function Set.
-     */
-XcmsFunctionSet	XcmsLinearRGBFunctionSet =
-    {
-	&DDColorSpaces[0],	/* pDDColorSpaces */
-	LINEAR_RGB_InitSCCData,	/* pInitScrnFunc */
-	LINEAR_RGB_FreeSCCData	/* pFreeSCCData */
-    };
-
-/*
- *	DESCRIPTION
- *		Contents of Default SCCData should be replaced if other
- *		data should be used as default.
- *
- *
- */
-
-/*
- * NAME		Tektronix 19" (Sony) CRT
- * PART_NUMBER		119-2451-00
- * MODEL		Tek4300, Tek4800
- */
-
-static IntensityRec const Default_RGB_RedTuples[] = {
-    /* {unsigned short value, XcmsFloat intensity} */
-            { 0x0000,    0.000000 },
-            { 0x0909,    0.000000 },
-            { 0x0a0a,    0.000936 },
-            { 0x0f0f,    0.001481 },
-            { 0x1414,    0.002329 },
-            { 0x1919,    0.003529 },
-            { 0x1e1e,    0.005127 },
-            { 0x2323,    0.007169 },
-            { 0x2828,    0.009699 },
-            { 0x2d2d,    0.012759 },
-            { 0x3232,    0.016392 },
-            { 0x3737,    0.020637 },
-            { 0x3c3c,    0.025533 },
-            { 0x4141,    0.031119 },
-            { 0x4646,    0.037431 },
-            { 0x4b4b,    0.044504 },
-            { 0x5050,    0.052373 },
-            { 0x5555,    0.061069 },
-            { 0x5a5a,    0.070624 },
-            { 0x5f5f,    0.081070 },
-            { 0x6464,    0.092433 },
-            { 0x6969,    0.104744 },
-            { 0x6e6e,    0.118026 },
-            { 0x7373,    0.132307 },
-            { 0x7878,    0.147610 },
-            { 0x7d7d,    0.163958 },
-            { 0x8282,    0.181371 },
-            { 0x8787,    0.199871 },
-            { 0x8c8c,    0.219475 },
-            { 0x9191,    0.240202 },
-            { 0x9696,    0.262069 },
-            { 0x9b9b,    0.285089 },
-            { 0xa0a0,    0.309278 },
-            { 0xa5a5,    0.334647 },
-            { 0xaaaa,    0.361208 },
-            { 0xafaf,    0.388971 },
-            { 0xb4b4,    0.417945 },
-            { 0xb9b9,    0.448138 },
-            { 0xbebe,    0.479555 },
-            { 0xc3c3,    0.512202 },
-            { 0xc8c8,    0.546082 },
-            { 0xcdcd,    0.581199 },
-            { 0xd2d2,    0.617552 },
-            { 0xd7d7,    0.655144 },
-            { 0xdcdc,    0.693971 },
-            { 0xe1e1,    0.734031 },
-            { 0xe6e6,    0.775322 },
-            { 0xebeb,    0.817837 },
-            { 0xf0f0,    0.861571 },
-            { 0xf5f5,    0.906515 },
-            { 0xfafa,    0.952662 },
-            { 0xffff,    1.000000 }
-};
-
-static IntensityRec const Default_RGB_GreenTuples[] = {
-    /* {unsigned short value, XcmsFloat intensity} */
-            { 0x0000,    0.000000 },
-            { 0x1313,    0.000000 },
-            { 0x1414,    0.000832 },
-            { 0x1919,    0.001998 },
-            { 0x1e1e,    0.003612 },
-            { 0x2323,    0.005736 },
-            { 0x2828,    0.008428 },
-            { 0x2d2d,    0.011745 },
-            { 0x3232,    0.015740 },
-            { 0x3737,    0.020463 },
-            { 0x3c3c,    0.025960 },
-            { 0x4141,    0.032275 },
-            { 0x4646,    0.039449 },
-            { 0x4b4b,    0.047519 },
-            { 0x5050,    0.056520 },
-            { 0x5555,    0.066484 },
-            { 0x5a5a,    0.077439 },
-            { 0x5f5f,    0.089409 },
-            { 0x6464,    0.102418 },
-            { 0x6969,    0.116485 },
-            { 0x6e6e,    0.131625 },
-            { 0x7373,    0.147853 },
-            { 0x7878,    0.165176 },
-            { 0x7d7d,    0.183604 },
-            { 0x8282,    0.203140 },
-            { 0x8787,    0.223783 },
-            { 0x8c8c,    0.245533 },
-            { 0x9191,    0.268384 },
-            { 0x9696,    0.292327 },
-            { 0x9b9b,    0.317351 },
-            { 0xa0a0,    0.343441 },
-            { 0xa5a5,    0.370580 },
-            { 0xaaaa,    0.398747 },
-            { 0xafaf,    0.427919 },
-            { 0xb4b4,    0.458068 },
-            { 0xb9b9,    0.489165 },
-            { 0xbebe,    0.521176 },
-            { 0xc3c3,    0.554067 },
-            { 0xc8c8,    0.587797 },
-            { 0xcdcd,    0.622324 },
-            { 0xd2d2,    0.657604 },
-            { 0xd7d7,    0.693588 },
-            { 0xdcdc,    0.730225 },
-            { 0xe1e1,    0.767459 },
-            { 0xe6e6,    0.805235 },
-            { 0xebeb,    0.843491 },
-            { 0xf0f0,    0.882164 },
-            { 0xf5f5,    0.921187 },
-            { 0xfafa,    0.960490 },
-            { 0xffff,    1.000000 }
-};
-
-static IntensityRec const Default_RGB_BlueTuples[] = {
-    /* {unsigned short value, XcmsFloat intensity} */
-            { 0x0000,    0.000000 },
-            { 0x0e0e,    0.000000 },
-            { 0x0f0f,    0.001341 },
-            { 0x1414,    0.002080 },
-            { 0x1919,    0.003188 },
-            { 0x1e1e,    0.004729 },
-            { 0x2323,    0.006766 },
-            { 0x2828,    0.009357 },
-            { 0x2d2d,    0.012559 },
-            { 0x3232,    0.016424 },
-            { 0x3737,    0.021004 },
-            { 0x3c3c,    0.026344 },
-            { 0x4141,    0.032489 },
-            { 0x4646,    0.039481 },
-            { 0x4b4b,    0.047357 },
-            { 0x5050,    0.056154 },
-            { 0x5555,    0.065903 },
-            { 0x5a5a,    0.076634 },
-            { 0x5f5f,    0.088373 },
-            { 0x6464,    0.101145 },
-            { 0x6969,    0.114968 },
-            { 0x6e6e,    0.129862 },
-            { 0x7373,    0.145841 },
-            { 0x7878,    0.162915 },
-            { 0x7d7d,    0.181095 },
-            { 0x8282,    0.200386 },
-            { 0x8787,    0.220791 },
-            { 0x8c8c,    0.242309 },
-            { 0x9191,    0.264937 },
-            { 0x9696,    0.288670 },
-            { 0x9b9b,    0.313499 },
-            { 0xa0a0,    0.339410 },
-            { 0xa5a5,    0.366390 },
-            { 0xaaaa,    0.394421 },
-            { 0xafaf,    0.423481 },
-            { 0xb4b4,    0.453547 },
-            { 0xb9b9,    0.484592 },
-            { 0xbebe,    0.516587 },
-            { 0xc3c3,    0.549498 },
-            { 0xc8c8,    0.583291 },
-            { 0xcdcd,    0.617925 },
-            { 0xd2d2,    0.653361 },
-            { 0xd7d7,    0.689553 },
-            { 0xdcdc,    0.726454 },
-            { 0xe1e1,    0.764013 },
-            { 0xe6e6,    0.802178 },
-            { 0xebeb,    0.840891 },
-            { 0xf0f0,    0.880093 },
-            { 0xf5f5,    0.919723 },
-            { 0xfafa,    0.959715 },
-	    { 0xffff,    1.00000 }
-};
-
-static IntensityTbl Default_RGB_RedTbl = {
-    /* IntensityRec *pBase */
-	(IntensityRec *) Default_RGB_RedTuples,
-    /* unsigned int nEntries */
-	52
-};
-
-static IntensityTbl Default_RGB_GreenTbl = {
-    /* IntensityRec *pBase */
-	(IntensityRec *)Default_RGB_GreenTuples,
-    /* unsigned int nEntries */
-	50
-};
-
-static IntensityTbl Default_RGB_BlueTbl = {
-    /* IntensityRec *pBase */
-	(IntensityRec *)Default_RGB_BlueTuples,
-    /* unsigned int nEntries */
-	51
-};
-
-static LINEAR_RGB_SCCData Default_RGB_SCCData = {
-    /* XcmsFloat XYZtoRGBmatrix[3][3] */
-  {
-    { 3.48340481253539000, -1.52176374927285200, -0.55923133354049780 },
-    {-1.07152751306193600,  1.96593795204372400,  0.03673691339553462 },
-    { 0.06351179790497788, -0.20020501000496480,  0.81070942031648220 }
-  },
-
-    /* XcmsFloat RGBtoXYZmatrix[3][3] */
-  {
-    { 0.38106149108714790, 0.32025712365352110, 0.24834578525933100 },
-    { 0.20729745115140850, 0.68054638776373240, 0.11215616108485920 },
-    { 0.02133944350088028, 0.14297193020246480, 1.24172892629665500 }
-  },
-
-    /* IntensityTbl *pRedTbl */
-	&Default_RGB_RedTbl,
-
-    /* IntensityTbl *pGreenTbl */
-	&Default_RGB_GreenTbl,
-
-    /* IntensityTbl *pBlueTbl */
-	&Default_RGB_BlueTbl
-};
-
-/************************************************************************
- *									*
- *			PRIVATE ROUTINES				*
- *									*
- ************************************************************************/
-
-/*
- *	NAME
- *		LINEAR_RGB_InitSCCData()
- *
- *	SYNOPSIS
- */
-static Status
-LINEAR_RGB_InitSCCData(
-    Display *dpy,
-    int screenNumber,
-    XcmsPerScrnInfo *pPerScrnInfo)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		XcmsFailure if failed.
- *		XcmsSuccess if succeeded.
- *
- */
-{
-    Atom  CorrectAtom = XInternAtom (dpy, XDCCC_CORRECT_ATOM_NAME, True);
-    Atom  MatrixAtom  = XInternAtom (dpy, XDCCC_MATRIX_ATOM_NAME, True);
-    int	  format_return, count, cType, nTables;
-    unsigned long nitems, nbytes_return;
-    char *property_return, *pChar;
-    XcmsFloat *pValue;
-#ifdef ALLDEBUG
-    IntensityRec *pIRec;
-#endif /* ALLDEBUG */
-    VisualID visualID;
-
-    LINEAR_RGB_SCCData *pScreenData, *pScreenDefaultData;
-    XcmsIntensityMap *pNewMap;
-
-    /*
-     * Allocate memory for pScreenData
-     */
-    if (!(pScreenData = pScreenDefaultData = (LINEAR_RGB_SCCData *)
-		      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {
-	return(XcmsFailure);
-    }
-
-    /*
-     *  1. Get the XYZ->RGB and RGB->XYZ matrices
-     */
-
-    if (MatrixAtom == None ||
-	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), MatrixAtom,
-	   &format_return, &nitems, &nbytes_return, &property_return) ||
-	   nitems != 18 || format_return != 32) {
-	/*
-	 * As per the XDCCC, there must be 18 data items and each must be
-	 * in 32 bits !
-	 */
-	goto FreeSCCData;
-
-    } else {
-
-	/*
-	 * RGBtoXYZ and XYZtoRGB matrices
-	 */
-	pValue = (XcmsFloat *) pScreenData;
-	pChar = property_return;
-	for (count = 0; count < 18; count++) {
-	    *pValue++ = (long)_XcmsGetElement(format_return, &pChar,
-		    &nitems) / (XcmsFloat)XDCCC_NUMBER;
-	}
-	Xfree ((char *)property_return);
-	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =
-		pScreenData->RGBtoXYZmatrix[0][0] +
-		pScreenData->RGBtoXYZmatrix[0][1] +
-		pScreenData->RGBtoXYZmatrix[0][2];
-	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =
-		pScreenData->RGBtoXYZmatrix[1][0] +
-		pScreenData->RGBtoXYZmatrix[1][1] +
-		pScreenData->RGBtoXYZmatrix[1][2];
-	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =
-		pScreenData->RGBtoXYZmatrix[2][0] +
-		pScreenData->RGBtoXYZmatrix[2][1] +
-		pScreenData->RGBtoXYZmatrix[2][2];
-
-	/*
-	 * Compute the Screen White Point
-	 */
-	if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )
-		|| (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {
-	    goto FreeSCCData;
-	} else {
-	    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;
-	}
-	pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;
-	pPerScrnInfo->screenWhitePt.pixel = 0;
-
-#ifdef PDEBUG
-	printf ("RGB to XYZ Matrix values:\n");
-	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",
-		pScreenData->RGBtoXYZmatrix[0][0],
-		pScreenData->RGBtoXYZmatrix[0][1],
-		pScreenData->RGBtoXYZmatrix[0][2],
-		pScreenData->RGBtoXYZmatrix[1][0],
-		pScreenData->RGBtoXYZmatrix[1][1],
-		pScreenData->RGBtoXYZmatrix[1][2],
-		pScreenData->RGBtoXYZmatrix[2][0],
-		pScreenData->RGBtoXYZmatrix[2][1],
-		pScreenData->RGBtoXYZmatrix[2][2]);
-	printf ("XYZ to RGB Matrix values:\n");
-	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",
-		pScreenData->XYZtoRGBmatrix[0][0],
-		pScreenData->XYZtoRGBmatrix[0][1],
-		pScreenData->XYZtoRGBmatrix[0][2],
-		pScreenData->XYZtoRGBmatrix[1][0],
-		pScreenData->XYZtoRGBmatrix[1][1],
-		pScreenData->XYZtoRGBmatrix[1][2],
-		pScreenData->XYZtoRGBmatrix[2][0],
-		pScreenData->XYZtoRGBmatrix[2][1],
-		pScreenData->XYZtoRGBmatrix[2][2]);
-	printf ("Screen White Pt value: %f %f %f\n",
-		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X,
-		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y,
-		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z);
-#endif /* PDEBUG */
-    }
-
-    /*
-     *	2. Get the Intensity Profile
-     */
-    if (CorrectAtom == None ||
-	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), CorrectAtom,
-	   &format_return, &nitems, &nbytes_return, &property_return)) {
-	Xfree ((char *)property_return);
-	goto FreeSCCData;
-    }
-
-    pChar = property_return;
-
-    while (nitems) {
-	switch (format_return) {
-	  case 8:
-	    /*
-	     * Must have at least:
-	     *		VisualID0
-	     *		VisualID1
-	     *		VisualID2
-	     *		VisualID3
-	     *		type
-	     *		count
-	     *		length
-	     *		intensity1
-	     *		intensity2
-	     */
-	    if (nitems < 9) {
-		goto Free_property_return;
-	    }
-	    count = 3;
-	    break;
-	  case 16:
-	    /*
-	     * Must have at least:
-	     *		VisualID0
-	     *		VisualID3
-	     *		type
-	     *		count
-	     *		length
-	     *		intensity1
-	     *		intensity2
-	     */
-	    if (nitems < 7) {
-		goto Free_property_return;
-	    }
-	    count = 1;
-	    break;
-	  case 32:
-	    /*
-	     * Must have at least:
-	     *		VisualID0
-	     *		type
-	     *		count
-	     *		length
-	     *		intensity1
-	     *		intensity2
-	     */
-	    if (nitems < 6) {
-		goto Free_property_return;
-	    }
-	    count = 0;
-	    break;
-	  default:
-	    goto Free_property_return;
-	}
-
-	/*
-	 * Get VisualID
-	 */
-	visualID = _XcmsGetElement(format_return, &pChar, &nitems);
-	while (count--) {
-	    visualID = visualID << format_return;
-	    visualID |= _XcmsGetElement(format_return, &pChar, &nitems);
-	}
-
-	if (visualID == 0) {
-	    /*
-	     * This is a shared intensity table
-	     */
-	    pScreenData = pScreenDefaultData;
-	} else {
-	    /*
-	     * This is a per-Visual intensity table
-	     */
-	    if (!(pScreenData = (LINEAR_RGB_SCCData *)
-			      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {
-		return(XcmsFailure);
-	    }
-	    /* copy matrices */
-	    memcpy((char *)pScreenData, (char *)pScreenDefaultData,
-		   18 * sizeof(XcmsFloat));
-
-	    /* Create, initialize, and add map */
-	    if (!(pNewMap = (XcmsIntensityMap *)
-			      Xcalloc (1, sizeof(XcmsIntensityMap)))) {
-		Xfree((char *)pScreenData);
-		return(XcmsFailure);
-	    }
-	    pNewMap->visualID = visualID;
-	    pNewMap->screenData = (XPointer)pScreenData;
-	    pNewMap->pFreeScreenData = LINEAR_RGB_FreeSCCData;
-	    pNewMap->pNext =
-		    (XcmsIntensityMap *)dpy->cms.perVisualIntensityMaps;
-	    dpy->cms.perVisualIntensityMaps = (XPointer)pNewMap;
-	    dpy->free_funcs->intensityMaps = _XcmsFreeIntensityMaps;
-	}
-
-	cType = _XcmsGetElement(format_return, &pChar, &nitems);
-	nTables = _XcmsGetElement(format_return, &pChar, &nitems);
-
-	if (cType == 0) {
-
-	    /* Red Intensity Table */
-	    if (!(pScreenData->pRedTbl = (IntensityTbl *)
-		    Xcalloc (1, sizeof(IntensityTbl)))) {
-		goto Free_property_return;
-	    }
-	    if (_XcmsGetTableType0(pScreenData->pRedTbl, format_return, &pChar,
-		    &nitems) == XcmsFailure) {
-		goto FreeRedTbl;
-	    }
-
-	    if (nTables == 1) {
-		/* Green Intensity Table */
-		pScreenData->pGreenTbl = pScreenData->pRedTbl;
-		/* Blue Intensity Table */
-		pScreenData->pBlueTbl = pScreenData->pRedTbl;
-	    } else {
-		/* Green Intensity Table */
-		if (!(pScreenData->pGreenTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeRedTblElements;
-		}
-		if (_XcmsGetTableType0(pScreenData->pGreenTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeGreenTbl;
-		}
-
-		/* Blue Intensity Table */
-		if (!(pScreenData->pBlueTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeGreenTblElements;
-		}
-		if (_XcmsGetTableType0(pScreenData->pBlueTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeBlueTbl;
-		}
-	    }
-	} else if (cType == 1) {
-	    /* Red Intensity Table */
-	    if (!(pScreenData->pRedTbl = (IntensityTbl *)
-		    Xcalloc (1, sizeof(IntensityTbl)))) {
-		goto Free_property_return;
-	    }
-	    if (_XcmsGetTableType1(pScreenData->pRedTbl, format_return, &pChar,
-		    &nitems) == XcmsFailure) {
-		goto FreeRedTbl;
-	    }
-
-	    if (nTables == 1) {
-
-		/* Green Intensity Table */
-		pScreenData->pGreenTbl = pScreenData->pRedTbl;
-		/* Blue Intensity Table */
-		pScreenData->pBlueTbl = pScreenData->pRedTbl;
-
-	    } else {
-
-		/* Green Intensity Table */
-		if (!(pScreenData->pGreenTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeRedTblElements;
-		}
-		if (_XcmsGetTableType1(pScreenData->pGreenTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeGreenTbl;
-		}
-
-		/* Blue Intensity Table */
-		if (!(pScreenData->pBlueTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeGreenTblElements;
-		}
-		if (_XcmsGetTableType1(pScreenData->pBlueTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeBlueTbl;
-		}
-	    }
-	} else {
-	    goto Free_property_return;
-	}
-
-#ifdef ALLDEBUG
-	printf ("Intensity Table  RED    %d\n", pScreenData->pRedTbl->nEntries);
-	pIRec = (IntensityRec *) pScreenData->pRedTbl->pBase;
-	for (count = 0; count < pScreenData->pRedTbl->nEntries; count++, pIRec++) {
-	    printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);
-	}
-	if (pScreenData->pGreenTbl->pBase != pScreenData->pRedTbl->pBase) {
-	    printf ("Intensity Table  GREEN  %d\n", pScreenData->pGreenTbl->nEntries);
-	    pIRec = (IntensityRec *)pScreenData->pGreenTbl->pBase;
-	    for (count = 0; count < pScreenData->pGreenTbl->nEntries; count++, pIRec++) {
-		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);
-	    }
-	}
-	if (pScreenData->pBlueTbl->pBase != pScreenData->pRedTbl->pBase) {
-	    printf ("Intensity Table  BLUE   %d\n", pScreenData->pBlueTbl->nEntries);
-	    pIRec = (IntensityRec *) pScreenData->pBlueTbl->pBase;
-	    for (count = 0; count < pScreenData->pBlueTbl->nEntries; count++, pIRec++) {
-		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);
-	    }
-	}
-#endif /* ALLDEBUG */
-    }
-
-    Xfree ((char *)property_return);
-
-    /* Free the old memory and use the new structure created. */
-    LINEAR_RGB_FreeSCCData(pPerScrnInfo->screenData);
-
-    pPerScrnInfo->functionSet = (XPointer) &XcmsLinearRGBFunctionSet;
-
-    pPerScrnInfo->screenData = (XPointer) pScreenData;
-
-    pPerScrnInfo->state = XcmsInitSuccess;
-
-    return(XcmsSuccess);
-
-FreeBlueTblElements:
-    Xfree((char *)pScreenData->pBlueTbl->pBase);
-
-FreeBlueTbl:
-    Xfree((char *)pScreenData->pBlueTbl);
-
-FreeGreenTblElements:
-    Xfree((char *)pScreenData->pBlueTbl->pBase);
-
-FreeGreenTbl:
-    Xfree((char *)pScreenData->pGreenTbl);
-
-FreeRedTblElements:
-    Xfree((char *)pScreenData->pRedTbl->pBase);
-
-FreeRedTbl:
-    Xfree((char *)pScreenData->pRedTbl);
-
-Free_property_return:
-    Xfree ((char *)property_return);
-
-FreeSCCData:
-    Xfree((char *)pScreenData);
-    pPerScrnInfo->state = XcmsInitNone;
-    return(XcmsFailure);
-}
-
-
-/*
- *	NAME
- *		LINEAR_RGB_FreeSCCData()
- *
- *	SYNOPSIS
- */
-static void
-LINEAR_RGB_FreeSCCData(
-    XPointer pScreenDataTemp)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		0 if failed.
- *		1 if succeeded with no modifications.
- *
- */
-{
-    LINEAR_RGB_SCCData *pScreenData = (LINEAR_RGB_SCCData *) pScreenDataTemp;
-
-    if (pScreenData && pScreenData != &Default_RGB_SCCData) {
-	if (pScreenData->pRedTbl) {
-	    if (pScreenData->pGreenTbl) {
-		if (pScreenData->pRedTbl->pBase !=
-		    pScreenData->pGreenTbl->pBase) {
-		    if (pScreenData->pGreenTbl->pBase) {
-			Xfree ((char *)pScreenData->pGreenTbl->pBase);
-		    }
-		}
-		if (pScreenData->pGreenTbl != pScreenData->pRedTbl) {
-		    Xfree ((char *)pScreenData->pGreenTbl);
-		}
-	    }
-	    if (pScreenData->pBlueTbl) {
-		if (pScreenData->pRedTbl->pBase !=
-		    pScreenData->pBlueTbl->pBase) {
-		    if (pScreenData->pBlueTbl->pBase) {
-			Xfree ((char *)pScreenData->pBlueTbl->pBase);
-		    }
-		}
-		if (pScreenData->pBlueTbl != pScreenData->pRedTbl) {
-		    Xfree ((char *)pScreenData->pBlueTbl);
-		}
-	    }
-	    if (pScreenData->pRedTbl->pBase) {
-		Xfree ((char *)pScreenData->pRedTbl->pBase);
-	    }
-	    Xfree ((char *)pScreenData->pRedTbl);
-	}
-	Xfree ((char *)pScreenData);
-    }
-}
-
-
-
-/************************************************************************
- *									*
- *			API PRIVATE ROUTINES				*
- *									*
- ************************************************************************/
-
-/*
- *	NAME
- *		_XcmsGetTableType0
- *
- *	SYNOPSIS
- */
-static Status
-_XcmsGetTableType0(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		XcmsFailure if failed.
- *		XcmsSuccess if succeeded.
- *
- */
-{
-    unsigned int nElements;
-    IntensityRec *pIRec;
-
-    nElements = pTbl->nEntries =
-	    _XcmsGetElement(format, pChar, pCount) + 1;
-    if (!(pIRec = pTbl->pBase = (IntensityRec *)
-	  Xcalloc (nElements, sizeof(IntensityRec)))) {
-	return(XcmsFailure);
-    }
-
-    switch (format) {
-      case 8:
-	for (; nElements--; pIRec++) {
-	    /* 0xFFFF/0xFF = 0x101 */
-	    pIRec->value = _XcmsGetElement (format, pChar, pCount) * 0x101;
-	    pIRec->intensity =
-		    _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)255.0;
-	}
-	break;
-      case 16:
-	for (; nElements--; pIRec++) {
-	    pIRec->value = _XcmsGetElement (format, pChar, pCount);
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)65535.0;
-	}
-	break;
-      case 32:
-	for (; nElements--; pIRec++) {
-	    pIRec->value = _XcmsGetElement (format, pChar, pCount);
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)4294967295.0;
-	}
-	break;
-      default:
-	return(XcmsFailure);
-    }
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		_XcmsGetTableType1
- *
- *	SYNOPSIS
- */
-static Status
-_XcmsGetTableType1(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		XcmsFailure if failed.
- *		XcmsSuccess if succeeded.
- *
- */
-{
-    int count;
-    unsigned int max_index;
-    IntensityRec *pIRec;
-
-    max_index = _XcmsGetElement(format, pChar, pCount);
-    pTbl->nEntries = max_index + 1;
-    if (!(pIRec = pTbl->pBase = (IntensityRec *)
-	  Xcalloc (max_index+1, sizeof(IntensityRec)))) {
-	return(XcmsFailure);
-    }
-
-    switch (format) {
-      case 8:
-	for (count = 0; count < max_index+1; count++, pIRec++) {
-	    pIRec->value = (count * 65535) / max_index;
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)255.0;
-	}
-	break;
-      case 16:
-	for (count = 0; count < max_index+1; count++, pIRec++) {
-	    pIRec->value = (count * 65535) / max_index;
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)65535.0;
-	}
-	break;
-      case 32:
-	for (count = 0; count < max_index+1; count++, pIRec++) {
-	    pIRec->value = (count * 65535) / max_index;
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)4294967295.0;
-	}
-	break;
-      default:
-	return(XcmsFailure);
-    }
-
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		ValueCmp
- *
- *	SYNOPSIS
- */
-static int
-_XcmsValueCmp(
-    IntensityRec *p1, IntensityRec *p2)
-/*
- *	DESCRIPTION
- *		Compares the value component of two IntensityRec
- *		structures.
- *
- *	RETURNS
- *		0 if p1->value is equal to p2->value
- *		< 0 if p1->value is less than p2->value
- *		> 0 if p1->value is greater than p2->value
- *
- */
-{
-    return (p1->value - p2->value);
-}
-
-
-/*
- *	NAME
- *		IntensityCmp
- *
- *	SYNOPSIS
- */
-static int
-_XcmsIntensityCmp(
-    IntensityRec *p1, IntensityRec *p2)
-/*
- *	DESCRIPTION
- *		Compares the intensity component of two IntensityRec
- *		structures.
- *
- *	RETURNS
- *		0 if equal;
- *		< 0 if first precedes second
- *		> 0 if first succeeds second
- *
- */
-{
-    if (p1->intensity < p2->intensity) {
-	return (-1);
-    }
-    if (p1->intensity > p2->intensity) {
-	return (XcmsSuccess);
-    }
-    return (XcmsFailure);
-}
-
-/*
- *	NAME
- *		ValueInterpolation
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-static int
-_XcmsValueInterpolation(
-    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,
-    int bitsPerRGB)
-/*
- *	DESCRIPTION
- *		Based on a given value, performs a linear interpolation
- *		on the intensities between two IntensityRec structures.
- *		Note that the bitsPerRGB parameter is ignored.
- *
- *	RETURNS
- *		Returns 0 if failed; otherwise non-zero.
- */
-{
-    XcmsFloat ratio;
-
-    ratio = ((XcmsFloat)key->value - (XcmsFloat)lo->value) /
-	((XcmsFloat)hi->value - (XcmsFloat)lo->value);
-    answer->value = key->value;
-    answer->intensity = (hi->intensity - lo->intensity) * ratio;
-    answer->intensity += lo->intensity;
-    return (XcmsSuccess);
-}
-
-/*
- *	NAME
- *		IntensityInterpolation
- *
- *	SYNOPSIS
- */
-static int
-_XcmsIntensityInterpolation(
-    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,
-    int bitsPerRGB)
-/*
- *	DESCRIPTION
- *		Based on a given intensity, performs a linear interpolation
- *		on the values between two IntensityRec structures.
- *		The bitsPerRGB parameter is necessary to perform rounding
- *		to the correct number of significant bits.
- *
- *	RETURNS
- *		Returns 0 if failed; otherwise non-zero.
- */
-{
-    XcmsFloat ratio;
-    long target, up, down;
-    int shift = 16 - bitsPerRGB;
-    int max_color = (1 << bitsPerRGB) - 1;
-
-    ratio = (key->intensity - lo->intensity) / (hi->intensity - lo->intensity);
-    answer->intensity = key->intensity;
-    target = hi->value - lo->value;
-    target *= ratio;
-    target += lo->value;
-
-    /*
-     * Ok now, lets find the closest in respects to bits per RGB
-     */
-    up = ((target >> shift) * 0xFFFF) / max_color;
-    if (up < target) {
-	down = up;
-	up = (MIN((down >> shift) + 1, max_color) * 0xFFFF) / max_color;
-    } else {
-	down = (MAX((up >> shift) - 1, 0) * 0xFFFF) / max_color;
-    }
-    answer->value = ((up - target) < (target - down) ? up : down);
-    answer->value &= MASK[bitsPerRGB];
-    return (XcmsSuccess);
-}
-
-
-
-typedef int (*comparProcp)(
-    char *p1,
-    char *p2);
-typedef int (*interpolProcp)(
-    char *key,
-    char *lo,
-    char *hi,
-    char *answer,
-    int bitsPerRGB);
-
-/*
- *	NAME
- *		_XcmsTableSearch
- *
- *	SYNOPSIS
- */
-static int
-_XcmsTableSearch(
-    char *key,
-    int bitsPerRGB,
-    char *base,
-    unsigned nel,
-    unsigned nKeyPtrSize,
-    int (*compar)(
-        char *p1,
-        char *p2),
-    int (*interpol)(
-        char *key,
-        char *lo,
-        char *hi,
-        char *answer,
-        int bitsPerRGB),
-    char *answer)
-
-/*
- *	DESCRIPTION
- *		A binary search through the specificied table.
- *
- *	RETURNS
- *		Returns 0 if failed; otherwise non-zero.
- *
- */
-{
-    char *hi, *lo, *mid, *last;
-    int result;
-
-    last = hi = base + ((nel - 1) * nKeyPtrSize);
-    mid = lo = base;
-
-    /* use only the significants bits, then scale into 16 bits */
-    ((IntensityRec *)key)->value = ((unsigned long)
-	    (((IntensityRec *)key)->value >> (16 - bitsPerRGB)) * 0xFFFF)
-	    / ((1 << bitsPerRGB) - 1);
-
-    /* Special case so that zero intensity always maps to zero value */
-    if ((*compar) (key,lo) <= 0) {
-	memcpy (answer, lo, nKeyPtrSize);
-	((IntensityRec *)answer)->value &= MASK[bitsPerRGB];
-	return XcmsSuccess;
-    }
-    while (mid != last) {
-	last = mid;
-	mid = lo + (((unsigned)(hi - lo) / nKeyPtrSize) / 2) * nKeyPtrSize;
-	result = (*compar) (key, mid);
-	if (result == 0) {
-
-	    memcpy(answer, mid, nKeyPtrSize);
-	    ((IntensityRec *)answer)->value &= MASK[bitsPerRGB];
-	    return (XcmsSuccess);
-	} else if (result < 0) {
-	    hi = mid;
-	} else {
-	    lo = mid;
-	}
-    }
-
-    /*
-     * If we got to here, we didn't find a solution, so we
-     * need to apply interpolation.
-     */
-    return ((*interpol)(key, lo, hi, answer, bitsPerRGB));
-}
-
-
-/*
- *      NAME
- *		_XcmsMatVec - multiply a 3 x 3 by a 3 x 1 vector
- *
- *	SYNOPSIS
- */
-static void _XcmsMatVec(
-    XcmsFloat *pMat, XcmsFloat *pIn, XcmsFloat *pOut)
-/*
- *      DESCRIPTION
- *		Multiply the passed vector by the passed matrix to return a
- *		vector. Matrix is 3x3, vectors are of length 3.
- *
- *	RETURNS
- *		void
- */
-{
-    int i, j;
-
-    for (i = 0; i < 3; i++) {
-	pOut[i] = 0.0;
-	for (j = 0; j < 3; j++)
-	    pOut[i] += *(pMat+(i*3)+j) * pIn[j];
-    }
-}
-
-
-/************************************************************************
- *									*
- *			 PUBLIC ROUTINES				*
- *									*
- ************************************************************************/
-
-
-/*
- *	NAME
- *		XcmsLRGB_RGB_ParseString
- *
- *	SYNOPSIS
- */
-static int
-XcmsLRGB_RGB_ParseString(
-    register char *spec,
-    XcmsColor *pColor)
-/*
- *	DESCRIPTION
- *		This routines takes a string and attempts to convert
- *		it into a XcmsColor structure with XcmsRGBFormat.
- *
- *	RETURNS
- *		0 if failed, non-zero otherwise.
- */
-{
-    register int n, i;
-    unsigned short r, g, b;
-    char c;
-    char *pchar;
-    unsigned short *pShort;
-
-    /*
-     * Check for old # format
-     */
-    if (*spec == '#') {
-	/*
-	 * Attempt to parse the value portion.
-	 */
-	spec++;
-	n = strlen(spec);
-	if (n != 3 && n != 6 && n != 9 && n != 12) {
-	    return(XcmsFailure);
-	}
-
-	n /= 3;
-	g = b = 0;
-	do {
-	    r = g;
-	    g = b;
-	    b = 0;
-	    for (i = n; --i >= 0; ) {
-		c = *spec++;
-		b <<= 4;
-		if (c >= '0' && c <= '9')
-		    b |= c - '0';
-		/* assume string in lowercase
-		else if (c >= 'A' && c <= 'F')
-		    b |= c - ('A' - 10);
-		*/
-		else if (c >= 'a' && c <= 'f')
-		    b |= c - ('a' - 10);
-		else return (XcmsFailure);
-	    }
-	} while (*spec != '\0');
-
-	/*
-	 * Succeeded !
-	 */
-	n <<= 2;
-	n = 16 - n;
-	/* shift instead of scale, to match old broken semantics */
-	pColor->spec.RGB.red = r << n;
-	pColor->spec.RGB.green = g << n;
-	pColor->spec.RGB.blue =  b << n;
-    } else {
-	if ((pchar = strchr(spec, ':')) == NULL) {
-	    return(XcmsFailure);
-	}
-	n = (int)(pchar - spec);
-
-	/*
-	 * Check for proper prefix.
-	 */
-	if (strncmp(spec, _XcmsRGB_prefix, n) != 0) {
-	    return(XcmsFailure);
-	}
-
-	/*
-	 * Attempt to parse the value portion.
-	 */
-	spec += (n + 1);
-	pShort = &pColor->spec.RGB.red;
-	for (i = 0; i < 3; i++, pShort++, spec++) {
-	    n = 0;
-	    *pShort = 0;
-	    while (*spec != '/' && *spec != '\0') {
-		if (++n > 4) {
-		    return(XcmsFailure);
-		}
-		c = *spec++;
-		*pShort <<= 4;
-		if (c >= '0' && c <= '9')
-		    *pShort |= c - '0';
-		/* assume string in lowercase
-		else if (c >= 'A' && c <= 'F')
-		    *pShort |= c - ('A' - 10);
-		*/
-		else if (c >= 'a' && c <= 'f')
-		    *pShort |= c - ('a' - 10);
-		else return (XcmsFailure);
-	    }
-	    if (n == 0)
-		return (XcmsFailure);
-	    if (n < 4) {
-		*pShort = ((unsigned long)*pShort * 0xFFFF) / ((1 << n*4) - 1);
-	    }
-	}
-    }
-    pColor->format = XcmsRGBFormat;
-    pColor->pixel = 0;
-    return (XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsLRGB_RGBi_ParseString
- *
- *	SYNOPSIS
- */
-static int
-XcmsLRGB_RGBi_ParseString(
-    register char *spec,
-    XcmsColor *pColor)
-/*
- *	DESCRIPTION
- *		This routines takes a string and attempts to convert
- *		it into a XcmsColor structure with XcmsRGBiFormat.
- *		The assumed RGBi string syntax is:
- *		    RGBi:<r>/<g>/<b>
- *		Where r, g, and b are in string input format for floats
- *		consisting of:
- *		    a. an optional sign
- *		    b. a string of numbers possibly containing a decimal point,
- *		    c. an optional exponent field containing an 'E' or 'e'
- *			followed by a possibly signed integer string.
- *
- *	RETURNS
- *		0 if failed, non-zero otherwise.
- */
-{
-    int n;
-    char *pchar;
-
-    if ((pchar = strchr(spec, ':')) == NULL) {
-	return(XcmsFailure);
-    }
-    n = (int)(pchar - spec);
-
-    /*
-     * Check for proper prefix.
-     */
-    if (strncmp(spec, _XcmsRGBi_prefix, n) != 0) {
-	return(XcmsFailure);
-    }
-
-    /*
-     * Attempt to parse the value portion.
-     */
-    if (sscanf(spec + n + 1, "%lf/%lf/%lf",
-	    &pColor->spec.RGBi.red,
-	    &pColor->spec.RGBi.green,
-	    &pColor->spec.RGBi.blue) != 3) {
-        char *s; /* Maybe failed due to locale */
-        int f;
-        if ((s = strdup(spec))) {
-            for (f = 0; s[f]; ++f)
-                if (s[f] == '.')
-                    s[f] = ',';
-                else if (s[f] == ',')
-                    s[f] = '.';
-	    if (sscanf(s + n + 1, "%lf/%lf/%lf",
-		       &pColor->spec.RGBi.red,
-		       &pColor->spec.RGBi.green,
-		       &pColor->spec.RGBi.blue) != 3) {
-                free(s);
-                return(XcmsFailure);
-            }
-            free(s);
-        } else
-	    return(XcmsFailure);
-    }
-
-    /*
-     * Succeeded !
-     */
-    pColor->format = XcmsRGBiFormat;
-    pColor->pixel = 0;
-    return (XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsCIEXYZToRGBi - convert CIE XYZ to RGB
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsCIEXYZToRGBi(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to an array of Bool		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGB format to RGBi format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded without gamut compression.
- *		XcmsSuccessWithCompression if succeeded with gamut
- *			compression.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsFloat tmp[3];
-    int hasCompressed = 0;
-    unsigned int i;
-    XcmsColor *pColor = pXcmsColors_in_out;
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    /*
-     * XcmsColors should be White Point Adjusted, if necessary, by now!
-     */
-
-    /*
-     * NEW!!! for extended gamut compression
-     *
-     * 1. Need to zero out pCompressed
-     *
-     * 2. Need to save initial address of pColor
-     *
-     * 3. Need to save initial address of pCompressed
-     */
-
-    for (i = 0; i < nColors; i++) {
-
-	/* Make sure format is XcmsCIEXYZFormat */
-	if (pColor->format != XcmsCIEXYZFormat) {
-	    return(XcmsFailure);
-	}
-
-	/* Multiply [A]-1 * [XYZ] to get RGB intensity */
-	_XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,
-		(XcmsFloat *) &pColor->spec, tmp);
-
-	if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||
-	    (MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {
-
-	    /*
-	     * RGBi out of screen's gamut
-	     */
-
-	    if (ccc->gamutCompProc == NULL) {
-		/*
-		 * Aha!! Here's that little trick that will allow
-		 * gamut compression routines to get the out of bound
-		 * RGBi.
-		 */
-		memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));
-		pColor->format = XcmsRGBiFormat;
-		return(XcmsFailure);
-	    } else if ((*ccc->gamutCompProc)(ccc, pXcmsColors_in_out, nColors,
-		    i, pCompressed) == 0) {
-		return(XcmsFailure);
-	    }
-
-	    /*
-	     * The gamut compression function should return colors in CIEXYZ
-	     *	Also check again to if the new color is within gamut.
-	     */
-	    if (pColor->format != XcmsCIEXYZFormat) {
-		return(XcmsFailure);
-	    }
-	    _XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,
-		    (XcmsFloat *) &pColor->spec, tmp);
-	    if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||
-		(MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {
-		return(XcmsFailure);
-	    }
-	    hasCompressed++;
-	}
-	memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));
-	/* These if statements are done to ensure the fudge factor is */
-	/* is taken into account. */
-	if (pColor->spec.RGBi.red < 0.0) {
-		pColor->spec.RGBi.red = 0.0;
-	} else if (pColor->spec.RGBi.red > 1.0) {
-		pColor->spec.RGBi.red = 1.0;
-	}
-	if (pColor->spec.RGBi.green < 0.0) {
-		pColor->spec.RGBi.green = 0.0;
-	} else if (pColor->spec.RGBi.green > 1.0) {
-		pColor->spec.RGBi.green = 1.0;
-	}
-	if (pColor->spec.RGBi.blue < 0.0) {
-		pColor->spec.RGBi.blue = 0.0;
-	} else if (pColor->spec.RGBi.blue > 1.0) {
-		pColor->spec.RGBi.blue = 1.0;
-	}
-	(pColor++)->format = XcmsRGBiFormat;
-    }
-    return (hasCompressed ? XcmsSuccessWithCompression : XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		LINEAR_RGBi_to_CIEXYZ - convert RGBi to CIEXYZ
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsRGBiToCIEXYZ(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to a bit array		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGBi format to CIEXYZ format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsFloat tmp[3];
-
-    /*
-     * pCompressed ignored in this function.
-     */
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    /*
-     * XcmsColors should be White Point Adjusted, if necessary, by now!
-     */
-
-    while (nColors--) {
-
-	/* Multiply [A]-1 * [XYZ] to get RGB intensity */
-	_XcmsMatVec((XcmsFloat *) pScreenData->RGBtoXYZmatrix,
-		(XcmsFloat *) &pXcmsColors_in_out->spec, tmp);
-
-	memcpy((char *)&pXcmsColors_in_out->spec, (char *)tmp, sizeof(tmp));
-	(pXcmsColors_in_out++)->format = XcmsCIEXYZFormat;
-    }
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsRGBiToRGB
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsRGBiToRGB(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to a bit array		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGBi format to RGB format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded without gamut compression.
- *		XcmsSuccessWithCompression if succeeded with gamut
- *			compression.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsRGB tmpRGB;
-    IntensityRec keyIRec, answerIRec;
-
-    /*
-     * pCompressed ignored in this function.
-     */
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    while (nColors--) {
-
-	/* Make sure format is XcmsRGBiFormat */
-	if (pXcmsColors_in_out->format != XcmsRGBiFormat) {
-	    return(XcmsFailure);
-	}
-
-	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.red;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pRedTbl->pBase,
-		(unsigned)pScreenData->pRedTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGB.red = answerIRec.value;
-
-	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.green;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pGreenTbl->pBase,
-		(unsigned)pScreenData->pGreenTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGB.green = answerIRec.value;
-
-	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.blue;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pBlueTbl->pBase,
-		(unsigned)pScreenData->pBlueTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGB.blue = answerIRec.value;
-
-	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGB, sizeof(XcmsRGB));
-	(pXcmsColors_in_out++)->format = XcmsRGBFormat;
-    }
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsRGBToRGBi
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsRGBToRGBi(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to a bit array		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGB format to RGBi format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsRGBi tmpRGBi;
-    IntensityRec keyIRec, answerIRec;
-
-    /*
-     * pCompressed ignored in this function.
-     */
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    while (nColors--) {
-
-	/* Make sure format is XcmsRGBFormat */
-	if (pXcmsColors_in_out->format != XcmsRGBFormat) {
-	    return(XcmsFailure);
-	}
-
-	keyIRec.value = pXcmsColors_in_out->spec.RGB.red;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pRedTbl->pBase,
-		(unsigned)pScreenData->pRedTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGBi.red = answerIRec.intensity;
-
-	keyIRec.value = pXcmsColors_in_out->spec.RGB.green;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pGreenTbl->pBase,
-		(unsigned)pScreenData->pGreenTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGBi.green = answerIRec.intensity;
-
-	keyIRec.value = pXcmsColors_in_out->spec.RGB.blue;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pBlueTbl->pBase,
-		(unsigned)pScreenData->pBlueTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGBi.blue = answerIRec.intensity;
-
-	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGBi, sizeof(XcmsRGBi));
-	(pXcmsColors_in_out++)->format = XcmsRGBiFormat;
-    }
-    return(XcmsSuccess);
-}
-
-/*
- *	NAME
- *		_XcmsInitScrnDefaultInfo
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-int
-_XcmsLRGB_InitScrnDefault(
-    Display *dpy,
-    int screenNumber,
-    XcmsPerScrnInfo *pPerScrnInfo)
-/*
- *	DESCRIPTION
- *		Given a display and screen number, this routine attempts
- *		to initialize the Xcms per Screen Info structure
- *		(XcmsPerScrnInfo) with defaults.
- *
- *	RETURNS
- *		Returns zero if initialization failed; non-zero otherwise.
- */
-{
-    pPerScrnInfo->screenData = (XPointer)&Default_RGB_SCCData;
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =
-		Default_RGB_SCCData.RGBtoXYZmatrix[0][0] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[0][1] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[0][2];
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =
-		Default_RGB_SCCData.RGBtoXYZmatrix[1][0] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[1][1] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[1][2];
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =
-		Default_RGB_SCCData.RGBtoXYZmatrix[2][0] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[2][1] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[2][2];
-    if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )
-	    || (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {
-	pPerScrnInfo->screenData = (XPointer)NULL;
-	pPerScrnInfo->state = XcmsInitNone;
-	return(0);
-    }
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;
-    pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;
-    pPerScrnInfo->screenWhitePt.pixel = 0;
-    pPerScrnInfo->functionSet = (XPointer)&XcmsLinearRGBFunctionSet;
-    pPerScrnInfo->state = XcmsInitFailure; /* default initialization */
-    return(1);
-}
+

+/*

+ * 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

+ *		XcmsLRGB.c

+ *

+ *	DESCRIPTION

+ *		This file contains the conversion routines:

+ *		    1. CIE XYZ to RGB intensity

+ *		    2. RGB intensity to device RGB

+ *		    3. device RGB to RGB intensity

+ *		    4. RGB intensity to CIE XYZ

+ *

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/Xos.h>

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xcmsint.h"

+#include "Cv.h"

+

+/*

+ *      LOCAL DEFINES

+ *		#define declarations local to this package.

+ */

+#define EPS	0.001

+#ifndef MIN

+#define MIN(x,y) ((x) > (y) ? (y) : (x))

+#endif /* MIN */

+#ifndef MAX

+#define MAX(x,y) ((x) > (y) ? (x) : (y))

+#endif /* MAX */

+#ifndef MIN3

+#define MIN3(x,y,z) ((x) > (MIN((y), (z))) ? (MIN((y), (z))) : (x))

+#endif /* MIN3 */

+#ifndef MAX3

+#define MAX3(x,y,z) ((x) > (MAX((y), (z))) ? (x) : (MAX((y), (z))))

+#endif /* MAX3 */

+

+/*

+ *      LOCAL TYPEDEFS

+ *              typedefs local to this package (for use with local vars).

+ *

+ */

+

+/*

+ *      FORWARD DECLARATIONS

+ */

+static void LINEAR_RGB_FreeSCCData(XPointer pScreenDataTemp);

+static int LINEAR_RGB_InitSCCData(Display *dpy,

+    int screenNumber, XcmsPerScrnInfo *pPerScrnInfo);

+static int XcmsLRGB_RGB_ParseString(register char *spec, XcmsColor *pColor);

+static int XcmsLRGB_RGBi_ParseString(register char *spec, XcmsColor *pColor);

+static Status

+_XcmsGetTableType0(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount);

+static Status

+_XcmsGetTableType1(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount);

+

+/*

+ *      LOCALS VARIABLES

+ *		Variables local to this package.

+ *		    Usage example:

+ *		        static int	ExampleLocalVar;

+ */

+

+static unsigned short const MASK[17] = {

+    0x0000,	/*  0 bitsPerRGB */

+    0x8000,	/*  1 bitsPerRGB */

+    0xc000,	/*  2 bitsPerRGB */

+    0xe000,	/*  3 bitsPerRGB */

+    0xf000,	/*  4 bitsPerRGB */

+    0xf800,	/*  5 bitsPerRGB */

+    0xfc00,	/*  6 bitsPerRGB */

+    0xfe00,	/*  7 bitsPerRGB */

+    0xff00,	/*  8 bitsPerRGB */

+    0xff80,	/*  9 bitsPerRGB */

+    0xffc0,	/* 10 bitsPerRGB */

+    0xffe0,	/* 11 bitsPerRGB */

+    0xfff0,	/* 12 bitsPerRGB */

+    0xfff8,	/* 13 bitsPerRGB */

+    0xfffc,	/* 14 bitsPerRGB */

+    0xfffe,	/* 15 bitsPerRGB */

+    0xffff	/* 16 bitsPerRGB */

+};

+

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsRGBFormat

+     * to XcmsCIEXYZFormat.

+     */

+static XcmsConversionProc Fl_RGB_to_CIEXYZ[] = {

+    (XcmsConversionProc)XcmsRGBToRGBi,

+    (XcmsConversionProc)XcmsRGBiToCIEXYZ,

+    NULL

+};

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat

+     * to XcmsRGBFormat.

+     */

+static XcmsConversionProc Fl_CIEXYZ_to_RGB[] = {

+    (XcmsConversionProc)XcmsCIEXYZToRGBi,

+    (XcmsConversionProc)XcmsRGBiToRGB,

+    NULL

+};

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsRGBiFormat

+     * to XcmsCIEXYZFormat.

+     */

+static XcmsConversionProc Fl_RGBi_to_CIEXYZ[] = {

+    (XcmsConversionProc)XcmsRGBiToCIEXYZ,

+    NULL

+};

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat

+     * to XcmsRGBiFormat.

+     */

+static XcmsConversionProc Fl_CIEXYZ_to_RGBi[] = {

+    (XcmsConversionProc)XcmsCIEXYZToRGBi,

+    NULL

+};

+

+    /*

+     * RGBi Color Spaces

+     */

+XcmsColorSpace	XcmsRGBiColorSpace =

+    {

+	_XcmsRGBi_prefix,	/* prefix */

+	XcmsRGBiFormat,		/* id */

+	XcmsLRGB_RGBi_ParseString,	/* parseString */

+	Fl_RGBi_to_CIEXYZ,	/* to_CIEXYZ */

+	Fl_CIEXYZ_to_RGBi,	/* from_CIEXYZ */

+	1

+    };

+

+    /*

+     * RGB Color Spaces

+     */

+XcmsColorSpace	XcmsRGBColorSpace =

+    {

+	_XcmsRGB_prefix,		/* prefix */

+	XcmsRGBFormat,		/* id */

+	XcmsLRGB_RGB_ParseString,	/* parseString */

+	Fl_RGB_to_CIEXYZ,	/* to_CIEXYZ */

+	Fl_CIEXYZ_to_RGB,	/* from_CIEXYZ */

+	1

+    };

+

+    /*

+     * Device-Independent Color Spaces known to the

+     * LINEAR_RGB Screen Color Characteristics Function Set.

+     */

+static XcmsColorSpace	*DDColorSpaces[] = {

+    &XcmsRGBColorSpace,

+    &XcmsRGBiColorSpace,

+    NULL

+};

+

+

+/*

+ *      GLOBALS

+ *              Variables declared in this package that are allowed

+ *		to be used globally.

+ */

+

+    /*

+     * LINEAR_RGB Screen Color Characteristics Function Set.

+     */

+XcmsFunctionSet	XcmsLinearRGBFunctionSet =

+    {

+	&DDColorSpaces[0],	/* pDDColorSpaces */

+	LINEAR_RGB_InitSCCData,	/* pInitScrnFunc */

+	LINEAR_RGB_FreeSCCData	/* pFreeSCCData */

+    };

+

+/*

+ *	DESCRIPTION

+ *		Contents of Default SCCData should be replaced if other

+ *		data should be used as default.

+ *

+ *

+ */

+

+/*

+ * NAME		Tektronix 19" (Sony) CRT

+ * PART_NUMBER		119-2451-00

+ * MODEL		Tek4300, Tek4800

+ */

+

+static IntensityRec const Default_RGB_RedTuples[] = {

+    /* {unsigned short value, XcmsFloat intensity} */

+            { 0x0000,    0.000000 },

+            { 0x0909,    0.000000 },

+            { 0x0a0a,    0.000936 },

+            { 0x0f0f,    0.001481 },

+            { 0x1414,    0.002329 },

+            { 0x1919,    0.003529 },

+            { 0x1e1e,    0.005127 },

+            { 0x2323,    0.007169 },

+            { 0x2828,    0.009699 },

+            { 0x2d2d,    0.012759 },

+            { 0x3232,    0.016392 },

+            { 0x3737,    0.020637 },

+            { 0x3c3c,    0.025533 },

+            { 0x4141,    0.031119 },

+            { 0x4646,    0.037431 },

+            { 0x4b4b,    0.044504 },

+            { 0x5050,    0.052373 },

+            { 0x5555,    0.061069 },

+            { 0x5a5a,    0.070624 },

+            { 0x5f5f,    0.081070 },

+            { 0x6464,    0.092433 },

+            { 0x6969,    0.104744 },

+            { 0x6e6e,    0.118026 },

+            { 0x7373,    0.132307 },

+            { 0x7878,    0.147610 },

+            { 0x7d7d,    0.163958 },

+            { 0x8282,    0.181371 },

+            { 0x8787,    0.199871 },

+            { 0x8c8c,    0.219475 },

+            { 0x9191,    0.240202 },

+            { 0x9696,    0.262069 },

+            { 0x9b9b,    0.285089 },

+            { 0xa0a0,    0.309278 },

+            { 0xa5a5,    0.334647 },

+            { 0xaaaa,    0.361208 },

+            { 0xafaf,    0.388971 },

+            { 0xb4b4,    0.417945 },

+            { 0xb9b9,    0.448138 },

+            { 0xbebe,    0.479555 },

+            { 0xc3c3,    0.512202 },

+            { 0xc8c8,    0.546082 },

+            { 0xcdcd,    0.581199 },

+            { 0xd2d2,    0.617552 },

+            { 0xd7d7,    0.655144 },

+            { 0xdcdc,    0.693971 },

+            { 0xe1e1,    0.734031 },

+            { 0xe6e6,    0.775322 },

+            { 0xebeb,    0.817837 },

+            { 0xf0f0,    0.861571 },

+            { 0xf5f5,    0.906515 },

+            { 0xfafa,    0.952662 },

+            { 0xffff,    1.000000 }

+};

+

+static IntensityRec const Default_RGB_GreenTuples[] = {

+    /* {unsigned short value, XcmsFloat intensity} */

+            { 0x0000,    0.000000 },

+            { 0x1313,    0.000000 },

+            { 0x1414,    0.000832 },

+            { 0x1919,    0.001998 },

+            { 0x1e1e,    0.003612 },

+            { 0x2323,    0.005736 },

+            { 0x2828,    0.008428 },

+            { 0x2d2d,    0.011745 },

+            { 0x3232,    0.015740 },

+            { 0x3737,    0.020463 },

+            { 0x3c3c,    0.025960 },

+            { 0x4141,    0.032275 },

+            { 0x4646,    0.039449 },

+            { 0x4b4b,    0.047519 },

+            { 0x5050,    0.056520 },

+            { 0x5555,    0.066484 },

+            { 0x5a5a,    0.077439 },

+            { 0x5f5f,    0.089409 },

+            { 0x6464,    0.102418 },

+            { 0x6969,    0.116485 },

+            { 0x6e6e,    0.131625 },

+            { 0x7373,    0.147853 },

+            { 0x7878,    0.165176 },

+            { 0x7d7d,    0.183604 },

+            { 0x8282,    0.203140 },

+            { 0x8787,    0.223783 },

+            { 0x8c8c,    0.245533 },

+            { 0x9191,    0.268384 },

+            { 0x9696,    0.292327 },

+            { 0x9b9b,    0.317351 },

+            { 0xa0a0,    0.343441 },

+            { 0xa5a5,    0.370580 },

+            { 0xaaaa,    0.398747 },

+            { 0xafaf,    0.427919 },

+            { 0xb4b4,    0.458068 },

+            { 0xb9b9,    0.489165 },

+            { 0xbebe,    0.521176 },

+            { 0xc3c3,    0.554067 },

+            { 0xc8c8,    0.587797 },

+            { 0xcdcd,    0.622324 },

+            { 0xd2d2,    0.657604 },

+            { 0xd7d7,    0.693588 },

+            { 0xdcdc,    0.730225 },

+            { 0xe1e1,    0.767459 },

+            { 0xe6e6,    0.805235 },

+            { 0xebeb,    0.843491 },

+            { 0xf0f0,    0.882164 },

+            { 0xf5f5,    0.921187 },

+            { 0xfafa,    0.960490 },

+            { 0xffff,    1.000000 }

+};

+

+static IntensityRec const Default_RGB_BlueTuples[] = {

+    /* {unsigned short value, XcmsFloat intensity} */

+            { 0x0000,    0.000000 },

+            { 0x0e0e,    0.000000 },

+            { 0x0f0f,    0.001341 },

+            { 0x1414,    0.002080 },

+            { 0x1919,    0.003188 },

+            { 0x1e1e,    0.004729 },

+            { 0x2323,    0.006766 },

+            { 0x2828,    0.009357 },

+            { 0x2d2d,    0.012559 },

+            { 0x3232,    0.016424 },

+            { 0x3737,    0.021004 },

+            { 0x3c3c,    0.026344 },

+            { 0x4141,    0.032489 },

+            { 0x4646,    0.039481 },

+            { 0x4b4b,    0.047357 },

+            { 0x5050,    0.056154 },

+            { 0x5555,    0.065903 },

+            { 0x5a5a,    0.076634 },

+            { 0x5f5f,    0.088373 },

+            { 0x6464,    0.101145 },

+            { 0x6969,    0.114968 },

+            { 0x6e6e,    0.129862 },

+            { 0x7373,    0.145841 },

+            { 0x7878,    0.162915 },

+            { 0x7d7d,    0.181095 },

+            { 0x8282,    0.200386 },

+            { 0x8787,    0.220791 },

+            { 0x8c8c,    0.242309 },

+            { 0x9191,    0.264937 },

+            { 0x9696,    0.288670 },

+            { 0x9b9b,    0.313499 },

+            { 0xa0a0,    0.339410 },

+            { 0xa5a5,    0.366390 },

+            { 0xaaaa,    0.394421 },

+            { 0xafaf,    0.423481 },

+            { 0xb4b4,    0.453547 },

+            { 0xb9b9,    0.484592 },

+            { 0xbebe,    0.516587 },

+            { 0xc3c3,    0.549498 },

+            { 0xc8c8,    0.583291 },

+            { 0xcdcd,    0.617925 },

+            { 0xd2d2,    0.653361 },

+            { 0xd7d7,    0.689553 },

+            { 0xdcdc,    0.726454 },

+            { 0xe1e1,    0.764013 },

+            { 0xe6e6,    0.802178 },

+            { 0xebeb,    0.840891 },

+            { 0xf0f0,    0.880093 },

+            { 0xf5f5,    0.919723 },

+            { 0xfafa,    0.959715 },

+	    { 0xffff,    1.00000 }

+};

+

+static IntensityTbl Default_RGB_RedTbl = {

+    /* IntensityRec *pBase */

+	(IntensityRec *) Default_RGB_RedTuples,

+    /* unsigned int nEntries */

+	52

+};

+

+static IntensityTbl Default_RGB_GreenTbl = {

+    /* IntensityRec *pBase */

+	(IntensityRec *)Default_RGB_GreenTuples,

+    /* unsigned int nEntries */

+	50

+};

+

+static IntensityTbl Default_RGB_BlueTbl = {

+    /* IntensityRec *pBase */

+	(IntensityRec *)Default_RGB_BlueTuples,

+    /* unsigned int nEntries */

+	51

+};

+

+static LINEAR_RGB_SCCData Default_RGB_SCCData = {

+    /* XcmsFloat XYZtoRGBmatrix[3][3] */

+  {

+    { 3.48340481253539000, -1.52176374927285200, -0.55923133354049780 },

+    {-1.07152751306193600,  1.96593795204372400,  0.03673691339553462 },

+    { 0.06351179790497788, -0.20020501000496480,  0.81070942031648220 }

+  },

+

+    /* XcmsFloat RGBtoXYZmatrix[3][3] */

+  {

+    { 0.38106149108714790, 0.32025712365352110, 0.24834578525933100 },

+    { 0.20729745115140850, 0.68054638776373240, 0.11215616108485920 },

+    { 0.02133944350088028, 0.14297193020246480, 1.24172892629665500 }

+  },

+

+    /* IntensityTbl *pRedTbl */

+	&Default_RGB_RedTbl,

+

+    /* IntensityTbl *pGreenTbl */

+	&Default_RGB_GreenTbl,

+

+    /* IntensityTbl *pBlueTbl */

+	&Default_RGB_BlueTbl

+};

+

+/************************************************************************

+ *									*

+ *			PRIVATE ROUTINES				*

+ *									*

+ ************************************************************************/

+

+/*

+ *	NAME

+ *		LINEAR_RGB_InitSCCData()

+ *

+ *	SYNOPSIS

+ */

+static Status

+LINEAR_RGB_InitSCCData(

+    Display *dpy,

+    int screenNumber,

+    XcmsPerScrnInfo *pPerScrnInfo)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		XcmsFailure if failed.

+ *		XcmsSuccess if succeeded.

+ *

+ */

+{

+    Atom  CorrectAtom = XInternAtom (dpy, XDCCC_CORRECT_ATOM_NAME, True);

+    Atom  MatrixAtom  = XInternAtom (dpy, XDCCC_MATRIX_ATOM_NAME, True);

+    int	  format_return, count, cType, nTables;

+    unsigned long nitems, nbytes_return;

+    char *property_return, *pChar;

+    XcmsFloat *pValue;

+#ifdef ALLDEBUG

+    IntensityRec *pIRec;

+#endif /* ALLDEBUG */

+    VisualID visualID;

+

+    LINEAR_RGB_SCCData *pScreenData, *pScreenDefaultData;

+    XcmsIntensityMap *pNewMap;

+

+    /*

+     * Allocate memory for pScreenData

+     */

+    if (!(pScreenData = pScreenDefaultData = (LINEAR_RGB_SCCData *)

+		      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {

+	return(XcmsFailure);

+    }

+

+    /*

+     *  1. Get the XYZ->RGB and RGB->XYZ matrices

+     */

+

+    if (MatrixAtom == None ||

+	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), MatrixAtom,

+	   &format_return, &nitems, &nbytes_return, &property_return) ||

+	   nitems != 18 || format_return != 32) {

+	/*

+	 * As per the XDCCC, there must be 18 data items and each must be

+	 * in 32 bits !

+	 */

+	goto FreeSCCData;

+

+    } else {

+

+	/*

+	 * RGBtoXYZ and XYZtoRGB matrices

+	 */

+	pValue = (XcmsFloat *) pScreenData;

+	pChar = property_return;

+	for (count = 0; count < 18; count++) {

+	    *pValue++ = (long)_XcmsGetElement(format_return, &pChar,

+		    &nitems) / (XcmsFloat)XDCCC_NUMBER;

+	}

+	Xfree ((char *)property_return);

+	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =

+		pScreenData->RGBtoXYZmatrix[0][0] +

+		pScreenData->RGBtoXYZmatrix[0][1] +

+		pScreenData->RGBtoXYZmatrix[0][2];

+	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =

+		pScreenData->RGBtoXYZmatrix[1][0] +

+		pScreenData->RGBtoXYZmatrix[1][1] +

+		pScreenData->RGBtoXYZmatrix[1][2];

+	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =

+		pScreenData->RGBtoXYZmatrix[2][0] +

+		pScreenData->RGBtoXYZmatrix[2][1] +

+		pScreenData->RGBtoXYZmatrix[2][2];

+

+	/*

+	 * Compute the Screen White Point

+	 */

+	if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )

+		|| (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {

+	    goto FreeSCCData;

+	} else {

+	    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;

+	}

+	pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;

+	pPerScrnInfo->screenWhitePt.pixel = 0;

+

+#ifdef PDEBUG

+	printf ("RGB to XYZ Matrix values:\n");

+	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",

+		pScreenData->RGBtoXYZmatrix[0][0],

+		pScreenData->RGBtoXYZmatrix[0][1],

+		pScreenData->RGBtoXYZmatrix[0][2],

+		pScreenData->RGBtoXYZmatrix[1][0],

+		pScreenData->RGBtoXYZmatrix[1][1],

+		pScreenData->RGBtoXYZmatrix[1][2],

+		pScreenData->RGBtoXYZmatrix[2][0],

+		pScreenData->RGBtoXYZmatrix[2][1],

+		pScreenData->RGBtoXYZmatrix[2][2]);

+	printf ("XYZ to RGB Matrix values:\n");

+	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",

+		pScreenData->XYZtoRGBmatrix[0][0],

+		pScreenData->XYZtoRGBmatrix[0][1],

+		pScreenData->XYZtoRGBmatrix[0][2],

+		pScreenData->XYZtoRGBmatrix[1][0],

+		pScreenData->XYZtoRGBmatrix[1][1],

+		pScreenData->XYZtoRGBmatrix[1][2],

+		pScreenData->XYZtoRGBmatrix[2][0],

+		pScreenData->XYZtoRGBmatrix[2][1],

+		pScreenData->XYZtoRGBmatrix[2][2]);

+	printf ("Screen White Pt value: %f %f %f\n",

+		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X,

+		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y,

+		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z);

+#endif /* PDEBUG */

+    }

+

+    /*

+     *	2. Get the Intensity Profile

+     */

+    if (CorrectAtom == None ||

+	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), CorrectAtom,

+	   &format_return, &nitems, &nbytes_return, &property_return)) {

+	goto FreeSCCData;

+    }

+

+    pChar = property_return;

+

+    while (nitems) {

+	switch (format_return) {

+	  case 8:

+	    /*

+	     * Must have at least:

+	     *		VisualID0

+	     *		VisualID1

+	     *		VisualID2

+	     *		VisualID3

+	     *		type

+	     *		count

+	     *		length

+	     *		intensity1

+	     *		intensity2

+	     */

+	    if (nitems < 9) {

+		goto Free_property_return;

+	    }

+	    count = 3;

+	    break;

+	  case 16:

+	    /*

+	     * Must have at least:

+	     *		VisualID0

+	     *		VisualID3

+	     *		type

+	     *		count

+	     *		length

+	     *		intensity1

+	     *		intensity2

+	     */

+	    if (nitems < 7) {

+		goto Free_property_return;

+	    }

+	    count = 1;

+	    break;

+	  case 32:

+	    /*

+	     * Must have at least:

+	     *		VisualID0

+	     *		type

+	     *		count

+	     *		length

+	     *		intensity1

+	     *		intensity2

+	     */

+	    if (nitems < 6) {

+		goto Free_property_return;

+	    }

+	    count = 0;

+	    break;

+	  default:

+	    goto Free_property_return;

+	}

+

+	/*

+	 * Get VisualID

+	 */

+	visualID = _XcmsGetElement(format_return, &pChar, &nitems);

+	while (count--) {

+	    visualID = visualID << format_return;

+	    visualID |= _XcmsGetElement(format_return, &pChar, &nitems);

+	}

+

+	if (visualID == 0) {

+	    /*

+	     * This is a shared intensity table

+	     */

+	    pScreenData = pScreenDefaultData;

+	} else {

+	    /*

+	     * This is a per-Visual intensity table

+	     */

+	    if (!(pScreenData = (LINEAR_RGB_SCCData *)

+			      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {

+		return(XcmsFailure);

+	    }

+	    /* copy matrices */

+	    memcpy((char *)pScreenData, (char *)pScreenDefaultData,

+		   18 * sizeof(XcmsFloat));

+

+	    /* Create, initialize, and add map */

+	    if (!(pNewMap = (XcmsIntensityMap *)

+			      Xcalloc (1, sizeof(XcmsIntensityMap)))) {

+		Xfree((char *)pScreenData);

+		return(XcmsFailure);

+	    }

+	    pNewMap->visualID = visualID;

+	    pNewMap->screenData = (XPointer)pScreenData;

+	    pNewMap->pFreeScreenData = LINEAR_RGB_FreeSCCData;

+	    pNewMap->pNext =

+		    (XcmsIntensityMap *)dpy->cms.perVisualIntensityMaps;

+	    dpy->cms.perVisualIntensityMaps = (XPointer)pNewMap;

+	    dpy->free_funcs->intensityMaps = _XcmsFreeIntensityMaps;

+	}

+

+	cType = _XcmsGetElement(format_return, &pChar, &nitems);

+	nTables = _XcmsGetElement(format_return, &pChar, &nitems);

+

+	if (cType == 0) {

+

+	    /* Red Intensity Table */

+	    if (!(pScreenData->pRedTbl = (IntensityTbl *)

+		    Xcalloc (1, sizeof(IntensityTbl)))) {

+		goto Free_property_return;

+	    }

+	    if (_XcmsGetTableType0(pScreenData->pRedTbl, format_return, &pChar,

+		    &nitems) == XcmsFailure) {

+		goto FreeRedTbl;

+	    }

+

+	    if (nTables == 1) {

+		/* Green Intensity Table */

+		pScreenData->pGreenTbl = pScreenData->pRedTbl;

+		/* Blue Intensity Table */

+		pScreenData->pBlueTbl = pScreenData->pRedTbl;

+	    } else {

+		/* Green Intensity Table */

+		if (!(pScreenData->pGreenTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeRedTblElements;

+		}

+		if (_XcmsGetTableType0(pScreenData->pGreenTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeGreenTbl;

+		}

+

+		/* Blue Intensity Table */

+		if (!(pScreenData->pBlueTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeGreenTblElements;

+		}

+		if (_XcmsGetTableType0(pScreenData->pBlueTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeBlueTbl;

+		}

+	    }

+	} else if (cType == 1) {

+	    /* Red Intensity Table */

+	    if (!(pScreenData->pRedTbl = (IntensityTbl *)

+		    Xcalloc (1, sizeof(IntensityTbl)))) {

+		goto Free_property_return;

+	    }

+	    if (_XcmsGetTableType1(pScreenData->pRedTbl, format_return, &pChar,

+		    &nitems) == XcmsFailure) {

+		goto FreeRedTbl;

+	    }

+

+	    if (nTables == 1) {

+

+		/* Green Intensity Table */

+		pScreenData->pGreenTbl = pScreenData->pRedTbl;

+		/* Blue Intensity Table */

+		pScreenData->pBlueTbl = pScreenData->pRedTbl;

+

+	    } else {

+

+		/* Green Intensity Table */

+		if (!(pScreenData->pGreenTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeRedTblElements;

+		}

+		if (_XcmsGetTableType1(pScreenData->pGreenTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeGreenTbl;

+		}

+

+		/* Blue Intensity Table */

+		if (!(pScreenData->pBlueTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeGreenTblElements;

+		}

+		if (_XcmsGetTableType1(pScreenData->pBlueTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeBlueTbl;

+		}

+	    }

+	} else {

+	    goto Free_property_return;

+	}

+

+#ifdef ALLDEBUG

+	printf ("Intensity Table  RED    %d\n", pScreenData->pRedTbl->nEntries);

+	pIRec = (IntensityRec *) pScreenData->pRedTbl->pBase;

+	for (count = 0; count < pScreenData->pRedTbl->nEntries; count++, pIRec++) {

+	    printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);

+	}

+	if (pScreenData->pGreenTbl->pBase != pScreenData->pRedTbl->pBase) {

+	    printf ("Intensity Table  GREEN  %d\n", pScreenData->pGreenTbl->nEntries);

+	    pIRec = (IntensityRec *)pScreenData->pGreenTbl->pBase;

+	    for (count = 0; count < pScreenData->pGreenTbl->nEntries; count++, pIRec++) {

+		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);

+	    }

+	}

+	if (pScreenData->pBlueTbl->pBase != pScreenData->pRedTbl->pBase) {

+	    printf ("Intensity Table  BLUE   %d\n", pScreenData->pBlueTbl->nEntries);

+	    pIRec = (IntensityRec *) pScreenData->pBlueTbl->pBase;

+	    for (count = 0; count < pScreenData->pBlueTbl->nEntries; count++, pIRec++) {

+		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);

+	    }

+	}

+#endif /* ALLDEBUG */

+    }

+

+    Xfree ((char *)property_return);

+

+    /* Free the old memory and use the new structure created. */

+    LINEAR_RGB_FreeSCCData(pPerScrnInfo->screenData);

+

+    pPerScrnInfo->functionSet = (XPointer) &XcmsLinearRGBFunctionSet;

+

+    pPerScrnInfo->screenData = (XPointer) pScreenData;

+

+    pPerScrnInfo->state = XcmsInitSuccess;

+

+    return(XcmsSuccess);

+

+FreeBlueTblElements:

+    Xfree((char *)pScreenData->pBlueTbl->pBase);

+

+FreeBlueTbl:

+    Xfree((char *)pScreenData->pBlueTbl);

+

+FreeGreenTblElements:

+    Xfree((char *)pScreenData->pBlueTbl->pBase);

+

+FreeGreenTbl:

+    Xfree((char *)pScreenData->pGreenTbl);

+

+FreeRedTblElements:

+    Xfree((char *)pScreenData->pRedTbl->pBase);

+

+FreeRedTbl:

+    Xfree((char *)pScreenData->pRedTbl);

+

+Free_property_return:

+    Xfree ((char *)property_return);

+

+FreeSCCData:

+    Xfree((char *)pScreenData);

+    pPerScrnInfo->state = XcmsInitNone;

+    return(XcmsFailure);

+}

+

+

+/*

+ *	NAME

+ *		LINEAR_RGB_FreeSCCData()

+ *

+ *	SYNOPSIS

+ */

+static void

+LINEAR_RGB_FreeSCCData(

+    XPointer pScreenDataTemp)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		0 if failed.

+ *		1 if succeeded with no modifications.

+ *

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData = (LINEAR_RGB_SCCData *) pScreenDataTemp;

+

+    if (pScreenData && pScreenData != &Default_RGB_SCCData) {

+	if (pScreenData->pRedTbl) {

+	    if (pScreenData->pGreenTbl) {

+		if (pScreenData->pRedTbl->pBase !=

+		    pScreenData->pGreenTbl->pBase) {

+		    if (pScreenData->pGreenTbl->pBase) {

+			Xfree ((char *)pScreenData->pGreenTbl->pBase);

+		    }

+		}

+		if (pScreenData->pGreenTbl != pScreenData->pRedTbl) {

+		    Xfree ((char *)pScreenData->pGreenTbl);

+		}

+	    }

+	    if (pScreenData->pBlueTbl) {

+		if (pScreenData->pRedTbl->pBase !=

+		    pScreenData->pBlueTbl->pBase) {

+		    if (pScreenData->pBlueTbl->pBase) {

+			Xfree ((char *)pScreenData->pBlueTbl->pBase);

+		    }

+		}

+		if (pScreenData->pBlueTbl != pScreenData->pRedTbl) {

+		    Xfree ((char *)pScreenData->pBlueTbl);

+		}

+	    }

+	    if (pScreenData->pRedTbl->pBase) {

+		Xfree ((char *)pScreenData->pRedTbl->pBase);

+	    }

+	    Xfree ((char *)pScreenData->pRedTbl);

+	}

+	Xfree ((char *)pScreenData);

+    }

+}

+

+

+

+/************************************************************************

+ *									*

+ *			API PRIVATE ROUTINES				*

+ *									*

+ ************************************************************************/

+

+/*

+ *	NAME

+ *		_XcmsGetTableType0

+ *

+ *	SYNOPSIS

+ */

+static Status

+_XcmsGetTableType0(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		XcmsFailure if failed.

+ *		XcmsSuccess if succeeded.

+ *

+ */

+{

+    unsigned int nElements;

+    IntensityRec *pIRec;

+

+    nElements = pTbl->nEntries =

+	    _XcmsGetElement(format, pChar, pCount) + 1;

+    if (!(pIRec = pTbl->pBase = (IntensityRec *)

+	  Xcalloc (nElements, sizeof(IntensityRec)))) {

+	return(XcmsFailure);

+    }

+

+    switch (format) {

+      case 8:

+	for (; nElements--; pIRec++) {

+	    /* 0xFFFF/0xFF = 0x101 */

+	    pIRec->value = _XcmsGetElement (format, pChar, pCount) * 0x101;

+	    pIRec->intensity =

+		    _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)255.0;

+	}

+	break;

+      case 16:

+	for (; nElements--; pIRec++) {

+	    pIRec->value = _XcmsGetElement (format, pChar, pCount);

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)65535.0;

+	}

+	break;

+      case 32:

+	for (; nElements--; pIRec++) {

+	    pIRec->value = _XcmsGetElement (format, pChar, pCount);

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)4294967295.0;

+	}

+	break;

+      default:

+	return(XcmsFailure);

+    }

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		_XcmsGetTableType1

+ *

+ *	SYNOPSIS

+ */

+static Status

+_XcmsGetTableType1(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		XcmsFailure if failed.

+ *		XcmsSuccess if succeeded.

+ *

+ */

+{

+    int count;

+    unsigned int max_index;

+    IntensityRec *pIRec;

+

+    max_index = _XcmsGetElement(format, pChar, pCount);

+    pTbl->nEntries = max_index + 1;

+    if (!(pIRec = pTbl->pBase = (IntensityRec *)

+	  Xcalloc (max_index+1, sizeof(IntensityRec)))) {

+	return(XcmsFailure);

+    }

+

+    switch (format) {

+      case 8:

+	for (count = 0; count < max_index+1; count++, pIRec++) {

+	    pIRec->value = (count * 65535) / max_index;

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)255.0;

+	}

+	break;

+      case 16:

+	for (count = 0; count < max_index+1; count++, pIRec++) {

+	    pIRec->value = (count * 65535) / max_index;

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)65535.0;

+	}

+	break;

+      case 32:

+	for (count = 0; count < max_index+1; count++, pIRec++) {

+	    pIRec->value = (count * 65535) / max_index;

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)4294967295.0;

+	}

+	break;

+      default:

+	return(XcmsFailure);

+    }

+

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		ValueCmp

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsValueCmp(

+    IntensityRec *p1, IntensityRec *p2)

+/*

+ *	DESCRIPTION

+ *		Compares the value component of two IntensityRec

+ *		structures.

+ *

+ *	RETURNS

+ *		0 if p1->value is equal to p2->value

+ *		< 0 if p1->value is less than p2->value

+ *		> 0 if p1->value is greater than p2->value

+ *

+ */

+{

+    return (p1->value - p2->value);

+}

+

+

+/*

+ *	NAME

+ *		IntensityCmp

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsIntensityCmp(

+    IntensityRec *p1, IntensityRec *p2)

+/*

+ *	DESCRIPTION

+ *		Compares the intensity component of two IntensityRec

+ *		structures.

+ *

+ *	RETURNS

+ *		0 if equal;

+ *		< 0 if first precedes second

+ *		> 0 if first succeeds second

+ *

+ */

+{

+    if (p1->intensity < p2->intensity) {

+	return (-1);

+    }

+    if (p1->intensity > p2->intensity) {

+	return (XcmsSuccess);

+    }

+    return (XcmsFailure);

+}

+

+/*

+ *	NAME

+ *		ValueInterpolation

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+static int

+_XcmsValueInterpolation(

+    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,

+    int bitsPerRGB)

+/*

+ *	DESCRIPTION

+ *		Based on a given value, performs a linear interpolation

+ *		on the intensities between two IntensityRec structures.

+ *		Note that the bitsPerRGB parameter is ignored.

+ *

+ *	RETURNS

+ *		Returns 0 if failed; otherwise non-zero.

+ */

+{

+    XcmsFloat ratio;

+

+    ratio = ((XcmsFloat)key->value - (XcmsFloat)lo->value) /

+	((XcmsFloat)hi->value - (XcmsFloat)lo->value);

+    answer->value = key->value;

+    answer->intensity = (hi->intensity - lo->intensity) * ratio;

+    answer->intensity += lo->intensity;

+    return (XcmsSuccess);

+}

+

+/*

+ *	NAME

+ *		IntensityInterpolation

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsIntensityInterpolation(

+    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,

+    int bitsPerRGB)

+/*

+ *	DESCRIPTION

+ *		Based on a given intensity, performs a linear interpolation

+ *		on the values between two IntensityRec structures.

+ *		The bitsPerRGB parameter is necessary to perform rounding

+ *		to the correct number of significant bits.

+ *

+ *	RETURNS

+ *		Returns 0 if failed; otherwise non-zero.

+ */

+{

+    XcmsFloat ratio;

+    long target, up, down;

+    int shift = 16 - bitsPerRGB;

+    int max_color = (1 << bitsPerRGB) - 1;

+

+    ratio = (key->intensity - lo->intensity) / (hi->intensity - lo->intensity);

+    answer->intensity = key->intensity;

+    target = hi->value - lo->value;

+    target *= ratio;

+    target += lo->value;

+

+    /*

+     * Ok now, lets find the closest in respects to bits per RGB

+     */

+    up = ((target >> shift) * 0xFFFF) / max_color;

+    if (up < target) {

+	down = up;

+	up = (MIN((down >> shift) + 1, max_color) * 0xFFFF) / max_color;

+    } else {

+	down = (MAX((up >> shift) - 1, 0) * 0xFFFF) / max_color;

+    }

+    answer->value = ((up - target) < (target - down) ? up : down);

+    answer->value &= MASK[bitsPerRGB];

+    return (XcmsSuccess);

+}

+

+

+

+typedef int (*comparProcp)(

+    char *p1,

+    char *p2);

+typedef int (*interpolProcp)(

+    char *key,

+    char *lo,

+    char *hi,

+    char *answer,

+    int bitsPerRGB);

+

+/*

+ *	NAME

+ *		_XcmsTableSearch

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsTableSearch(

+    char *key,

+    int bitsPerRGB,

+    char *base,

+    unsigned nel,

+    unsigned nKeyPtrSize,

+    int (*compar)(

+        char *p1,

+        char *p2),

+    int (*interpol)(

+        char *key,

+        char *lo,

+        char *hi,

+        char *answer,

+        int bitsPerRGB),

+    char *answer)

+

+/*

+ *	DESCRIPTION

+ *		A binary search through the specificied table.

+ *

+ *	RETURNS

+ *		Returns 0 if failed; otherwise non-zero.

+ *

+ */

+{

+    char *hi, *lo, *mid, *last;

+    int result;

+

+    last = hi = base + ((nel - 1) * nKeyPtrSize);

+    mid = lo = base;

+

+    /* use only the significants bits, then scale into 16 bits */

+    ((IntensityRec *)key)->value = ((unsigned long)

+	    (((IntensityRec *)key)->value >> (16 - bitsPerRGB)) * 0xFFFF)

+	    / ((1 << bitsPerRGB) - 1);

+

+    /* Special case so that zero intensity always maps to zero value */

+    if ((*compar) (key,lo) <= 0) {

+	memcpy (answer, lo, nKeyPtrSize);

+	((IntensityRec *)answer)->value &= MASK[bitsPerRGB];

+	return XcmsSuccess;

+    }

+    while (mid != last) {

+	last = mid;

+	mid = lo + (((unsigned)(hi - lo) / nKeyPtrSize) / 2) * nKeyPtrSize;

+	result = (*compar) (key, mid);

+	if (result == 0) {

+

+	    memcpy(answer, mid, nKeyPtrSize);

+	    ((IntensityRec *)answer)->value &= MASK[bitsPerRGB];

+	    return (XcmsSuccess);

+	} else if (result < 0) {

+	    hi = mid;

+	} else {

+	    lo = mid;

+	}

+    }

+

+    /*

+     * If we got to here, we didn't find a solution, so we

+     * need to apply interpolation.

+     */

+    return ((*interpol)(key, lo, hi, answer, bitsPerRGB));

+}

+

+

+/*

+ *      NAME

+ *		_XcmsMatVec - multiply a 3 x 3 by a 3 x 1 vector

+ *

+ *	SYNOPSIS

+ */

+static void _XcmsMatVec(

+    XcmsFloat *pMat, XcmsFloat *pIn, XcmsFloat *pOut)

+/*

+ *      DESCRIPTION

+ *		Multiply the passed vector by the passed matrix to return a

+ *		vector. Matrix is 3x3, vectors are of length 3.

+ *

+ *	RETURNS

+ *		void

+ */

+{

+    int i, j;

+

+    for (i = 0; i < 3; i++) {

+	pOut[i] = 0.0;

+	for (j = 0; j < 3; j++)

+	    pOut[i] += *(pMat+(i*3)+j) * pIn[j];

+    }

+}

+

+

+/************************************************************************

+ *									*

+ *			 PUBLIC ROUTINES				*

+ *									*

+ ************************************************************************/

+

+

+/*

+ *	NAME

+ *		XcmsLRGB_RGB_ParseString

+ *

+ *	SYNOPSIS

+ */

+static int

+XcmsLRGB_RGB_ParseString(

+    register char *spec,

+    XcmsColor *pColor)

+/*

+ *	DESCRIPTION

+ *		This routines takes a string and attempts to convert

+ *		it into a XcmsColor structure with XcmsRGBFormat.

+ *

+ *	RETURNS

+ *		0 if failed, non-zero otherwise.

+ */

+{

+    register int n, i;

+    unsigned short r, g, b;

+    char c;

+    char *pchar;

+    unsigned short *pShort;

+

+    /*

+     * Check for old # format

+     */

+    if (*spec == '#') {

+	/*

+	 * Attempt to parse the value portion.

+	 */

+	spec++;

+	n = strlen(spec);

+	if (n != 3 && n != 6 && n != 9 && n != 12) {

+	    return(XcmsFailure);

+	}

+

+	n /= 3;

+	g = b = 0;

+	do {

+	    r = g;

+	    g = b;

+	    b = 0;

+	    for (i = n; --i >= 0; ) {

+		c = *spec++;

+		b <<= 4;

+		if (c >= '0' && c <= '9')

+		    b |= c - '0';

+		/* assume string in lowercase

+		else if (c >= 'A' && c <= 'F')

+		    b |= c - ('A' - 10);

+		*/

+		else if (c >= 'a' && c <= 'f')

+		    b |= c - ('a' - 10);

+		else return (XcmsFailure);

+	    }

+	} while (*spec != '\0');

+

+	/*

+	 * Succeeded !

+	 */

+	n <<= 2;

+	n = 16 - n;

+	/* shift instead of scale, to match old broken semantics */

+	pColor->spec.RGB.red = r << n;

+	pColor->spec.RGB.green = g << n;

+	pColor->spec.RGB.blue =  b << n;

+    } else {

+	if ((pchar = strchr(spec, ':')) == NULL) {

+	    return(XcmsFailure);

+	}

+	n = (int)(pchar - spec);

+

+	/*

+	 * Check for proper prefix.

+	 */

+	if (strncmp(spec, _XcmsRGB_prefix, n) != 0) {

+	    return(XcmsFailure);

+	}

+

+	/*

+	 * Attempt to parse the value portion.

+	 */

+	spec += (n + 1);

+	pShort = &pColor->spec.RGB.red;

+	for (i = 0; i < 3; i++, pShort++, spec++) {

+	    n = 0;

+	    *pShort = 0;

+	    while (*spec != '/' && *spec != '\0') {

+		if (++n > 4) {

+		    return(XcmsFailure);

+		}

+		c = *spec++;

+		*pShort <<= 4;

+		if (c >= '0' && c <= '9')

+		    *pShort |= c - '0';

+		/* assume string in lowercase

+		else if (c >= 'A' && c <= 'F')

+		    *pShort |= c - ('A' - 10);

+		*/

+		else if (c >= 'a' && c <= 'f')

+		    *pShort |= c - ('a' - 10);

+		else return (XcmsFailure);

+	    }

+	    if (n == 0)

+		return (XcmsFailure);

+	    if (n < 4) {

+		*pShort = ((unsigned long)*pShort * 0xFFFF) / ((1 << n*4) - 1);

+	    }

+	}

+    }

+    pColor->format = XcmsRGBFormat;

+    pColor->pixel = 0;

+    return (XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsLRGB_RGBi_ParseString

+ *

+ *	SYNOPSIS

+ */

+static int

+XcmsLRGB_RGBi_ParseString(

+    register char *spec,

+    XcmsColor *pColor)

+/*

+ *	DESCRIPTION

+ *		This routines takes a string and attempts to convert

+ *		it into a XcmsColor structure with XcmsRGBiFormat.

+ *		The assumed RGBi string syntax is:

+ *		    RGBi:<r>/<g>/<b>

+ *		Where r, g, and b are in string input format for floats

+ *		consisting of:

+ *		    a. an optional sign

+ *		    b. a string of numbers possibly containing a decimal point,

+ *		    c. an optional exponent field containing an 'E' or 'e'

+ *			followed by a possibly signed integer string.

+ *

+ *	RETURNS

+ *		0 if failed, non-zero otherwise.

+ */

+{

+    int n;

+    char *pchar;

+

+    if ((pchar = strchr(spec, ':')) == NULL) {

+	return(XcmsFailure);

+    }

+    n = (int)(pchar - spec);

+

+    /*

+     * Check for proper prefix.

+     */

+    if (strncmp(spec, _XcmsRGBi_prefix, n) != 0) {

+	return(XcmsFailure);

+    }

+

+    /*

+     * Attempt to parse the value portion.

+     */

+    if (sscanf(spec + n + 1, "%lf/%lf/%lf",

+	    &pColor->spec.RGBi.red,

+	    &pColor->spec.RGBi.green,

+	    &pColor->spec.RGBi.blue) != 3) {

+        char *s; /* Maybe failed due to locale */

+        int f;

+        if ((s = strdup(spec))) {

+            for (f = 0; s[f]; ++f)

+                if (s[f] == '.')

+                    s[f] = ',';

+                else if (s[f] == ',')

+                    s[f] = '.';

+	    if (sscanf(s + n + 1, "%lf/%lf/%lf",

+		       &pColor->spec.RGBi.red,

+		       &pColor->spec.RGBi.green,

+		       &pColor->spec.RGBi.blue) != 3) {

+                free(s);

+                return(XcmsFailure);

+            }

+            free(s);

+        } else

+	    return(XcmsFailure);

+    }

+

+    /*

+     * Succeeded !

+     */

+    pColor->format = XcmsRGBiFormat;

+    pColor->pixel = 0;

+    return (XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsCIEXYZToRGBi - convert CIE XYZ to RGB

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsCIEXYZToRGBi(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to an array of Bool		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGB format to RGBi format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded without gamut compression.

+ *		XcmsSuccessWithCompression if succeeded with gamut

+ *			compression.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsFloat tmp[3];

+    int hasCompressed = 0;

+    unsigned int i;

+    XcmsColor *pColor = pXcmsColors_in_out;

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    /*

+     * XcmsColors should be White Point Adjusted, if necessary, by now!

+     */

+

+    /*

+     * NEW!!! for extended gamut compression

+     *

+     * 1. Need to zero out pCompressed

+     *

+     * 2. Need to save initial address of pColor

+     *

+     * 3. Need to save initial address of pCompressed

+     */

+

+    for (i = 0; i < nColors; i++) {

+

+	/* Make sure format is XcmsCIEXYZFormat */

+	if (pColor->format != XcmsCIEXYZFormat) {

+	    return(XcmsFailure);

+	}

+

+	/* Multiply [A]-1 * [XYZ] to get RGB intensity */

+	_XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,

+		(XcmsFloat *) &pColor->spec, tmp);

+

+	if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||

+	    (MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {

+

+	    /*

+	     * RGBi out of screen's gamut

+	     */

+

+	    if (ccc->gamutCompProc == NULL) {

+		/*

+		 * Aha!! Here's that little trick that will allow

+		 * gamut compression routines to get the out of bound

+		 * RGBi.

+		 */

+		memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));

+		pColor->format = XcmsRGBiFormat;

+		return(XcmsFailure);

+	    } else if ((*ccc->gamutCompProc)(ccc, pXcmsColors_in_out, nColors,

+		    i, pCompressed) == 0) {

+		return(XcmsFailure);

+	    }

+

+	    /*

+	     * The gamut compression function should return colors in CIEXYZ

+	     *	Also check again to if the new color is within gamut.

+	     */

+	    if (pColor->format != XcmsCIEXYZFormat) {

+		return(XcmsFailure);

+	    }

+	    _XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,

+		    (XcmsFloat *) &pColor->spec, tmp);

+	    if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||

+		(MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {

+		return(XcmsFailure);

+	    }

+	    hasCompressed++;

+	}

+	memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));

+	/* These if statements are done to ensure the fudge factor is */

+	/* is taken into account. */

+	if (pColor->spec.RGBi.red < 0.0) {

+		pColor->spec.RGBi.red = 0.0;

+	} else if (pColor->spec.RGBi.red > 1.0) {

+		pColor->spec.RGBi.red = 1.0;

+	}

+	if (pColor->spec.RGBi.green < 0.0) {

+		pColor->spec.RGBi.green = 0.0;

+	} else if (pColor->spec.RGBi.green > 1.0) {

+		pColor->spec.RGBi.green = 1.0;

+	}

+	if (pColor->spec.RGBi.blue < 0.0) {

+		pColor->spec.RGBi.blue = 0.0;

+	} else if (pColor->spec.RGBi.blue > 1.0) {

+		pColor->spec.RGBi.blue = 1.0;

+	}

+	(pColor++)->format = XcmsRGBiFormat;

+    }

+    return (hasCompressed ? XcmsSuccessWithCompression : XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		LINEAR_RGBi_to_CIEXYZ - convert RGBi to CIEXYZ

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsRGBiToCIEXYZ(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to a bit array		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGBi format to CIEXYZ format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsFloat tmp[3];

+

+    /*

+     * pCompressed ignored in this function.

+     */

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    /*

+     * XcmsColors should be White Point Adjusted, if necessary, by now!

+     */

+

+    while (nColors--) {

+

+	/* Multiply [A]-1 * [XYZ] to get RGB intensity */

+	_XcmsMatVec((XcmsFloat *) pScreenData->RGBtoXYZmatrix,

+		(XcmsFloat *) &pXcmsColors_in_out->spec, tmp);

+

+	memcpy((char *)&pXcmsColors_in_out->spec, (char *)tmp, sizeof(tmp));

+	(pXcmsColors_in_out++)->format = XcmsCIEXYZFormat;

+    }

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsRGBiToRGB

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsRGBiToRGB(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to a bit array		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGBi format to RGB format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded without gamut compression.

+ *		XcmsSuccessWithCompression if succeeded with gamut

+ *			compression.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsRGB tmpRGB;

+    IntensityRec keyIRec, answerIRec;

+

+    /*

+     * pCompressed ignored in this function.

+     */

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    while (nColors--) {

+

+	/* Make sure format is XcmsRGBiFormat */

+	if (pXcmsColors_in_out->format != XcmsRGBiFormat) {

+	    return(XcmsFailure);

+	}

+

+	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.red;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pRedTbl->pBase,

+		(unsigned)pScreenData->pRedTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGB.red = answerIRec.value;

+

+	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.green;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pGreenTbl->pBase,

+		(unsigned)pScreenData->pGreenTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGB.green = answerIRec.value;

+

+	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.blue;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pBlueTbl->pBase,

+		(unsigned)pScreenData->pBlueTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGB.blue = answerIRec.value;

+

+	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGB, sizeof(XcmsRGB));

+	(pXcmsColors_in_out++)->format = XcmsRGBFormat;

+    }

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsRGBToRGBi

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsRGBToRGBi(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to a bit array		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGB format to RGBi format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsRGBi tmpRGBi;

+    IntensityRec keyIRec, answerIRec;

+

+    /*

+     * pCompressed ignored in this function.

+     */

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    while (nColors--) {

+

+	/* Make sure format is XcmsRGBFormat */

+	if (pXcmsColors_in_out->format != XcmsRGBFormat) {

+	    return(XcmsFailure);

+	}

+

+	keyIRec.value = pXcmsColors_in_out->spec.RGB.red;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pRedTbl->pBase,

+		(unsigned)pScreenData->pRedTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGBi.red = answerIRec.intensity;

+

+	keyIRec.value = pXcmsColors_in_out->spec.RGB.green;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pGreenTbl->pBase,

+		(unsigned)pScreenData->pGreenTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGBi.green = answerIRec.intensity;

+

+	keyIRec.value = pXcmsColors_in_out->spec.RGB.blue;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pBlueTbl->pBase,

+		(unsigned)pScreenData->pBlueTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGBi.blue = answerIRec.intensity;

+

+	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGBi, sizeof(XcmsRGBi));

+	(pXcmsColors_in_out++)->format = XcmsRGBiFormat;

+    }

+    return(XcmsSuccess);

+}

+

+/*

+ *	NAME

+ *		_XcmsInitScrnDefaultInfo

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+int

+_XcmsLRGB_InitScrnDefault(

+    Display *dpy,

+    int screenNumber,

+    XcmsPerScrnInfo *pPerScrnInfo)

+/*

+ *	DESCRIPTION

+ *		Given a display and screen number, this routine attempts

+ *		to initialize the Xcms per Screen Info structure

+ *		(XcmsPerScrnInfo) with defaults.

+ *

+ *	RETURNS

+ *		Returns zero if initialization failed; non-zero otherwise.

+ */

+{

+    pPerScrnInfo->screenData = (XPointer)&Default_RGB_SCCData;

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =

+		Default_RGB_SCCData.RGBtoXYZmatrix[0][0] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[0][1] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[0][2];

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =

+		Default_RGB_SCCData.RGBtoXYZmatrix[1][0] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[1][1] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[1][2];

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =

+		Default_RGB_SCCData.RGBtoXYZmatrix[2][0] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[2][1] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[2][2];

+    if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )

+	    || (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {

+	pPerScrnInfo->screenData = (XPointer)NULL;

+	pPerScrnInfo->state = XcmsInitNone;

+	return(0);

+    }

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;

+    pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;

+    pPerScrnInfo->screenWhitePt.pixel = 0;

+    pPerScrnInfo->functionSet = (XPointer)&XcmsLinearRGBFunctionSet;

+    pPerScrnInfo->state = XcmsInitFailure; /* default initialization */

+    return(1);

+}

diff --git a/libX11/src/xcms/cmsProp.c b/libX11/src/xcms/cmsProp.c
index 856ae84b6..b732b800f 100644
--- a/libX11/src/xcms/cmsProp.c
+++ b/libX11/src/xcms/cmsProp.c
@@ -1,146 +1,149 @@
-
-/*
- *
- * 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
- *		XcmsProp.c
- *
- *	DESCRIPTION
- *		This utility routines for manipulating properties.
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xcmsint.h"
-#include "Cv.h"
-
-
-/************************************************************************
- *									*
- *			API PRIVATE ROUTINES				*
- *									*
- ************************************************************************/
-
-
-/*
- *	NAME
- *		_XcmsGetElement -- get an element value from the property passed
- *
- *	SYNOPSIS
- */
-unsigned long
-_XcmsGetElement(
-    int             format,
-    char            **pValue,
-    unsigned long   *pCount)
-/*
- *	DESCRIPTION
- *	    Get the next element from the property and return it.
- *	    Also increment the pointer the amount needed.
- *
- *	Returns
- *	    unsigned long
- */
-{
-    unsigned long value;
-
-    switch (format) {
-      case 32:
-	value = *((unsigned long *)(*pValue)) & 0xFFFFFFFF;
-	*pValue += sizeof(unsigned long);
-	*pCount -= 1;
-	break;
-      case 16:
-	value = *((unsigned short *)(*pValue));
-	*pValue += sizeof(unsigned short);
-	*pCount -= 1;
-	break;
-      case 8:
-	value = *((unsigned char *) (*pValue));
-	*pValue += 1;
-	*pCount -= 1;
-	break;
-      default:
-	value = 0;
-	break;
-    }
-    return(value);
-}
-
-
-/*
- *	NAME
- *		_XcmsGetProperty -- Determine the existance of a property
- *
- *	SYNOPSIS
- */
-int
-_XcmsGetProperty(
-    Display *pDpy,
-    Window  w,
-    Atom property,
-    int             *pFormat,
-    unsigned long   *pNItems,
-    unsigned long   *pNBytes,
-    char            **pValue)
-/*
- *	DESCRIPTION
- *
- *	Returns
- *	    0 if property does not exist.
- *	    1 if property exists.
- */
-{
-    char *prop_ret;
-    int format_ret;
-    long len = 6516;
-    unsigned long nitems_ret, after_ret;
-    Atom atom_ret;
-
-    while (XGetWindowProperty (pDpy, w, property, 0, len, False,
-			       XA_INTEGER, &atom_ret, &format_ret,
-			       &nitems_ret, &after_ret,
-			       (unsigned char **)&prop_ret)) {
-	if (after_ret > 0) {
-	    len += nitems_ret * (format_ret >> 3);
-	    XFree (prop_ret);
-	} else {
-	    break;
-	}
-    }
-    if (format_ret == 0 || nitems_ret == 0) {
-	/* the property does not exist or is of an unexpected type */
-	return(XcmsFailure);
-    }
-
-    *pFormat = format_ret;
-    *pNItems = nitems_ret;
-    *pNBytes = nitems_ret * (format_ret >> 3);
-    *pValue = prop_ret;
-    return(XcmsSuccess);
-}
+

+/*

+ *

+ * 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

+ *		XcmsProp.c

+ *

+ *	DESCRIPTION

+ *		This utility routines for manipulating properties.

+ *

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xcmsint.h"

+#include "Cv.h"

+

+

+/************************************************************************

+ *									*

+ *			API PRIVATE ROUTINES				*

+ *									*

+ ************************************************************************/

+

+

+/*

+ *	NAME

+ *		_XcmsGetElement -- get an element value from the property passed

+ *

+ *	SYNOPSIS

+ */

+unsigned long

+_XcmsGetElement(

+    int             format,

+    char            **pValue,

+    unsigned long   *pCount)

+/*

+ *	DESCRIPTION

+ *	    Get the next element from the property and return it.

+ *	    Also increment the pointer the amount needed.

+ *

+ *	Returns

+ *	    unsigned long

+ */

+{

+    unsigned long value;

+

+    switch (format) {

+      case 32:

+	value = *((unsigned long *)(*pValue)) & 0xFFFFFFFF;

+	*pValue += sizeof(unsigned long);

+	*pCount -= 1;

+	break;

+      case 16:

+	value = *((unsigned short *)(*pValue));

+	*pValue += sizeof(unsigned short);

+	*pCount -= 1;

+	break;

+      case 8:

+	value = *((unsigned char *) (*pValue));

+	*pValue += 1;

+	*pCount -= 1;

+	break;

+      default:

+	value = 0;

+	break;

+    }

+    return(value);

+}

+

+

+/*

+ *	NAME

+ *		_XcmsGetProperty -- Determine the existance of a property

+ *

+ *	SYNOPSIS

+ */

+int

+_XcmsGetProperty(

+    Display *pDpy,

+    Window  w,

+    Atom property,

+    int             *pFormat,

+    unsigned long   *pNItems,

+    unsigned long   *pNBytes,

+    char            **pValue)

+/*

+ *	DESCRIPTION

+ *

+ *	Returns

+ *	    0 if property does not exist.

+ *	    1 if property exists.

+ */

+{

+    char *prop_ret;

+    int format_ret;

+    long len = 6516;

+    unsigned long nitems_ret, after_ret;

+    Atom atom_ret;

+    int xgwp_ret;

+

+    while (True) {

+	xgwp_ret = XGetWindowProperty (pDpy, w, property, 0, len, False,

+				       XA_INTEGER, &atom_ret, &format_ret,

+				       &nitems_ret, &after_ret,

+				       (unsigned char **)&prop_ret);

+	if (xgwp_ret == Success && after_ret > 0) {

+	    len += nitems_ret * (format_ret >> 3);

+	    XFree (prop_ret);

+	} else {

+	    break;

+	}

+    }

+    if (xgwp_ret != Success || format_ret == 0 || nitems_ret == 0) {

+	/* the property does not exist or is of an unexpected type or

+           getting window property failed */

+	return(XcmsFailure);

+    }

+

+    *pFormat = format_ret;

+    *pNItems = nitems_ret;

+    *pNBytes = nitems_ret * (format_ret >> 3);

+    *pValue = prop_ret;

+    return(XcmsSuccess);

+}

diff --git a/mesalib/include/EGL/eglplatform.h b/mesalib/include/EGL/eglplatform.h
index 18dfb83a0..98ae998ae 100644
--- a/mesalib/include/EGL/eglplatform.h
+++ b/mesalib/include/EGL/eglplatform.h
@@ -78,6 +78,12 @@ typedef int   EGLNativeDisplayType;
 typedef void *EGLNativeWindowType;

 typedef void *EGLNativePixmapType;

 

+#elif defined(WL_EGL_PLATFORM)

+

+typedef struct wl_egl_display *EGLNativeDisplayType;

+typedef struct wl_egl_pixmap  *EGLNativePixmapType;

+typedef struct wl_egl_window  *EGLNativeWindowType;

+

 #elif defined(__unix__) || defined(__unix)

 

 #ifdef MESA_EGL_NO_X11_HEADERS

diff --git a/mesalib/scons/gallium.py b/mesalib/scons/gallium.py
index df060f01a..d51ffb5aa 100644
--- a/mesalib/scons/gallium.py
+++ b/mesalib/scons/gallium.py
@@ -1,584 +1,590 @@
-"""gallium
-
-Frontend-tool for Gallium3D architecture.
-
-"""
-
-#
-# Copyright 2008 Tungsten Graphics, Inc., Cedar Park, Texas.
-# All Rights Reserved.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a
-# copy of this software and associated documentation files (the
-# "Software"), to deal in the Software without restriction, including
-# without limitation the rights to use, copy, modify, merge, publish,
-# distribute, sub license, and/or sell copies of the Software, and to
-# permit persons to whom the Software is furnished to do so, subject to
-# the following conditions:
-#
-# The above copyright notice and this permission notice (including the
-# next paragraph) shall be included in all copies or substantial portions
-# of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
-# IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR
-# ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-
-
-import distutils.version
-import os
-import os.path
-import re
-import subprocess
-
-import SCons.Action
-import SCons.Builder
-import SCons.Scanner
-
-
-def symlink(target, source, env):
-    target = str(target[0])
-    source = str(source[0])
-    if os.path.islink(target) or os.path.exists(target):
-        os.remove(target)
-    os.symlink(os.path.basename(source), target)
-
-def install(env, source, subdir):
-    target_dir = os.path.join(env.Dir('#.').srcnode().abspath, env['build_dir'], subdir)
-    return env.Install(target_dir, source)
-
-def install_program(env, source):
-    return install(env, source, 'bin')
-
-def install_shared_library(env, sources, version = ()):
-    targets = []
-    install_dir = os.path.join(env.Dir('#.').srcnode().abspath, env['build_dir'])
-    version = tuple(map(str, version))
-    if env['SHLIBSUFFIX'] == '.dll':
-        dlls = env.FindIxes(sources, 'SHLIBPREFIX', 'SHLIBSUFFIX')
-        targets += install(env, dlls, 'bin')
-        libs = env.FindIxes(sources, 'LIBPREFIX', 'LIBSUFFIX')
-        targets += install(env, libs, 'lib')
-    else:
-        for source in sources:
-            target_dir =  os.path.join(install_dir, 'lib')
-            target_name = '.'.join((str(source),) + version)
-            last = env.InstallAs(os.path.join(target_dir, target_name), source)
-            targets += last
-            while len(version):
-                version = version[:-1]
-                target_name = '.'.join((str(source),) + version)
-                action = SCons.Action.Action(symlink, "$TARGET -> $SOURCE")
-                last = env.Command(os.path.join(target_dir, target_name), last, action) 
-                targets += last
-    return targets
-
-
-def createInstallMethods(env):
-    env.AddMethod(install_program, 'InstallProgram')
-    env.AddMethod(install_shared_library, 'InstallSharedLibrary')
-
-
-def num_jobs():
-    try:
-        return int(os.environ['NUMBER_OF_PROCESSORS'])
-    except (ValueError, KeyError):
-        pass
-
-    try:
-        return os.sysconf('SC_NPROCESSORS_ONLN')
-    except (ValueError, OSError, AttributeError):
-        pass
-
-    try:
-        return int(os.popen2("sysctl -n hw.ncpu")[1].read())
-    except ValueError:
-        pass
-
-    return 1
-
-
-def pkg_config_modules(env, name, modules):
-    '''Simple wrapper for pkg-config.'''
-
-    env[name] = False
-
-    if env['platform'] == 'windows':
-        return
-
-    if not env.Detect('pkg-config'):
-        return
-
-    if subprocess.call(["pkg-config", "--exists", ' '.join(modules)]) != 0:
-        return
-
-    # Put -I and -L flags directly into the environment, as these don't affect
-    # the compilation of targets that do not use them
-    try:
-        env.ParseConfig('pkg-config --cflags-only-I --libs-only-L ' + ' '.join(modules))
-    except OSError:
-        return
-
-    # Other flags may affect the compilation of unrelated targets, so store
-    # them with a prefix, (e.g., XXX_CFLAGS, XXX_LIBS, etc)
-    try:
-        flags = env.ParseFlags('!pkg-config --cflags-only-other --libs-only-l --libs-only-other ' + ' '.join(modules))
-    except OSError:
-        return
-    prefix = name.upper() + '_'
-    for flag_name, flag_value in flags.iteritems():
-        env[prefix + flag_name] = flag_value
-
-    env[name] = True
-
-
-
-def generate(env):
-    """Common environment generation code"""
-
-    # Toolchain
-    platform = env['platform']
-    if env['toolchain'] == 'default':
-        if platform == 'winddk':
-            env['toolchain'] = 'winddk'
-        elif platform == 'wince':
-            env['toolchain'] = 'wcesdk'
-    env.Tool(env['toolchain'])
-
-    # Allow override compiler and specify additional flags from environment
-    if os.environ.has_key('CC'):
-        env['CC'] = os.environ['CC']
-        # Update CCVERSION to match
-        pipe = SCons.Action._subproc(env, [env['CC'], '--version'],
-                                     stdin = 'devnull',
-                                     stderr = 'devnull',
-                                     stdout = subprocess.PIPE)
-        if pipe.wait() == 0:
-            line = pipe.stdout.readline()
-            match = re.search(r'[0-9]+(\.[0-9]+)+', line)
-            if match:
-                env['CCVERSION'] = match.group(0)
-    if os.environ.has_key('CFLAGS'):
-        env['CCFLAGS'] += SCons.Util.CLVar(os.environ['CFLAGS'])
-    if os.environ.has_key('CXX'):
-        env['CXX'] = os.environ['CXX']
-    if os.environ.has_key('CXXFLAGS'):
-        env['CXXFLAGS'] += SCons.Util.CLVar(os.environ['CXXFLAGS'])
-    if os.environ.has_key('LDFLAGS'):
-        env['LINKFLAGS'] += SCons.Util.CLVar(os.environ['LDFLAGS'])
-
-    env['gcc'] = 'gcc' in os.path.basename(env['CC']).split('-')
-    env['msvc'] = env['CC'] == 'cl'
-
-    # shortcuts
-    machine = env['machine']
-    platform = env['platform']
-    x86 = env['machine'] == 'x86'
-    ppc = env['machine'] == 'ppc'
-    gcc = env['gcc']
-    msvc = env['msvc']
-
-    # Backwards compatability with the debug= profile= options
-    if env['build'] == 'debug':
-        if not env['debug']:
-            print 'scons: warning: debug option is deprecated and will be removed eventually; use instead'
-            print
-            print ' scons build=release'
-            print
-            env['build'] = 'release'
-        if env['profile']:
-            print 'scons: warning: profile option is deprecated and will be removed eventually; use instead'
-            print
-            print ' scons build=profile'
-            print
-            env['build'] = 'profile'
-    if False:
-        # Enforce SConscripts to use the new build variable
-        env.popitem('debug')
-        env.popitem('profile')
-    else:
-        # Backwards portability with older sconscripts
-        if env['build'] in ('debug', 'checked'):
-            env['debug'] = True
-            env['profile'] = False
-        if env['build'] == 'profile':
-            env['debug'] = False
-            env['profile'] = True
-        if env['build'] == 'release':
-            env['debug'] = False
-            env['profile'] = False
-
-    # Put build output in a separate dir, which depends on the current
-    # configuration. See also http://www.scons.org/wiki/AdvancedBuildExample
-    build_topdir = 'build'
-    build_subdir = env['platform']
-    if env['machine'] != 'generic':
-        build_subdir += '-' + env['machine']
-    if env['build'] != 'release':
-        build_subdir += '-' +  env['build']
-    build_dir = os.path.join(build_topdir, build_subdir)
-    # Place the .sconsign file in the build dir too, to avoid issues with
-    # different scons versions building the same source file
-    env['build_dir'] = build_dir
-    env.SConsignFile(os.path.join(build_dir, '.sconsign'))
-    if 'SCONS_CACHE_DIR' in os.environ:
-        print 'scons: Using build cache in %s.' % (os.environ['SCONS_CACHE_DIR'],)
-        env.CacheDir(os.environ['SCONS_CACHE_DIR'])
-    env['CONFIGUREDIR'] = os.path.join(build_dir, 'conf')
-    env['CONFIGURELOG'] = os.path.join(os.path.abspath(build_dir), 'config.log')
-
-    # Parallel build
-    if env.GetOption('num_jobs') <= 1:
-        env.SetOption('num_jobs', num_jobs())
-
-    env.Decider('MD5-timestamp')
-    env.SetOption('max_drift', 60)
-
-    # C preprocessor options
-    cppdefines = []
-    if env['build'] in ('debug', 'checked'):
-        cppdefines += ['DEBUG']
-    else:
-        cppdefines += ['NDEBUG']
-    if env['build'] == 'profile':
-        cppdefines += ['PROFILE']
-    if platform == 'windows':
-        cppdefines += [
-            'WIN32',
-            '_WINDOWS',
-            #'_UNICODE',
-            #'UNICODE',
-            # http://msdn.microsoft.com/en-us/library/aa383745.aspx
-            ('_WIN32_WINNT', '0x0601'),
-            ('WINVER', '0x0601'),
-        ]
-        if msvc and env['toolchain'] != 'winddk':
-            cppdefines += [
-                'VC_EXTRALEAN',
-                '_USE_MATH_DEFINES',
-                '_CRT_SECURE_NO_WARNINGS',
-                '_CRT_SECURE_NO_DEPRECATE',
-                '_SCL_SECURE_NO_WARNINGS',
-                '_SCL_SECURE_NO_DEPRECATE',
-            ]
-        if env['build'] in ('debug', 'checked'):
-            cppdefines += ['_DEBUG']
-    if env['toolchain'] == 'winddk':
-        # Mimic WINDDK's builtin flags. See also:
-        # - WINDDK's bin/makefile.new i386mk.inc for more info.
-        # - buildchk_wxp_x86.log files, generated by the WINDDK's build
-        # - http://alter.org.ua/docs/nt_kernel/vc8_proj/
-        if machine == 'x86':
-            cppdefines += ['_X86_', 'i386']
-        if machine == 'x86_64':
-            cppdefines += ['_AMD64_', 'AMD64']
-    if platform == 'winddk':
-        cppdefines += [
-            'STD_CALL',
-            ('CONDITION_HANDLING', '1'),
-            ('NT_INST', '0'),
-            ('WIN32', '100'),
-            ('_NT1X_', '100'),
-            ('WINNT', '1'),
-            ('_WIN32_WINNT', '0x0501'), # minimum required OS version
-            ('WINVER', '0x0501'),
-            ('_WIN32_IE', '0x0603'),
-            ('WIN32_LEAN_AND_MEAN', '1'),
-            ('DEVL', '1'),
-            ('__BUILDMACHINE__', 'WinDDK'),
-            ('FPO', '0'),
-        ]
-        if env['build'] in ('debug', 'checked'):
-            cppdefines += [('DBG', 1)]
-    if platform == 'wince':
-        cppdefines += [
-            '_CRT_SECURE_NO_DEPRECATE',
-            '_USE_32BIT_TIME_T',
-            'UNICODE',
-            '_UNICODE',
-            ('UNDER_CE', '600'),
-            ('_WIN32_WCE', '0x600'),
-            'WINCEOEM',
-            'WINCEINTERNAL',
-            'WIN32',
-            'STRICT',
-            'x86',
-            '_X86_',
-            'INTERNATIONAL',
-            ('INTLMSG_CODEPAGE', '1252'),
-        ]
-    if platform == 'windows':
-        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_USER']
-    if platform == 'winddk':
-        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_DISPLAY']
-    if platform == 'wince':
-        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_CE']
-        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_CE_OGL']
-    if platform == 'embedded':
-        cppdefines += ['PIPE_OS_EMBEDDED']
-    env.Append(CPPDEFINES = cppdefines)
-
-    # C compiler options
-    cflags = [] # C
-    cxxflags = [] # C++
-    ccflags = [] # C & C++
-    if gcc:
-        ccversion = env['CCVERSION']
-        if env['build'] == 'debug':
-            ccflags += ['-O0']
-        elif ccversion.startswith('4.2.'):
-            # gcc 4.2.x optimizer is broken
-            print "warning: gcc 4.2.x optimizer is broken -- disabling optimizations"
-            ccflags += ['-O0']
-        else:
-            ccflags += ['-O3']
-        ccflags += ['-g3']
-        if env['build'] in ('checked', 'profile'):
-            # See http://code.google.com/p/jrfonseca/wiki/Gprof2Dot#Which_options_should_I_pass_to_gcc_when_compiling_for_profiling?
-            ccflags += [
-                '-fno-omit-frame-pointer',
-                '-fno-optimize-sibling-calls',
-            ]
-        if env['machine'] == 'x86':
-            ccflags += [
-                '-m32',
-                #'-march=pentium4',
-            ]
-            if distutils.version.LooseVersion(ccversion) >= distutils.version.LooseVersion('4.2'):
-                # NOTE: We need to ensure stack is realigned given that we
-                # produce shared objects, and have no control over the stack
-                # alignment policy of the application. Therefore we need
-                # -mstackrealign ore -mincoming-stack-boundary=2.
-                #
-                # XXX: We could have SSE without -mstackrealign if we always used
-                # __attribute__((force_align_arg_pointer)), but that's not
-                # always the case.
-                ccflags += [
-                    '-mstackrealign', # ensure stack is aligned
-                    '-mmmx', '-msse', '-msse2', # enable SIMD intrinsics
-                    #'-mfpmath=sse',
-                ]
-            if platform in ['windows', 'darwin']:
-                # Workaround http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37216
-                ccflags += ['-fno-common']
-        if env['machine'] == 'x86_64':
-            ccflags += ['-m64']
-            if platform == 'darwin':
-                ccflags += ['-fno-common']
-        # See also:
-        # - http://gcc.gnu.org/onlinedocs/gcc/Warning-Options.html
-        ccflags += [
-            '-Wall',
-            '-Wno-long-long',
-            '-ffast-math',
-            '-fmessage-length=0', # be nice to Eclipse
-        ]
-        cflags += [
-            '-Wmissing-prototypes',
-            '-std=gnu99',
-        ]
-        if distutils.version.LooseVersion(ccversion) >= distutils.version.LooseVersion('4.0'):
-            ccflags += [
-                '-Wmissing-field-initializers',
-            ]
-        if distutils.version.LooseVersion(ccversion) >= distutils.version.LooseVersion('4.2'):
-            ccflags += [
-                '-Werror=pointer-arith',
-            ]
-            cflags += [
-                '-Werror=declaration-after-statement',
-            ]
-    if msvc:
-        # See also:
-        # - http://msdn.microsoft.com/en-us/library/19z1t1wy.aspx
-        # - cl /?
-        if env['build'] == 'debug':
-            ccflags += [
-              '/Od', # disable optimizations
-              '/Oi', # enable intrinsic functions
-              '/Oy-', # disable frame pointer omission
-              '/GL-', # disable whole program optimization
-            ]
-        else:
-            ccflags += [
-                '/O2', # optimize for speed
-                '/GL', # enable whole program optimization
-            ]
-        ccflags += [
-            '/fp:fast', # fast floating point 
-            '/W3', # warning level
-            #'/Wp64', # enable 64 bit porting warnings
-        ]
-        if env['machine'] == 'x86':
-            ccflags += [
-                #'/arch:SSE2', # use the SSE2 instructions
-            ]
-        if platform == 'windows':
-            ccflags += [
-                # TODO
-            ]
-        if platform == 'winddk':
-            ccflags += [
-                '/Zl', # omit default library name in .OBJ
-                '/Zp8', # 8bytes struct member alignment
-                '/Gy', # separate functions for linker
-                '/Gm-', # disable minimal rebuild
-                '/WX', # treat warnings as errors
-                '/Gz', # __stdcall Calling convention
-                '/GX-', # disable C++ EH
-                '/GR-', # disable C++ RTTI
-                '/GF', # enable read-only string pooling
-                '/G6', # optimize for PPro, P-II, P-III
-                '/Ze', # enable extensions
-                '/Gi-', # disable incremental compilation
-                '/QIfdiv-', # disable Pentium FDIV fix
-                '/hotpatch', # prepares an image for hotpatching.
-                #'/Z7', #enable old-style debug info
-            ]
-        if platform == 'wince':
-            # See also C:\WINCE600\public\common\oak\misc\makefile.def
-            ccflags += [
-                '/Zl', # omit default library name in .OBJ
-                '/GF', # enable read-only string pooling
-                '/GR-', # disable C++ RTTI
-                '/GS', # enable security checks
-                # Allow disabling language conformance to maintain backward compat
-                #'/Zc:wchar_t-', # don't force wchar_t as native type, instead of typedef
-                #'/Zc:forScope-', # don't enforce Standard C++ for scoping rules
-                #'/wd4867',
-                #'/wd4430',
-                #'/MT',
-                #'/U_MT',
-            ]
-        # Automatic pdb generation
-        # See http://scons.tigris.org/issues/show_bug.cgi?id=1656
-        env.EnsureSConsVersion(0, 98, 0)
-        env['PDB'] = '${TARGET.base}.pdb'
-    env.Append(CCFLAGS = ccflags)
-    env.Append(CFLAGS = cflags)
-    env.Append(CXXFLAGS = cxxflags)
-
-    if env['platform'] == 'windows' and msvc:
-        # Choose the appropriate MSVC CRT
-        # http://msdn.microsoft.com/en-us/library/2kzt1wy3.aspx
-        if env['build'] in ('debug', 'checked'):
-            env.Append(CCFLAGS = ['/MTd'])
-            env.Append(SHCCFLAGS = ['/LDd'])
-        else:
-            env.Append(CCFLAGS = ['/MT'])
-            env.Append(SHCCFLAGS = ['/LD'])
-    
-    # Assembler options
-    if gcc:
-        if env['machine'] == 'x86':
-            env.Append(ASFLAGS = ['-m32'])
-        if env['machine'] == 'x86_64':
-            env.Append(ASFLAGS = ['-m64'])
-
-    # Linker options
-    linkflags = []
-    shlinkflags = []
-    if gcc:
-        if env['machine'] == 'x86':
-            linkflags += ['-m32']
-        if env['machine'] == 'x86_64':
-            linkflags += ['-m64']
-        if env['platform'] not in ('darwin'):
-            shlinkflags += [
-                '-Wl,-Bsymbolic',
-            ]
-        # Handle circular dependencies in the libraries
-        if env['platform'] in ('darwin'):
-            pass
-        else:
-            env['_LIBFLAGS'] = '-Wl,--start-group ' + env['_LIBFLAGS'] + ' -Wl,--end-group'
-    if msvc:
-        if env['build'] != 'debug':
-            # enable Link-time Code Generation
-            linkflags += ['/LTCG']
-            env.Append(ARFLAGS = ['/LTCG'])
-    if platform == 'windows' and msvc:
-        # See also:
-        # - http://msdn2.microsoft.com/en-us/library/y0zzbyt4.aspx
-        linkflags += [
-            '/fixed:no',
-            '/incremental:no',
-        ]
-    if platform == 'winddk':
-        linkflags += [
-            '/merge:_PAGE=PAGE',
-            '/merge:_TEXT=.text',
-            '/section:INIT,d',
-            '/opt:ref',
-            '/opt:icf',
-            '/ignore:4198,4010,4037,4039,4065,4070,4078,4087,4089,4221',
-            '/incremental:no',
-            '/fullbuild',
-            '/release',
-            '/nodefaultlib',
-            '/wx',
-            '/debug',
-            '/debugtype:cv',
-            '/version:5.1',
-            '/osversion:5.1',
-            '/functionpadmin:5',
-            '/safeseh',
-            '/pdbcompress',
-            '/stack:0x40000,0x1000',
-            '/driver',
-            '/align:0x80',
-            '/subsystem:native,5.01',
-            '/base:0x10000',
-
-            '/entry:DrvEnableDriver',
-        ]
-        if env['build'] != 'release':
-            linkflags += [
-                '/MAP', # http://msdn.microsoft.com/en-us/library/k7xkk3e2.aspx
-            ]
-    if platform == 'wince':
-        linkflags += [
-            '/nodefaultlib',
-            #'/incremental:no',
-            #'/fullbuild',
-            '/entry:_DllMainCRTStartup',
-        ]
-    env.Append(LINKFLAGS = linkflags)
-    env.Append(SHLINKFLAGS = shlinkflags)
-
-    # We have C++ in several libraries, so always link with the C++ compiler
-    if env['gcc']:
-        env['LINK'] = env['CXX']
-
-    # Default libs
-    env.Append(LIBS = [])
-
-    # Load tools
-    if env['llvm']:
-        env.Tool('llvm')
-        env.Tool('udis86')
-    
-    pkg_config_modules(env, 'x11', ['x11', 'xext'])
-    pkg_config_modules(env, 'drm', ['libdrm'])
-    pkg_config_modules(env, 'drm_intel', ['libdrm_intel'])
-    pkg_config_modules(env, 'drm_radeon', ['libdrm_radeon'])
-    pkg_config_modules(env, 'xorg', ['xorg-server'])
-    pkg_config_modules(env, 'kms', ['libkms'])
-
-    env['dri'] = env['x11'] and env['drm']
-
-    # Custom builders and methods
-    env.Tool('custom')
-    createInstallMethods(env)
-
-    # for debugging
-    #print env.Dump()
-
-
-def exists(env):
-    return 1
+"""gallium

+

+Frontend-tool for Gallium3D architecture.

+

+"""

+

+#

+# Copyright 2008 Tungsten Graphics, Inc., Cedar Park, Texas.

+# All Rights Reserved.

+#

+# Permission is hereby granted, free of charge, to any person obtaining a

+# copy of this software and associated documentation files (the

+# "Software"), to deal in the Software without restriction, including

+# without limitation the rights to use, copy, modify, merge, publish,

+# distribute, sub license, and/or sell copies of the Software, and to

+# permit persons to whom the Software is furnished to do so, subject to

+# the following conditions:

+#

+# The above copyright notice and this permission notice (including the

+# next paragraph) shall be included in all copies or substantial portions

+# of the Software.

+#

+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.

+# IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR

+# ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,

+# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE

+# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+#

+

+

+import distutils.version

+import os

+import os.path

+import re

+import subprocess

+

+import SCons.Action

+import SCons.Builder

+import SCons.Scanner

+

+

+def symlink(target, source, env):

+    target = str(target[0])

+    source = str(source[0])

+    if os.path.islink(target) or os.path.exists(target):

+        os.remove(target)

+    os.symlink(os.path.basename(source), target)

+

+def install(env, source, subdir):

+    target_dir = os.path.join(env.Dir('#.').srcnode().abspath, env['build_dir'], subdir)

+    return env.Install(target_dir, source)

+

+def install_program(env, source):

+    return install(env, source, 'bin')

+

+def install_shared_library(env, sources, version = ()):

+    targets = []

+    install_dir = os.path.join(env.Dir('#.').srcnode().abspath, env['build_dir'])

+    version = tuple(map(str, version))

+    if env['SHLIBSUFFIX'] == '.dll':

+        dlls = env.FindIxes(sources, 'SHLIBPREFIX', 'SHLIBSUFFIX')

+        targets += install(env, dlls, 'bin')

+        libs = env.FindIxes(sources, 'LIBPREFIX', 'LIBSUFFIX')

+        targets += install(env, libs, 'lib')

+    else:

+        for source in sources:

+            target_dir =  os.path.join(install_dir, 'lib')

+            target_name = '.'.join((str(source),) + version)

+            last = env.InstallAs(os.path.join(target_dir, target_name), source)

+            targets += last

+            while len(version):

+                version = version[:-1]

+                target_name = '.'.join((str(source),) + version)

+                action = SCons.Action.Action(symlink, "$TARGET -> $SOURCE")

+                last = env.Command(os.path.join(target_dir, target_name), last, action) 

+                targets += last

+    return targets

+

+

+def createInstallMethods(env):

+    env.AddMethod(install_program, 'InstallProgram')

+    env.AddMethod(install_shared_library, 'InstallSharedLibrary')

+

+

+def num_jobs():

+    try:

+        return int(os.environ['NUMBER_OF_PROCESSORS'])

+    except (ValueError, KeyError):

+        pass

+

+    try:

+        return os.sysconf('SC_NPROCESSORS_ONLN')

+    except (ValueError, OSError, AttributeError):

+        pass

+

+    try:

+        return int(os.popen2("sysctl -n hw.ncpu")[1].read())

+    except ValueError:

+        pass

+

+    return 1

+

+

+def pkg_config_modules(env, name, modules):

+    '''Simple wrapper for pkg-config.'''

+

+    env[name] = False

+

+    if env['platform'] == 'windows':

+        return

+

+    if not env.Detect('pkg-config'):

+        return

+

+    if subprocess.call(["pkg-config", "--exists", ' '.join(modules)]) != 0:

+        return

+

+    # Put -I and -L flags directly into the environment, as these don't affect

+    # the compilation of targets that do not use them

+    try:

+        env.ParseConfig('pkg-config --cflags-only-I --libs-only-L ' + ' '.join(modules))

+    except OSError:

+        return

+

+    # Other flags may affect the compilation of unrelated targets, so store

+    # them with a prefix, (e.g., XXX_CFLAGS, XXX_LIBS, etc)

+    try:

+        flags = env.ParseFlags('!pkg-config --cflags-only-other --libs-only-l --libs-only-other ' + ' '.join(modules))

+    except OSError:

+        return

+    prefix = name.upper() + '_'

+    for flag_name, flag_value in flags.iteritems():

+        env[prefix + flag_name] = flag_value

+

+    env[name] = True

+

+

+

+def generate(env):

+    """Common environment generation code"""

+

+    # Toolchain

+    platform = env['platform']

+    if env['toolchain'] == 'default':

+        if platform == 'winddk':

+            env['toolchain'] = 'winddk'

+        elif platform == 'wince':

+            env['toolchain'] = 'wcesdk'

+    env.Tool(env['toolchain'])

+

+    # Allow override compiler and specify additional flags from environment

+    if os.environ.has_key('CC'):

+        env['CC'] = os.environ['CC']

+        # Update CCVERSION to match

+        pipe = SCons.Action._subproc(env, [env['CC'], '--version'],

+                                     stdin = 'devnull',

+                                     stderr = 'devnull',

+                                     stdout = subprocess.PIPE)

+        if pipe.wait() == 0:

+            line = pipe.stdout.readline()

+            match = re.search(r'[0-9]+(\.[0-9]+)+', line)

+            if match:

+                env['CCVERSION'] = match.group(0)

+    if os.environ.has_key('CFLAGS'):

+        env['CCFLAGS'] += SCons.Util.CLVar(os.environ['CFLAGS'])

+    if os.environ.has_key('CXX'):

+        env['CXX'] = os.environ['CXX']

+    if os.environ.has_key('CXXFLAGS'):

+        env['CXXFLAGS'] += SCons.Util.CLVar(os.environ['CXXFLAGS'])

+    if os.environ.has_key('LDFLAGS'):

+        env['LINKFLAGS'] += SCons.Util.CLVar(os.environ['LDFLAGS'])

+

+    env['gcc'] = 'gcc' in os.path.basename(env['CC']).split('-')

+    env['msvc'] = env['CC'] == 'cl'

+

+    # shortcuts

+    machine = env['machine']

+    platform = env['platform']

+    x86 = env['machine'] == 'x86'

+    ppc = env['machine'] == 'ppc'

+    gcc = env['gcc']

+    msvc = env['msvc']

+

+    # Backwards compatability with the debug= profile= options

+    if env['build'] == 'debug':

+        if not env['debug']:

+            print 'scons: warning: debug option is deprecated and will be removed eventually; use instead'

+            print

+            print ' scons build=release'

+            print

+            env['build'] = 'release'

+        if env['profile']:

+            print 'scons: warning: profile option is deprecated and will be removed eventually; use instead'

+            print

+            print ' scons build=profile'

+            print

+            env['build'] = 'profile'

+    if False:

+        # Enforce SConscripts to use the new build variable

+        env.popitem('debug')

+        env.popitem('profile')

+    else:

+        # Backwards portability with older sconscripts

+        if env['build'] in ('debug', 'checked'):

+            env['debug'] = True

+            env['profile'] = False

+        if env['build'] == 'profile':

+            env['debug'] = False

+            env['profile'] = True

+        if env['build'] == 'release':

+            env['debug'] = False

+            env['profile'] = False

+

+    # Put build output in a separate dir, which depends on the current

+    # configuration. See also http://www.scons.org/wiki/AdvancedBuildExample

+    build_topdir = 'build'

+    build_subdir = env['platform']

+    if env['machine'] != 'generic':

+        build_subdir += '-' + env['machine']

+    if env['build'] != 'release':

+        build_subdir += '-' +  env['build']

+    build_dir = os.path.join(build_topdir, build_subdir)

+    # Place the .sconsign file in the build dir too, to avoid issues with

+    # different scons versions building the same source file

+    env['build_dir'] = build_dir

+    env.SConsignFile(os.path.join(build_dir, '.sconsign'))

+    if 'SCONS_CACHE_DIR' in os.environ:

+        print 'scons: Using build cache in %s.' % (os.environ['SCONS_CACHE_DIR'],)

+        env.CacheDir(os.environ['SCONS_CACHE_DIR'])

+    env['CONFIGUREDIR'] = os.path.join(build_dir, 'conf')

+    env['CONFIGURELOG'] = os.path.join(os.path.abspath(build_dir), 'config.log')

+

+    # Parallel build

+    if env.GetOption('num_jobs') <= 1:

+        env.SetOption('num_jobs', num_jobs())

+

+    env.Decider('MD5-timestamp')

+    env.SetOption('max_drift', 60)

+

+    # C preprocessor options

+    cppdefines = []

+    if env['build'] in ('debug', 'checked'):

+        cppdefines += ['DEBUG']

+    else:

+        cppdefines += ['NDEBUG']

+    if env['build'] == 'profile':

+        cppdefines += ['PROFILE']

+    if platform == 'windows':

+        cppdefines += [

+            'WIN32',

+            '_WINDOWS',

+            #'_UNICODE',

+            #'UNICODE',

+            # http://msdn.microsoft.com/en-us/library/aa383745.aspx

+            ('_WIN32_WINNT', '0x0601'),

+            ('WINVER', '0x0601'),

+        ]

+        if msvc and env['toolchain'] != 'winddk':

+            cppdefines += [

+                'VC_EXTRALEAN',

+                '_USE_MATH_DEFINES',

+                '_CRT_SECURE_NO_WARNINGS',

+                '_CRT_SECURE_NO_DEPRECATE',

+                '_SCL_SECURE_NO_WARNINGS',

+                '_SCL_SECURE_NO_DEPRECATE',

+            ]

+        if env['build'] in ('debug', 'checked'):

+            cppdefines += ['_DEBUG']

+    if env['toolchain'] == 'winddk':

+        # Mimic WINDDK's builtin flags. See also:

+        # - WINDDK's bin/makefile.new i386mk.inc for more info.

+        # - buildchk_wxp_x86.log files, generated by the WINDDK's build

+        # - http://alter.org.ua/docs/nt_kernel/vc8_proj/

+        if machine == 'x86':

+            cppdefines += ['_X86_', 'i386']

+        if machine == 'x86_64':

+            cppdefines += ['_AMD64_', 'AMD64']

+    if platform == 'winddk':

+        cppdefines += [

+            'STD_CALL',

+            ('CONDITION_HANDLING', '1'),

+            ('NT_INST', '0'),

+            ('WIN32', '100'),

+            ('_NT1X_', '100'),

+            ('WINNT', '1'),

+            ('_WIN32_WINNT', '0x0501'), # minimum required OS version

+            ('WINVER', '0x0501'),

+            ('_WIN32_IE', '0x0603'),

+            ('WIN32_LEAN_AND_MEAN', '1'),

+            ('DEVL', '1'),

+            ('__BUILDMACHINE__', 'WinDDK'),

+            ('FPO', '0'),

+        ]

+        if env['build'] in ('debug', 'checked'):

+            cppdefines += [('DBG', 1)]

+    if platform == 'wince':

+        cppdefines += [

+            '_CRT_SECURE_NO_DEPRECATE',

+            '_USE_32BIT_TIME_T',

+            'UNICODE',

+            '_UNICODE',

+            ('UNDER_CE', '600'),

+            ('_WIN32_WCE', '0x600'),

+            'WINCEOEM',

+            'WINCEINTERNAL',

+            'WIN32',

+            'STRICT',

+            'x86',

+            '_X86_',

+            'INTERNATIONAL',

+            ('INTLMSG_CODEPAGE', '1252'),

+        ]

+    if platform == 'windows':

+        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_USER']

+    if platform == 'winddk':

+        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_DISPLAY']

+    if platform == 'wince':

+        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_CE']

+        cppdefines += ['PIPE_SUBSYSTEM_WINDOWS_CE_OGL']

+    if platform == 'embedded':

+        cppdefines += ['PIPE_OS_EMBEDDED']

+    env.Append(CPPDEFINES = cppdefines)

+

+    # C compiler options

+    cflags = [] # C

+    cxxflags = [] # C++

+    ccflags = [] # C & C++

+    if gcc:

+        ccversion = env['CCVERSION']

+        if env['build'] == 'debug':

+            ccflags += ['-O0']

+        elif ccversion.startswith('4.2.'):

+            # gcc 4.2.x optimizer is broken

+            print "warning: gcc 4.2.x optimizer is broken -- disabling optimizations"

+            ccflags += ['-O0']

+        else:

+            ccflags += ['-O3']

+        ccflags += ['-g3']

+        if env['build'] in ('checked', 'profile'):

+            # See http://code.google.com/p/jrfonseca/wiki/Gprof2Dot#Which_options_should_I_pass_to_gcc_when_compiling_for_profiling?

+            ccflags += [

+                '-fno-omit-frame-pointer',

+                '-fno-optimize-sibling-calls',

+            ]

+        if env['machine'] == 'x86':

+            ccflags += [

+                '-m32',

+                #'-march=pentium4',

+            ]

+            if distutils.version.LooseVersion(ccversion) >= distutils.version.LooseVersion('4.2'):

+                # NOTE: We need to ensure stack is realigned given that we

+                # produce shared objects, and have no control over the stack

+                # alignment policy of the application. Therefore we need

+                # -mstackrealign ore -mincoming-stack-boundary=2.

+                #

+                # XXX: We could have SSE without -mstackrealign if we always used

+                # __attribute__((force_align_arg_pointer)), but that's not

+                # always the case.

+                ccflags += [

+                    '-mstackrealign', # ensure stack is aligned

+                    '-mmmx', '-msse', '-msse2', # enable SIMD intrinsics

+                    #'-mfpmath=sse',

+                ]

+            if platform in ['windows', 'darwin']:

+                # Workaround http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37216

+                ccflags += ['-fno-common']

+        if env['machine'] == 'x86_64':

+            ccflags += ['-m64']

+            if platform == 'darwin':

+                ccflags += ['-fno-common']

+        # See also:

+        # - http://gcc.gnu.org/onlinedocs/gcc/Warning-Options.html

+        ccflags += [

+            '-Wall',

+            '-Wno-long-long',

+            '-ffast-math',

+            '-fmessage-length=0', # be nice to Eclipse

+        ]

+        cflags += [

+            '-Wmissing-prototypes',

+            '-std=gnu99',

+        ]

+        if distutils.version.LooseVersion(ccversion) >= distutils.version.LooseVersion('4.0'):

+            ccflags += [

+                '-Wmissing-field-initializers',

+            ]

+        if distutils.version.LooseVersion(ccversion) >= distutils.version.LooseVersion('4.2'):

+            ccflags += [

+                '-Werror=pointer-arith',

+            ]

+            cflags += [

+                '-Werror=declaration-after-statement',

+            ]

+    if msvc:

+        # See also:

+        # - http://msdn.microsoft.com/en-us/library/19z1t1wy.aspx

+        # - cl /?

+        if env['build'] == 'debug':

+            ccflags += [

+              '/Od', # disable optimizations

+              '/Oi', # enable intrinsic functions

+              '/Oy-', # disable frame pointer omission

+            ]

+        else:

+            ccflags += [

+                '/O2', # optimize for speed

+            ]

+        if env['build'] == 'release':

+            ccflags += [

+                '/GL', # enable whole program optimization

+            ]

+        else:

+            ccflags += [

+                '/GL-', # disable whole program optimization

+            ]

+        ccflags += [

+            '/fp:fast', # fast floating point 

+            '/W3', # warning level

+            #'/Wp64', # enable 64 bit porting warnings

+        ]

+        if env['machine'] == 'x86':

+            ccflags += [

+                #'/arch:SSE2', # use the SSE2 instructions

+            ]

+        if platform == 'windows':

+            ccflags += [

+                # TODO

+            ]

+        if platform == 'winddk':

+            ccflags += [

+                '/Zl', # omit default library name in .OBJ

+                '/Zp8', # 8bytes struct member alignment

+                '/Gy', # separate functions for linker

+                '/Gm-', # disable minimal rebuild

+                '/WX', # treat warnings as errors

+                '/Gz', # __stdcall Calling convention

+                '/GX-', # disable C++ EH

+                '/GR-', # disable C++ RTTI

+                '/GF', # enable read-only string pooling

+                '/G6', # optimize for PPro, P-II, P-III

+                '/Ze', # enable extensions

+                '/Gi-', # disable incremental compilation

+                '/QIfdiv-', # disable Pentium FDIV fix

+                '/hotpatch', # prepares an image for hotpatching.

+                #'/Z7', #enable old-style debug info

+            ]

+        if platform == 'wince':

+            # See also C:\WINCE600\public\common\oak\misc\makefile.def

+            ccflags += [

+                '/Zl', # omit default library name in .OBJ

+                '/GF', # enable read-only string pooling

+                '/GR-', # disable C++ RTTI

+                '/GS', # enable security checks

+                # Allow disabling language conformance to maintain backward compat

+                #'/Zc:wchar_t-', # don't force wchar_t as native type, instead of typedef

+                #'/Zc:forScope-', # don't enforce Standard C++ for scoping rules

+                #'/wd4867',

+                #'/wd4430',

+                #'/MT',

+                #'/U_MT',

+            ]

+        # Automatic pdb generation

+        # See http://scons.tigris.org/issues/show_bug.cgi?id=1656

+        env.EnsureSConsVersion(0, 98, 0)

+        env['PDB'] = '${TARGET.base}.pdb'

+    env.Append(CCFLAGS = ccflags)

+    env.Append(CFLAGS = cflags)

+    env.Append(CXXFLAGS = cxxflags)

+

+    if env['platform'] == 'windows' and msvc:

+        # Choose the appropriate MSVC CRT

+        # http://msdn.microsoft.com/en-us/library/2kzt1wy3.aspx

+        if env['build'] in ('debug', 'checked'):

+            env.Append(CCFLAGS = ['/MTd'])

+            env.Append(SHCCFLAGS = ['/LDd'])

+        else:

+            env.Append(CCFLAGS = ['/MT'])

+            env.Append(SHCCFLAGS = ['/LD'])

+    

+    # Assembler options

+    if gcc:

+        if env['machine'] == 'x86':

+            env.Append(ASFLAGS = ['-m32'])

+        if env['machine'] == 'x86_64':

+            env.Append(ASFLAGS = ['-m64'])

+

+    # Linker options

+    linkflags = []

+    shlinkflags = []

+    if gcc:

+        if env['machine'] == 'x86':

+            linkflags += ['-m32']

+        if env['machine'] == 'x86_64':

+            linkflags += ['-m64']

+        if env['platform'] not in ('darwin'):

+            shlinkflags += [

+                '-Wl,-Bsymbolic',

+            ]

+        # Handle circular dependencies in the libraries

+        if env['platform'] in ('darwin'):

+            pass

+        else:

+            env['_LIBFLAGS'] = '-Wl,--start-group ' + env['_LIBFLAGS'] + ' -Wl,--end-group'

+    if msvc:

+        if env['build'] == 'release':

+            # enable Link-time Code Generation

+            linkflags += ['/LTCG']

+            env.Append(ARFLAGS = ['/LTCG'])

+    if platform == 'windows' and msvc:

+        # See also:

+        # - http://msdn2.microsoft.com/en-us/library/y0zzbyt4.aspx

+        linkflags += [

+            '/fixed:no',

+            '/incremental:no',

+        ]

+    if platform == 'winddk':

+        linkflags += [

+            '/merge:_PAGE=PAGE',

+            '/merge:_TEXT=.text',

+            '/section:INIT,d',

+            '/opt:ref',

+            '/opt:icf',

+            '/ignore:4198,4010,4037,4039,4065,4070,4078,4087,4089,4221',

+            '/incremental:no',

+            '/fullbuild',

+            '/release',

+            '/nodefaultlib',

+            '/wx',

+            '/debug',

+            '/debugtype:cv',

+            '/version:5.1',

+            '/osversion:5.1',

+            '/functionpadmin:5',

+            '/safeseh',

+            '/pdbcompress',

+            '/stack:0x40000,0x1000',

+            '/driver',

+            '/align:0x80',

+            '/subsystem:native,5.01',

+            '/base:0x10000',

+

+            '/entry:DrvEnableDriver',

+        ]

+        if env['build'] != 'release':

+            linkflags += [

+                '/MAP', # http://msdn.microsoft.com/en-us/library/k7xkk3e2.aspx

+            ]

+    if platform == 'wince':

+        linkflags += [

+            '/nodefaultlib',

+            #'/incremental:no',

+            #'/fullbuild',

+            '/entry:_DllMainCRTStartup',

+        ]

+    env.Append(LINKFLAGS = linkflags)

+    env.Append(SHLINKFLAGS = shlinkflags)

+

+    # We have C++ in several libraries, so always link with the C++ compiler

+    if env['gcc']:

+        env['LINK'] = env['CXX']

+

+    # Default libs

+    env.Append(LIBS = [])

+

+    # Load tools

+    if env['llvm']:

+        env.Tool('llvm')

+        env.Tool('udis86')

+    

+    pkg_config_modules(env, 'x11', ['x11', 'xext'])

+    pkg_config_modules(env, 'drm', ['libdrm'])

+    pkg_config_modules(env, 'drm_intel', ['libdrm_intel'])

+    pkg_config_modules(env, 'drm_radeon', ['libdrm_radeon'])

+    pkg_config_modules(env, 'xorg', ['xorg-server'])

+    pkg_config_modules(env, 'kms', ['libkms'])

+

+    env['dri'] = env['x11'] and env['drm']

+

+    # Custom builders and methods

+    env.Tool('custom')

+    createInstallMethods(env)

+

+    # for debugging

+    #print env.Dump()

+

+

+def exists(env):

+    return 1

diff --git a/mesalib/src/mesa/state_tracker/st_atom_framebuffer.c b/mesalib/src/mesa/state_tracker/st_atom_framebuffer.c
index 3ba690200..678a270c7 100644
--- a/mesalib/src/mesa/state_tracker/st_atom_framebuffer.c
+++ b/mesalib/src/mesa/state_tracker/st_atom_framebuffer.c
@@ -39,7 +39,7 @@
 #include "cso_cache/cso_context.h"

 #include "util/u_math.h"

 #include "util/u_inlines.h"

-

+#include "util/u_format.h"

 

 

 /**

@@ -55,8 +55,10 @@ update_renderbuffer_surface(struct st_context *st,
    struct pipe_resource *resource = strb->rtt->pt;

    int rtt_width = strb->Base.Width;

    int rtt_height = strb->Base.Height;

+   enum pipe_format format = st->ctx->Color.sRGBEnabled ? resource->format : util_format_linear(resource->format);

 

    if (!strb->surface ||

+       strb->surface->format != format ||

        strb->surface->texture != resource ||

        strb->surface->width != rtt_width ||

        strb->surface->height != rtt_height) {

@@ -67,7 +69,7 @@ update_renderbuffer_surface(struct st_context *st,
              u_minify(resource->height0, level) == rtt_height) {

             struct pipe_surface surf_tmpl;

             memset(&surf_tmpl, 0, sizeof(surf_tmpl));

-            surf_tmpl.format = resource->format;

+            surf_tmpl.format = format;

             surf_tmpl.usage = PIPE_BIND_RENDER_TARGET;

             surf_tmpl.u.tex.level = level;

             surf_tmpl.u.tex.first_layer = strb->rtt_face + strb->rtt_slice;

diff --git a/mesalib/src/mesa/state_tracker/st_cb_fbo.c b/mesalib/src/mesa/state_tracker/st_cb_fbo.c
index 3c73c24c5..b778ecf0b 100644
--- a/mesalib/src/mesa/state_tracker/st_cb_fbo.c
+++ b/mesalib/src/mesa/state_tracker/st_cb_fbo.c
@@ -390,7 +390,7 @@ st_render_texture(struct gl_context *ctx,
 

    /* new surface for rendering into the texture */

    memset(&surf_tmpl, 0, sizeof(surf_tmpl));

-   surf_tmpl.format = util_format_linear(strb->texture->format);

+   surf_tmpl.format = ctx->Color.sRGBEnabled ? strb->texture->format : util_format_linear(strb->texture->format);

    surf_tmpl.usage = PIPE_BIND_RENDER_TARGET;

    surf_tmpl.u.tex.level = strb->rtt_level;

    surf_tmpl.u.tex.first_layer = strb->rtt_face + strb->rtt_slice;

diff --git a/mesalib/src/mesa/state_tracker/st_draw_feedback.c b/mesalib/src/mesa/state_tracker/st_draw_feedback.c
index b694be04f..2ecb8e202 100644
--- a/mesalib/src/mesa/state_tracker/st_draw_feedback.c
+++ b/mesalib/src/mesa/state_tracker/st_draw_feedback.c
@@ -220,7 +220,7 @@ st_feedback_draw_vbo(struct gl_context *ctx,
          break;

       default:

          assert(0);

-	 return;

+	 goto out_unref_vertex;

       }

 

       if (bufobj && bufobj->Name) {

@@ -256,15 +256,6 @@ st_feedback_draw_vbo(struct gl_context *ctx,
    /*

     * unmap vertex/index buffers

     */

-   for (i = 0; i < PIPE_MAX_ATTRIBS; i++) {

-      if (draw->pt.vertex_buffer[i].buffer) {

-         pipe_buffer_unmap(pipe, vb_transfer[i]);

-         pipe_resource_reference(&draw->pt.vertex_buffer[i].buffer, NULL);

-         draw_set_mapped_vertex_buffer(draw, i, NULL);

-         pipe_resource_reference(&vbuffers[i].buffer, NULL);

-      }

-   }

-

    if (ib) {

       draw_set_mapped_index_buffer(draw, NULL);

       draw_set_index_buffer(draw, NULL);

@@ -273,6 +264,14 @@ st_feedback_draw_vbo(struct gl_context *ctx,
          pipe_buffer_unmap(pipe, ib_transfer);

       pipe_resource_reference(&ibuffer.buffer, NULL);

    }

+

+ out_unref_vertex:

+   for (attr = 0; attr < vp->num_inputs; attr++) {

+      pipe_buffer_unmap(pipe, vb_transfer[attr]);

+      draw_set_mapped_vertex_buffer(draw, attr, NULL);

+      pipe_resource_reference(&vbuffers[attr].buffer, NULL);

+   }

+   draw_set_vertex_buffers(draw, 0, NULL);

 }

 

 #endif /* FEATURE_feedback || FEATURE_rastpos */

diff --git a/mesalib/src/mesa/state_tracker/st_extensions.c b/mesalib/src/mesa/state_tracker/st_extensions.c
index a81cbe85d..76bd42cf8 100644
--- a/mesalib/src/mesa/state_tracker/st_extensions.c
+++ b/mesalib/src/mesa/state_tracker/st_extensions.c
@@ -1,476 +1,485 @@
-/**************************************************************************
- * 
- * Copyright 2007 Tungsten Graphics, Inc., Cedar Park, Texas.
- * Copyright (c) 2008 VMware, Inc.
- * All Rights Reserved.
- * 
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the
- * "Software"), to deal in the Software without restriction, including
- * without limitation the rights to use, copy, modify, merge, publish,
- * distribute, sub license, and/or sell copies of the Software, and to
- * permit persons to whom the Software is furnished to do so, subject to
- * the following conditions:
- * 
- * The above copyright notice and this permission notice (including the
- * next paragraph) shall be included in all copies or substantial portions
- * of the Software.
- * 
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
- * IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR
- * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
- * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
- * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- * 
- **************************************************************************/
-
-#include "main/imports.h"
-#include "main/context.h"
-#include "main/macros.h"
-#include "main/mfeatures.h"
-
-#include "pipe/p_context.h"
-#include "pipe/p_defines.h"
-#include "pipe/p_screen.h"
-
-#include "st_context.h"
-#include "st_extensions.h"
-
-
-static int _min(int a, int b)
-{
-   return (a < b) ? a : b;
-}
-
-static float _maxf(float a, float b)
-{
-   return (a > b) ? a : b;
-}
-
-static int _clamp(int a, int min, int max)
-{
-   if (a < min)
-      return min;
-   else if (a > max)
-      return max;
-   else
-      return a;
-}
-
-
-/**
- * Query driver to get implementation limits.
- * Note that we have to limit/clamp against Mesa's internal limits too.
- */
-void st_init_limits(struct st_context *st)
-{
-   struct pipe_screen *screen = st->pipe->screen;
-   struct gl_constants *c = &st->ctx->Const;
-   gl_shader_type sh;
-
-   c->MaxTextureLevels
-      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_2D_LEVELS),
-            MAX_TEXTURE_LEVELS);
-
-   c->Max3DTextureLevels
-      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_3D_LEVELS),
-            MAX_3D_TEXTURE_LEVELS);
-
-   c->MaxCubeTextureLevels
-      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_CUBE_LEVELS),
-            MAX_CUBE_TEXTURE_LEVELS);
-
-   c->MaxTextureRectSize
-      = _min(1 << (c->MaxTextureLevels - 1), MAX_TEXTURE_RECT_SIZE);
-
-   c->MaxTextureImageUnits
-      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_IMAGE_UNITS),
-            MAX_TEXTURE_IMAGE_UNITS);
-
-   c->MaxVertexTextureImageUnits
-      = _min(screen->get_param(screen, PIPE_CAP_MAX_VERTEX_TEXTURE_UNITS),
-             MAX_VERTEX_TEXTURE_IMAGE_UNITS);
-
-   c->MaxCombinedTextureImageUnits
-      = _min(screen->get_param(screen, PIPE_CAP_MAX_COMBINED_SAMPLERS),
-             MAX_COMBINED_TEXTURE_IMAGE_UNITS);
-
-   c->MaxTextureCoordUnits
-      = _min(c->MaxTextureImageUnits, MAX_TEXTURE_COORD_UNITS);
-
-   c->MaxTextureUnits = _min(c->MaxTextureImageUnits, c->MaxTextureCoordUnits);
-
-   c->MaxDrawBuffers
-      = _clamp(screen->get_param(screen, PIPE_CAP_MAX_RENDER_TARGETS),
-              1, MAX_DRAW_BUFFERS);
-
-   c->MaxLineWidth
-      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_LINE_WIDTH));
-   c->MaxLineWidthAA
-      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_LINE_WIDTH_AA));
-
-   c->MaxPointSize
-      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_POINT_WIDTH));
-   c->MaxPointSizeAA
-      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_POINT_WIDTH_AA));
-   /* called after _mesa_create_context/_mesa_init_point, fix default user
-    * settable max point size up
-    */
-   st->ctx->Point.MaxSize = MAX2(c->MaxPointSize, c->MaxPointSizeAA);
-   /* these are not queryable. Note that GL basically mandates a 1.0 minimum
-    * for non-aa sizes, but we can go down to 0.0 for aa points.
-    */
-   c->MinPointSize = 1.0f;
-   c->MinPointSizeAA = 0.0f;
-
-   c->MaxTextureMaxAnisotropy
-      = _maxf(2.0f, screen->get_paramf(screen, PIPE_CAP_MAX_TEXTURE_ANISOTROPY));
-
-   c->MaxTextureLodBias
-      = screen->get_paramf(screen, PIPE_CAP_MAX_TEXTURE_LOD_BIAS);
-
-   c->MaxDrawBuffers
-      = CLAMP(screen->get_param(screen, PIPE_CAP_MAX_RENDER_TARGETS),
-              1, MAX_DRAW_BUFFERS);
-
-   /* Quads always follow GL provoking rules. */
-   c->QuadsFollowProvokingVertexConvention = GL_FALSE;
-
-   for (sh = 0; sh < MESA_SHADER_TYPES; ++sh) {
-      struct gl_shader_compiler_options *options =
-         &st->ctx->ShaderCompilerOptions[sh];
-      struct gl_program_constants *pc;
-
-      switch (sh) {
-      case PIPE_SHADER_FRAGMENT:
-         pc = &c->FragmentProgram;
-         break;
-      case PIPE_SHADER_VERTEX:
-         pc = &c->VertexProgram;
-         break;
-      case PIPE_SHADER_GEOMETRY:
-         pc = &c->GeometryProgram;
-         break;
-      default:
-         assert(0);
-         continue;
-      }
-
-      pc->MaxNativeInstructions    = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_INSTRUCTIONS);
-      pc->MaxNativeAluInstructions = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_ALU_INSTRUCTIONS);
-      pc->MaxNativeTexInstructions = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_TEX_INSTRUCTIONS);
-      pc->MaxNativeTexIndirections = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_TEX_INDIRECTIONS);
-      pc->MaxNativeAttribs         = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_INPUTS);
-      pc->MaxNativeTemps           = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_TEMPS);
-      pc->MaxNativeAddressRegs     = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_ADDRS);
-      pc->MaxNativeParameters      = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_CONSTS);
-      pc->MaxUniformComponents     = 4 * MIN2(pc->MaxNativeParameters, MAX_UNIFORMS);
-
-      options->EmitNoNoise = TRUE;
-
-      /* TODO: make these more fine-grained if anyone needs it */
-      options->EmitNoIfs = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_CONTROL_FLOW_DEPTH);
-      options->EmitNoLoops = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_CONTROL_FLOW_DEPTH);
-      options->EmitNoFunctions = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_SUBROUTINES);
-      options->EmitNoMainReturn = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_SUBROUTINES);
-
-      options->EmitNoCont = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_TGSI_CONT_SUPPORTED);
-
-      options->EmitNoIndirectInput = !screen->get_shader_param(screen, sh,
-                                        PIPE_SHADER_CAP_INDIRECT_INPUT_ADDR);
-      options->EmitNoIndirectOutput = !screen->get_shader_param(screen, sh,
-                                        PIPE_SHADER_CAP_INDIRECT_OUTPUT_ADDR);
-      options->EmitNoIndirectTemp = !screen->get_shader_param(screen, sh,
-                                        PIPE_SHADER_CAP_INDIRECT_TEMP_ADDR);
-      options->EmitNoIndirectUniform = !screen->get_shader_param(screen, sh,
-                                        PIPE_SHADER_CAP_INDIRECT_CONST_ADDR);
-
-      if(options->EmitNoLoops)
-         options->MaxUnrollIterations = MIN2(screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_INSTRUCTIONS), 65536);
-   }
-
-   /* PIPE_CAP_MAX_FS_INPUTS specifies the number of COLORn + GENERICn inputs
-    * and is set in MaxNativeAttribs. It's always 2 colors + N generic
-    * attributes. The GLSL compiler never uses COLORn for varyings, so we
-    * subtract the 2 colors to get the maximum number of varyings (generic
-    * attributes) supported by a driver. */
-   c->MaxVarying = screen->get_shader_param(screen, PIPE_SHADER_FRAGMENT, PIPE_SHADER_CAP_MAX_INPUTS) - 2;
-   c->MaxVarying = MIN2(c->MaxVarying, MAX_VARYING);
-
-   /* XXX we'll need a better query here someday */
-   if (screen->get_param(screen, PIPE_CAP_GLSL)) {
-      c->GLSLVersion = 120;
-   }
-}
-
-
-/**
- * Use pipe_screen::get_param() to query PIPE_CAP_ values to determine
- * which GL extensions are supported.
- * Quite a few extensions are always supported because they are standard
- * features or can be built on top of other gallium features.
- * Some fine tuning may still be needed.
- */
-void st_init_extensions(struct st_context *st)
-{
-   struct pipe_screen *screen = st->pipe->screen;
-   struct gl_context *ctx = st->ctx;
-
-   /*
-    * Extensions that are supported by all Gallium drivers:
-    */
-   ctx->Extensions.ARB_copy_buffer = GL_TRUE;
-   ctx->Extensions.ARB_draw_elements_base_vertex = GL_TRUE;
-   ctx->Extensions.ARB_fragment_coord_conventions = GL_TRUE;
-   ctx->Extensions.ARB_fragment_program = GL_TRUE;
-   ctx->Extensions.ARB_half_float_pixel = GL_TRUE;
-   ctx->Extensions.ARB_map_buffer_range = GL_TRUE;
-   ctx->Extensions.ARB_multisample = GL_TRUE;
-   ctx->Extensions.ARB_texture_border_clamp = GL_TRUE; /* XXX temp */
-   ctx->Extensions.ARB_texture_compression = GL_TRUE;
-   ctx->Extensions.ARB_texture_cube_map = GL_TRUE;
-   ctx->Extensions.ARB_texture_env_combine = GL_TRUE;
-   ctx->Extensions.ARB_texture_env_crossbar = GL_TRUE;
-   ctx->Extensions.ARB_texture_env_dot3 = GL_TRUE;
-   ctx->Extensions.ARB_vertex_array_object = GL_TRUE;
-   ctx->Extensions.ARB_vertex_buffer_object = GL_TRUE;
-   ctx->Extensions.ARB_vertex_program = GL_TRUE;
-   ctx->Extensions.ARB_window_pos = GL_TRUE;
-
-   ctx->Extensions.EXT_blend_color = GL_TRUE;
-   ctx->Extensions.EXT_blend_func_separate = GL_TRUE;
-   ctx->Extensions.EXT_blend_logic_op = GL_TRUE;
-   ctx->Extensions.EXT_blend_minmax = GL_TRUE;
-   ctx->Extensions.EXT_blend_subtract = GL_TRUE;
-   ctx->Extensions.EXT_framebuffer_blit = GL_TRUE;
-   ctx->Extensions.EXT_framebuffer_object = GL_TRUE;
-   ctx->Extensions.EXT_framebuffer_multisample = GL_TRUE;
-   ctx->Extensions.EXT_fog_coord = GL_TRUE;
-   ctx->Extensions.EXT_gpu_program_parameters = GL_TRUE;
-   ctx->Extensions.EXT_multi_draw_arrays = GL_TRUE;
-   ctx->Extensions.EXT_pixel_buffer_object = GL_TRUE;
-   ctx->Extensions.EXT_point_parameters = GL_TRUE;
-   ctx->Extensions.EXT_provoking_vertex = GL_TRUE;
-   ctx->Extensions.EXT_secondary_color = GL_TRUE;
-   ctx->Extensions.EXT_stencil_wrap = GL_TRUE;
-   ctx->Extensions.EXT_texture_env_add = GL_TRUE;
-   ctx->Extensions.EXT_texture_env_combine = GL_TRUE;
-   ctx->Extensions.EXT_texture_env_dot3 = GL_TRUE;
-   ctx->Extensions.EXT_texture_lod_bias = GL_TRUE;
-   ctx->Extensions.EXT_vertex_array_bgra = GL_TRUE;
-   if (ctx->API == API_OPENGLES || ctx->API == API_OPENGLES2)
-	   ctx->Extensions.EXT_texture_format_BGRA8888 = GL_TRUE;
-
-   ctx->Extensions.APPLE_vertex_array_object = GL_TRUE;
-
-   ctx->Extensions.ATI_texture_env_combine3 = GL_TRUE;
-
-   ctx->Extensions.MESA_pack_invert = GL_TRUE;
-
-   ctx->Extensions.NV_blend_square = GL_TRUE;
-   ctx->Extensions.NV_texgen_reflection = GL_TRUE;
-   ctx->Extensions.NV_texture_env_combine4 = GL_TRUE;
-   ctx->Extensions.NV_texture_rectangle = GL_TRUE;
-#if 0
-   /* possibly could support the following two */
-   ctx->Extensions.NV_vertex_program = GL_TRUE;
-   ctx->Extensions.NV_vertex_program1_1 = GL_TRUE;
-#endif
-
-#if FEATURE_OES_EGL_image
-   ctx->Extensions.OES_EGL_image = GL_TRUE;
-#endif
-#if FEATURE_OES_draw_texture
-   ctx->Extensions.OES_draw_texture = GL_TRUE;
-#endif
-
-   ctx->Extensions.SGIS_generate_mipmap = GL_TRUE;
-
-   /*
-    * Extensions that depend on the driver/hardware:
-    */
-   if (screen->get_param(screen, PIPE_CAP_MAX_RENDER_TARGETS) > 0) {
-      ctx->Extensions.ARB_draw_buffers = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_TEXTURE_SWIZZLE) > 0) {
-      ctx->Extensions.EXT_texture_swizzle = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_GLSL)) {
-      ctx->Extensions.ARB_fragment_shader = GL_TRUE;
-      ctx->Extensions.ARB_vertex_shader = GL_TRUE;
-      ctx->Extensions.ARB_shader_objects = GL_TRUE;
-      ctx->Extensions.ARB_shading_language_100 = GL_TRUE;
-      ctx->Extensions.ARB_explicit_attrib_location = GL_TRUE;
-      ctx->Extensions.EXT_separate_shader_objects = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_TEXTURE_MIRROR_REPEAT) > 0) {
-      ctx->Extensions.ARB_texture_mirrored_repeat = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_BLEND_EQUATION_SEPARATE)) {
-      ctx->Extensions.EXT_blend_equation_separate = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_TEXTURE_MIRROR_CLAMP) > 0) {
-      ctx->Extensions.EXT_texture_mirror_clamp = GL_TRUE;
-      ctx->Extensions.ATI_texture_mirror_once = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_NPOT_TEXTURES)) {
-      ctx->Extensions.ARB_texture_non_power_of_two = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_IMAGE_UNITS) > 1) {
-      ctx->Extensions.ARB_multitexture = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_TWO_SIDED_STENCIL)) {
-      ctx->Extensions.ATI_separate_stencil = GL_TRUE;
-      ctx->Extensions.EXT_stencil_two_side = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_ANISOTROPIC_FILTER)) {
-      ctx->Extensions.EXT_texture_filter_anisotropic = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_POINT_SPRITE)) {
-      ctx->Extensions.ARB_point_sprite = GL_TRUE;
-      /* GL_NV_point_sprite is not supported by gallium because we don't
-       * support the GL_POINT_SPRITE_R_MODE_NV option.
-       */
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_OCCLUSION_QUERY)) {
-      ctx->Extensions.ARB_occlusion_query = GL_TRUE;
-      ctx->Extensions.ARB_occlusion_query2 = GL_TRUE;
-   }
-   if (screen->get_param(screen, PIPE_CAP_TIMER_QUERY)) {
-     ctx->Extensions.EXT_timer_query = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_TEXTURE_SHADOW_MAP)) {
-      ctx->Extensions.ARB_depth_texture = GL_TRUE;
-      ctx->Extensions.ARB_fragment_program_shadow = GL_TRUE;
-      ctx->Extensions.ARB_shadow = GL_TRUE;
-      ctx->Extensions.EXT_shadow_funcs = GL_TRUE;
-      /*ctx->Extensions.ARB_shadow_ambient = GL_TRUE;*/
-   }
-
-   /* GL_EXT_packed_depth_stencil requires both the ability to render to
-    * a depth/stencil buffer and texture from depth/stencil source.
-    */
-   if (screen->is_format_supported(screen, PIPE_FORMAT_S8_USCALED_Z24_UNORM,
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_DEPTH_STENCIL, 0) &&
-       screen->is_format_supported(screen, PIPE_FORMAT_S8_USCALED_Z24_UNORM,
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0)) {
-      ctx->Extensions.EXT_packed_depth_stencil = GL_TRUE;
-   }
-   else if (screen->is_format_supported(screen, PIPE_FORMAT_Z24_UNORM_S8_USCALED,
-                                        PIPE_TEXTURE_2D, 0,
-                                        PIPE_BIND_DEPTH_STENCIL, 0) &&
-            screen->is_format_supported(screen, PIPE_FORMAT_Z24_UNORM_S8_USCALED,
-                                        PIPE_TEXTURE_2D, 0,
-                                        PIPE_BIND_SAMPLER_VIEW, 0)) {
-      ctx->Extensions.EXT_packed_depth_stencil = GL_TRUE;
-   }
-
-   /* sRGB support */
-   if (screen->is_format_supported(screen, PIPE_FORMAT_A8B8G8R8_SRGB,
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0) ||
-      screen->is_format_supported(screen, PIPE_FORMAT_B8G8R8A8_SRGB,
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0)) {
-      ctx->Extensions.EXT_texture_sRGB = GL_TRUE;
-      ctx->Extensions.EXT_texture_sRGB_decode = GL_TRUE;
-   }
-
-   if (screen->is_format_supported(screen, PIPE_FORMAT_R8G8_UNORM,
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0)) {
-      ctx->Extensions.ARB_texture_rg = GL_TRUE;
-   }
-
-   /* s3tc support */
-   if (screen->is_format_supported(screen, PIPE_FORMAT_DXT5_RGBA,
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0) &&
-       (ctx->Mesa_DXTn ||
-        screen->is_format_supported(screen, PIPE_FORMAT_DXT5_RGBA,
-                                    PIPE_TEXTURE_2D, 0,
-                                    PIPE_BIND_RENDER_TARGET, 0))) {
-      ctx->Extensions.EXT_texture_compression_s3tc = GL_TRUE;
-      ctx->Extensions.S3_s3tc = GL_TRUE;
-   }
-
-   /* ycbcr support */
-   if (screen->is_format_supported(screen, PIPE_FORMAT_UYVY, 
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0) ||
-       screen->is_format_supported(screen, PIPE_FORMAT_YUYV, 
-                                   PIPE_TEXTURE_2D, 0,
-                                   PIPE_BIND_SAMPLER_VIEW, 0)) {
-      ctx->Extensions.MESA_ycbcr_texture = GL_TRUE;
-   }
-
-   /* GL_EXT_texture_array */
-   if (screen->get_param(screen, PIPE_CAP_ARRAY_TEXTURES)) {
-      ctx->Extensions.EXT_texture_array = GL_TRUE;
-      ctx->Extensions.MESA_texture_array = GL_TRUE;
-   }
-
-   /* GL_ARB_framebuffer_object */
-   if (ctx->Extensions.EXT_packed_depth_stencil) {
-      /* we support always support GL_EXT_framebuffer_blit */
-      ctx->Extensions.ARB_framebuffer_object = GL_TRUE;
-   }
-
-   if (st->pipe->render_condition) {
-      ctx->Extensions.NV_conditional_render = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_INDEP_BLEND_ENABLE)) {
-      ctx->Extensions.EXT_draw_buffers2 = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_INDEP_BLEND_FUNC)) {
-      ctx->Extensions.ARB_draw_buffers_blend = GL_TRUE;
-   }
-
-   /* GL_ARB_half_float_vertex */
-   if (screen->is_format_supported(screen, PIPE_FORMAT_R16G16B16A16_FLOAT,
-                                   PIPE_BUFFER, 0,
-                                   PIPE_BIND_VERTEX_BUFFER, 0)) {
-      ctx->Extensions.ARB_half_float_vertex = GL_TRUE;
-   }
-
-   if (screen->get_shader_param(screen, PIPE_SHADER_GEOMETRY, PIPE_SHADER_CAP_MAX_INSTRUCTIONS) > 0) {
-#if 0 /* XXX re-enable when GLSL compiler again supports geometry shaders */
-      ctx->Extensions.ARB_geometry_shader4 = GL_TRUE;
-#endif
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_PRIMITIVE_RESTART)) {
-      ctx->Extensions.NV_primitive_restart = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_DEPTH_CLAMP)) {
-      ctx->Extensions.ARB_depth_clamp = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_SHADER_STENCIL_EXPORT)) {
-      ctx->Extensions.ARB_shader_stencil_export = GL_TRUE;
-   }
-
-   if (screen->get_param(screen, PIPE_CAP_INSTANCED_DRAWING)) {
-      ctx->Extensions.ARB_draw_instanced = GL_TRUE;
-      ctx->Extensions.ARB_instanced_arrays = GL_TRUE;
-   }
-}
+/**************************************************************************

+ * 

+ * Copyright 2007 Tungsten Graphics, Inc., Cedar Park, Texas.

+ * Copyright (c) 2008 VMware, Inc.

+ * All Rights Reserved.

+ * 

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the

+ * "Software"), to deal in the Software without restriction, including

+ * without limitation the rights to use, copy, modify, merge, publish,

+ * distribute, sub license, and/or sell copies of the Software, and to

+ * permit persons to whom the Software is furnished to do so, subject to

+ * the following conditions:

+ * 

+ * The above copyright notice and this permission notice (including the

+ * next paragraph) shall be included in all copies or substantial portions

+ * of the Software.

+ * 

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+ * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.

+ * IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR

+ * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,

+ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE

+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+ * 

+ **************************************************************************/

+

+#include "main/imports.h"

+#include "main/context.h"

+#include "main/macros.h"

+#include "main/mfeatures.h"

+

+#include "pipe/p_context.h"

+#include "pipe/p_defines.h"

+#include "pipe/p_screen.h"

+

+#include "st_context.h"

+#include "st_extensions.h"

+

+

+static int _min(int a, int b)

+{

+   return (a < b) ? a : b;

+}

+

+static float _maxf(float a, float b)

+{

+   return (a > b) ? a : b;

+}

+

+static int _clamp(int a, int min, int max)

+{

+   if (a < min)

+      return min;

+   else if (a > max)

+      return max;

+   else

+      return a;

+}

+

+

+/**

+ * Query driver to get implementation limits.

+ * Note that we have to limit/clamp against Mesa's internal limits too.

+ */

+void st_init_limits(struct st_context *st)

+{

+   struct pipe_screen *screen = st->pipe->screen;

+   struct gl_constants *c = &st->ctx->Const;

+   gl_shader_type sh;

+

+   c->MaxTextureLevels

+      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_2D_LEVELS),

+            MAX_TEXTURE_LEVELS);

+

+   c->Max3DTextureLevels

+      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_3D_LEVELS),

+            MAX_3D_TEXTURE_LEVELS);

+

+   c->MaxCubeTextureLevels

+      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_CUBE_LEVELS),

+            MAX_CUBE_TEXTURE_LEVELS);

+

+   c->MaxTextureRectSize

+      = _min(1 << (c->MaxTextureLevels - 1), MAX_TEXTURE_RECT_SIZE);

+

+   c->MaxTextureImageUnits

+      = _min(screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_IMAGE_UNITS),

+            MAX_TEXTURE_IMAGE_UNITS);

+

+   c->MaxVertexTextureImageUnits

+      = _min(screen->get_param(screen, PIPE_CAP_MAX_VERTEX_TEXTURE_UNITS),

+             MAX_VERTEX_TEXTURE_IMAGE_UNITS);

+

+   c->MaxCombinedTextureImageUnits

+      = _min(screen->get_param(screen, PIPE_CAP_MAX_COMBINED_SAMPLERS),

+             MAX_COMBINED_TEXTURE_IMAGE_UNITS);

+

+   c->MaxTextureCoordUnits

+      = _min(c->MaxTextureImageUnits, MAX_TEXTURE_COORD_UNITS);

+

+   c->MaxTextureUnits = _min(c->MaxTextureImageUnits, c->MaxTextureCoordUnits);

+

+   c->MaxDrawBuffers

+      = _clamp(screen->get_param(screen, PIPE_CAP_MAX_RENDER_TARGETS),

+              1, MAX_DRAW_BUFFERS);

+

+   c->MaxLineWidth

+      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_LINE_WIDTH));

+   c->MaxLineWidthAA

+      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_LINE_WIDTH_AA));

+

+   c->MaxPointSize

+      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_POINT_WIDTH));

+   c->MaxPointSizeAA

+      = _maxf(1.0f, screen->get_paramf(screen, PIPE_CAP_MAX_POINT_WIDTH_AA));

+   /* called after _mesa_create_context/_mesa_init_point, fix default user

+    * settable max point size up

+    */

+   st->ctx->Point.MaxSize = MAX2(c->MaxPointSize, c->MaxPointSizeAA);

+   /* these are not queryable. Note that GL basically mandates a 1.0 minimum

+    * for non-aa sizes, but we can go down to 0.0 for aa points.

+    */

+   c->MinPointSize = 1.0f;

+   c->MinPointSizeAA = 0.0f;

+

+   c->MaxTextureMaxAnisotropy

+      = _maxf(2.0f, screen->get_paramf(screen, PIPE_CAP_MAX_TEXTURE_ANISOTROPY));

+

+   c->MaxTextureLodBias

+      = screen->get_paramf(screen, PIPE_CAP_MAX_TEXTURE_LOD_BIAS);

+

+   c->MaxDrawBuffers

+      = CLAMP(screen->get_param(screen, PIPE_CAP_MAX_RENDER_TARGETS),

+              1, MAX_DRAW_BUFFERS);

+

+   /* Quads always follow GL provoking rules. */

+   c->QuadsFollowProvokingVertexConvention = GL_FALSE;

+

+   for (sh = 0; sh < MESA_SHADER_TYPES; ++sh) {

+      struct gl_shader_compiler_options *options =

+         &st->ctx->ShaderCompilerOptions[sh];

+      struct gl_program_constants *pc;

+

+      switch (sh) {

+      case PIPE_SHADER_FRAGMENT:

+         pc = &c->FragmentProgram;

+         break;

+      case PIPE_SHADER_VERTEX:

+         pc = &c->VertexProgram;

+         break;

+      case PIPE_SHADER_GEOMETRY:

+         pc = &c->GeometryProgram;

+         break;

+      default:

+         assert(0);

+         continue;

+      }

+

+      pc->MaxNativeInstructions    = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_INSTRUCTIONS);

+      pc->MaxNativeAluInstructions = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_ALU_INSTRUCTIONS);

+      pc->MaxNativeTexInstructions = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_TEX_INSTRUCTIONS);

+      pc->MaxNativeTexIndirections = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_TEX_INDIRECTIONS);

+      pc->MaxNativeAttribs         = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_INPUTS);

+      pc->MaxNativeTemps           = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_TEMPS);

+      pc->MaxNativeAddressRegs     = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_ADDRS);

+      pc->MaxNativeParameters      = screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_CONSTS);

+      pc->MaxUniformComponents     = 4 * MIN2(pc->MaxNativeParameters, MAX_UNIFORMS);

+

+      options->EmitNoNoise = TRUE;

+

+      /* TODO: make these more fine-grained if anyone needs it */

+      options->EmitNoIfs = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_CONTROL_FLOW_DEPTH);

+      options->EmitNoLoops = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_CONTROL_FLOW_DEPTH);

+      options->EmitNoFunctions = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_SUBROUTINES);

+      options->EmitNoMainReturn = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_SUBROUTINES);

+

+      options->EmitNoCont = !screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_TGSI_CONT_SUPPORTED);

+

+      options->EmitNoIndirectInput = !screen->get_shader_param(screen, sh,

+                                        PIPE_SHADER_CAP_INDIRECT_INPUT_ADDR);

+      options->EmitNoIndirectOutput = !screen->get_shader_param(screen, sh,

+                                        PIPE_SHADER_CAP_INDIRECT_OUTPUT_ADDR);

+      options->EmitNoIndirectTemp = !screen->get_shader_param(screen, sh,

+                                        PIPE_SHADER_CAP_INDIRECT_TEMP_ADDR);

+      options->EmitNoIndirectUniform = !screen->get_shader_param(screen, sh,

+                                        PIPE_SHADER_CAP_INDIRECT_CONST_ADDR);

+

+      if(options->EmitNoLoops)

+         options->MaxUnrollIterations = MIN2(screen->get_shader_param(screen, sh, PIPE_SHADER_CAP_MAX_INSTRUCTIONS), 65536);

+   }

+

+   /* PIPE_CAP_MAX_FS_INPUTS specifies the number of COLORn + GENERICn inputs

+    * and is set in MaxNativeAttribs. It's always 2 colors + N generic

+    * attributes. The GLSL compiler never uses COLORn for varyings, so we

+    * subtract the 2 colors to get the maximum number of varyings (generic

+    * attributes) supported by a driver. */

+   c->MaxVarying = screen->get_shader_param(screen, PIPE_SHADER_FRAGMENT, PIPE_SHADER_CAP_MAX_INPUTS) - 2;

+   c->MaxVarying = MIN2(c->MaxVarying, MAX_VARYING);

+

+   /* XXX we'll need a better query here someday */

+   if (screen->get_param(screen, PIPE_CAP_GLSL)) {

+      c->GLSLVersion = 120;

+   }

+}

+

+

+/**

+ * Use pipe_screen::get_param() to query PIPE_CAP_ values to determine

+ * which GL extensions are supported.

+ * Quite a few extensions are always supported because they are standard

+ * features or can be built on top of other gallium features.

+ * Some fine tuning may still be needed.

+ */

+void st_init_extensions(struct st_context *st)

+{

+   struct pipe_screen *screen = st->pipe->screen;

+   struct gl_context *ctx = st->ctx;

+

+   /*

+    * Extensions that are supported by all Gallium drivers:

+    */

+   ctx->Extensions.ARB_copy_buffer = GL_TRUE;

+   ctx->Extensions.ARB_draw_elements_base_vertex = GL_TRUE;

+   ctx->Extensions.ARB_fragment_coord_conventions = GL_TRUE;

+   ctx->Extensions.ARB_fragment_program = GL_TRUE;

+   ctx->Extensions.ARB_half_float_pixel = GL_TRUE;

+   ctx->Extensions.ARB_map_buffer_range = GL_TRUE;

+   ctx->Extensions.ARB_multisample = GL_TRUE;

+   ctx->Extensions.ARB_texture_border_clamp = GL_TRUE; /* XXX temp */

+   ctx->Extensions.ARB_texture_compression = GL_TRUE;

+   ctx->Extensions.ARB_texture_cube_map = GL_TRUE;

+   ctx->Extensions.ARB_texture_env_combine = GL_TRUE;

+   ctx->Extensions.ARB_texture_env_crossbar = GL_TRUE;

+   ctx->Extensions.ARB_texture_env_dot3 = GL_TRUE;

+   ctx->Extensions.ARB_vertex_array_object = GL_TRUE;

+   ctx->Extensions.ARB_vertex_buffer_object = GL_TRUE;

+   ctx->Extensions.ARB_vertex_program = GL_TRUE;

+   ctx->Extensions.ARB_window_pos = GL_TRUE;

+

+   ctx->Extensions.EXT_blend_color = GL_TRUE;

+   ctx->Extensions.EXT_blend_func_separate = GL_TRUE;

+   ctx->Extensions.EXT_blend_logic_op = GL_TRUE;

+   ctx->Extensions.EXT_blend_minmax = GL_TRUE;

+   ctx->Extensions.EXT_blend_subtract = GL_TRUE;

+   ctx->Extensions.EXT_framebuffer_blit = GL_TRUE;

+   ctx->Extensions.EXT_framebuffer_object = GL_TRUE;

+   ctx->Extensions.EXT_framebuffer_multisample = GL_TRUE;

+   ctx->Extensions.EXT_fog_coord = GL_TRUE;

+   ctx->Extensions.EXT_gpu_program_parameters = GL_TRUE;

+   ctx->Extensions.EXT_multi_draw_arrays = GL_TRUE;

+   ctx->Extensions.EXT_pixel_buffer_object = GL_TRUE;

+   ctx->Extensions.EXT_point_parameters = GL_TRUE;

+   ctx->Extensions.EXT_provoking_vertex = GL_TRUE;

+   ctx->Extensions.EXT_secondary_color = GL_TRUE;

+   ctx->Extensions.EXT_stencil_wrap = GL_TRUE;

+   ctx->Extensions.EXT_texture_env_add = GL_TRUE;

+   ctx->Extensions.EXT_texture_env_combine = GL_TRUE;

+   ctx->Extensions.EXT_texture_env_dot3 = GL_TRUE;

+   ctx->Extensions.EXT_texture_lod_bias = GL_TRUE;

+   ctx->Extensions.EXT_vertex_array_bgra = GL_TRUE;

+   if (ctx->API == API_OPENGLES || ctx->API == API_OPENGLES2)

+	   ctx->Extensions.EXT_texture_format_BGRA8888 = GL_TRUE;

+

+   ctx->Extensions.APPLE_vertex_array_object = GL_TRUE;

+

+   ctx->Extensions.ATI_texture_env_combine3 = GL_TRUE;

+

+   ctx->Extensions.MESA_pack_invert = GL_TRUE;

+

+   ctx->Extensions.NV_blend_square = GL_TRUE;

+   ctx->Extensions.NV_texgen_reflection = GL_TRUE;

+   ctx->Extensions.NV_texture_env_combine4 = GL_TRUE;

+   ctx->Extensions.NV_texture_rectangle = GL_TRUE;

+#if 0

+   /* possibly could support the following two */

+   ctx->Extensions.NV_vertex_program = GL_TRUE;

+   ctx->Extensions.NV_vertex_program1_1 = GL_TRUE;

+#endif

+

+#if FEATURE_OES_EGL_image

+   ctx->Extensions.OES_EGL_image = GL_TRUE;

+#endif

+#if FEATURE_OES_draw_texture

+   ctx->Extensions.OES_draw_texture = GL_TRUE;

+#endif

+

+   ctx->Extensions.SGIS_generate_mipmap = GL_TRUE;

+

+   /*

+    * Extensions that depend on the driver/hardware:

+    */

+   if (screen->get_param(screen, PIPE_CAP_MAX_RENDER_TARGETS) > 0) {

+      ctx->Extensions.ARB_draw_buffers = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_TEXTURE_SWIZZLE) > 0) {

+      ctx->Extensions.EXT_texture_swizzle = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_GLSL)) {

+      ctx->Extensions.ARB_fragment_shader = GL_TRUE;

+      ctx->Extensions.ARB_vertex_shader = GL_TRUE;

+      ctx->Extensions.ARB_shader_objects = GL_TRUE;

+      ctx->Extensions.ARB_shading_language_100 = GL_TRUE;

+      ctx->Extensions.ARB_explicit_attrib_location = GL_TRUE;

+      ctx->Extensions.EXT_separate_shader_objects = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_TEXTURE_MIRROR_REPEAT) > 0) {

+      ctx->Extensions.ARB_texture_mirrored_repeat = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_BLEND_EQUATION_SEPARATE)) {

+      ctx->Extensions.EXT_blend_equation_separate = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_TEXTURE_MIRROR_CLAMP) > 0) {

+      ctx->Extensions.EXT_texture_mirror_clamp = GL_TRUE;

+      ctx->Extensions.ATI_texture_mirror_once = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_NPOT_TEXTURES)) {

+      ctx->Extensions.ARB_texture_non_power_of_two = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_MAX_TEXTURE_IMAGE_UNITS) > 1) {

+      ctx->Extensions.ARB_multitexture = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_TWO_SIDED_STENCIL)) {

+      ctx->Extensions.ATI_separate_stencil = GL_TRUE;

+      ctx->Extensions.EXT_stencil_two_side = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_ANISOTROPIC_FILTER)) {

+      ctx->Extensions.EXT_texture_filter_anisotropic = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_POINT_SPRITE)) {

+      ctx->Extensions.ARB_point_sprite = GL_TRUE;

+      /* GL_NV_point_sprite is not supported by gallium because we don't

+       * support the GL_POINT_SPRITE_R_MODE_NV option.

+       */

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_OCCLUSION_QUERY)) {

+      ctx->Extensions.ARB_occlusion_query = GL_TRUE;

+      ctx->Extensions.ARB_occlusion_query2 = GL_TRUE;

+   }

+   if (screen->get_param(screen, PIPE_CAP_TIMER_QUERY)) {

+     ctx->Extensions.EXT_timer_query = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_TEXTURE_SHADOW_MAP)) {

+      ctx->Extensions.ARB_depth_texture = GL_TRUE;

+      ctx->Extensions.ARB_fragment_program_shadow = GL_TRUE;

+      ctx->Extensions.ARB_shadow = GL_TRUE;

+      ctx->Extensions.EXT_shadow_funcs = GL_TRUE;

+      /*ctx->Extensions.ARB_shadow_ambient = GL_TRUE;*/

+   }

+

+   /* GL_EXT_packed_depth_stencil requires both the ability to render to

+    * a depth/stencil buffer and texture from depth/stencil source.

+    */

+   if (screen->is_format_supported(screen, PIPE_FORMAT_S8_USCALED_Z24_UNORM,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_DEPTH_STENCIL, 0) &&

+       screen->is_format_supported(screen, PIPE_FORMAT_S8_USCALED_Z24_UNORM,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0)) {

+      ctx->Extensions.EXT_packed_depth_stencil = GL_TRUE;

+   }

+   else if (screen->is_format_supported(screen, PIPE_FORMAT_Z24_UNORM_S8_USCALED,

+                                        PIPE_TEXTURE_2D, 0,

+                                        PIPE_BIND_DEPTH_STENCIL, 0) &&

+            screen->is_format_supported(screen, PIPE_FORMAT_Z24_UNORM_S8_USCALED,

+                                        PIPE_TEXTURE_2D, 0,

+                                        PIPE_BIND_SAMPLER_VIEW, 0)) {

+      ctx->Extensions.EXT_packed_depth_stencil = GL_TRUE;

+   }

+

+   /* sRGB support */

+   if (screen->is_format_supported(screen, PIPE_FORMAT_A8B8G8R8_SRGB,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0) ||

+      screen->is_format_supported(screen, PIPE_FORMAT_B8G8R8A8_SRGB,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0)) {

+      ctx->Extensions.EXT_texture_sRGB = GL_TRUE;

+      ctx->Extensions.EXT_texture_sRGB_decode = GL_TRUE;

+      if (screen->is_format_supported(screen, PIPE_FORMAT_A8B8G8R8_SRGB,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_RENDER_TARGET, 0) ||

+          screen->is_format_supported(screen, PIPE_FORMAT_B8G8R8A8_SRGB,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_RENDER_TARGET, 0)) {

+         ctx->Extensions.EXT_framebuffer_sRGB = GL_TRUE;

+         ctx->Const.sRGBCapable = GL_TRUE;

+      }

+   }

+

+   if (screen->is_format_supported(screen, PIPE_FORMAT_R8G8_UNORM,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0)) {

+      ctx->Extensions.ARB_texture_rg = GL_TRUE;

+   }

+

+   /* s3tc support */

+   if (screen->is_format_supported(screen, PIPE_FORMAT_DXT5_RGBA,

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0) &&

+       (ctx->Mesa_DXTn ||

+        screen->is_format_supported(screen, PIPE_FORMAT_DXT5_RGBA,

+                                    PIPE_TEXTURE_2D, 0,

+                                    PIPE_BIND_RENDER_TARGET, 0))) {

+      ctx->Extensions.EXT_texture_compression_s3tc = GL_TRUE;

+      ctx->Extensions.S3_s3tc = GL_TRUE;

+   }

+

+   /* ycbcr support */

+   if (screen->is_format_supported(screen, PIPE_FORMAT_UYVY, 

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0) ||

+       screen->is_format_supported(screen, PIPE_FORMAT_YUYV, 

+                                   PIPE_TEXTURE_2D, 0,

+                                   PIPE_BIND_SAMPLER_VIEW, 0)) {

+      ctx->Extensions.MESA_ycbcr_texture = GL_TRUE;

+   }

+

+   /* GL_EXT_texture_array */

+   if (screen->get_param(screen, PIPE_CAP_ARRAY_TEXTURES)) {

+      ctx->Extensions.EXT_texture_array = GL_TRUE;

+      ctx->Extensions.MESA_texture_array = GL_TRUE;

+   }

+

+   /* GL_ARB_framebuffer_object */

+   if (ctx->Extensions.EXT_packed_depth_stencil) {

+      /* we support always support GL_EXT_framebuffer_blit */

+      ctx->Extensions.ARB_framebuffer_object = GL_TRUE;

+   }

+

+   if (st->pipe->render_condition) {

+      ctx->Extensions.NV_conditional_render = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_INDEP_BLEND_ENABLE)) {

+      ctx->Extensions.EXT_draw_buffers2 = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_INDEP_BLEND_FUNC)) {

+      ctx->Extensions.ARB_draw_buffers_blend = GL_TRUE;

+   }

+

+   /* GL_ARB_half_float_vertex */

+   if (screen->is_format_supported(screen, PIPE_FORMAT_R16G16B16A16_FLOAT,

+                                   PIPE_BUFFER, 0,

+                                   PIPE_BIND_VERTEX_BUFFER, 0)) {

+      ctx->Extensions.ARB_half_float_vertex = GL_TRUE;

+   }

+

+   if (screen->get_shader_param(screen, PIPE_SHADER_GEOMETRY, PIPE_SHADER_CAP_MAX_INSTRUCTIONS) > 0) {

+#if 0 /* XXX re-enable when GLSL compiler again supports geometry shaders */

+      ctx->Extensions.ARB_geometry_shader4 = GL_TRUE;

+#endif

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_PRIMITIVE_RESTART)) {

+      ctx->Extensions.NV_primitive_restart = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_DEPTH_CLAMP)) {

+      ctx->Extensions.ARB_depth_clamp = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_SHADER_STENCIL_EXPORT)) {

+      ctx->Extensions.ARB_shader_stencil_export = GL_TRUE;

+   }

+

+   if (screen->get_param(screen, PIPE_CAP_INSTANCED_DRAWING)) {

+      ctx->Extensions.ARB_draw_instanced = GL_TRUE;

+      ctx->Extensions.ARB_instanced_arrays = GL_TRUE;

+   }

+}