src/glx/dri_common.c - platform/external/mesa3d - Git at Google

 /*
  * Copyright 1998-1999 Precision Insight, Inc., Cedar Park, Texas.
  * Copyright © 2008 Red Hat, Inc.
  *
  * Permission is hereby granted, free of charge, to any person obtaining a
  * copy of this software and associated documentation files (the "Soft-
  * ware"), to deal in the Software without restriction, including without
  * limitation the rights to use, copy, modify, merge, publish, distribute,
  * and/or sell copies of the Software, and to permit persons to whom the
  * Software is furnished to do so, provided that the above copyright
  * notice(s) and this permission notice appear in all copies of the Soft-
  * ware and that both the above copyright notice(s) and this permission
  * notice appear in supporting documentation.
  *
  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABIL-
  * ITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF THIRD PARTY
  * RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR HOLDERS INCLUDED IN
  * THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL INDIRECT OR CONSE-
  * QUENTIAL 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 PERFOR-
  * MANCE OF THIS SOFTWARE.
  *
  * Except as contained in this notice, the name of a copyright holder shall
  * not be used in advertising or otherwise to promote the sale, use or
  * other dealings in this Software without prior written authorization of
  * the copyright holder.
  *
  * Authors:
  *   Kevin E. Martin <kevin@precisioninsight.com>
  *   Brian Paul <brian@precisioninsight.com>
  *   Kristian Høgsberg (krh@redhat.com)
  */

 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)

 #include <unistd.h>
 #include <dlfcn.h>
 #include <stdarg.h>
 #include "glxclient.h"
 #include "dri_common.h"

 #ifndef RTLD_NOW
 #define RTLD_NOW 0
 #endif
 #ifndef RTLD_GLOBAL
 #define RTLD_GLOBAL 0
 #endif

 /**
  * Print informational message to stderr if LIBGL_DEBUG is set to
  * "verbose".
  */
 _X_HIDDEN void
 InfoMessageF(const char *f, ...)
 {
    va_list args;
    const char *env;

    if ((env = getenv("LIBGL_DEBUG")) && strstr(env, "verbose")) {
       fprintf(stderr, "libGL: ");
       va_start(args, f);
       vfprintf(stderr, f, args);
       va_end(args);
    }
 }

 /**
  * Print error message to stderr if LIBGL_DEBUG is set to anything but
  * "quiet", (do nothing if LIBGL_DEBUG is unset).
  */
 _X_HIDDEN void
 ErrorMessageF(const char *f, ...)
 {
    va_list args;
    const char *env;

    if ((env = getenv("LIBGL_DEBUG")) && !strstr(env, "quiet")) {
       fprintf(stderr, "libGL error: ");
       va_start(args, f);
       vfprintf(stderr, f, args);
       va_end(args);
    }
 }

 /**
  * Print error message unless LIBGL_DEBUG is set to "quiet".
  *
  * The distinction between CriticalErrorMessageF and ErrorMessageF is
  * that critcial errors will be printed by default, (even when
  * LIBGL_DEBUG is unset).
  */
 _X_HIDDEN void
 CriticalErrorMessageF(const char *f, ...)
 {
    va_list args;
    const char *env;

    if (!(env = getenv("LIBGL_DEBUG")) || !strstr(env, "quiet")) {
       fprintf(stderr, "libGL error: ");
       va_start(args, f);
       vfprintf(stderr, f, args);
       va_end(args);

       if (!env || !strstr(env, "verbose"))
          fprintf(stderr, "libGL error: Try again with LIBGL_DEBUG=verbose for more details.\n");
    }
 }

 #ifndef DEFAULT_DRIVER_DIR
 /* this is normally defined in Mesa/configs/default with DRI_DRIVER_SEARCH_PATH */
 #define DEFAULT_DRIVER_DIR "/usr/local/lib/dri"
 #endif

 /**
  * Try to \c dlopen the named driver.
  *
  * This function adds the "_dri.so" suffix to the driver name and searches the
  * directories specified by the \c LIBGL_DRIVERS_PATH environment variable in
  * order to find the driver.
  *
  * \param driverName - a name like "i965", "radeon", "nouveau", etc.
  *
  * \returns
  * A handle from \c dlopen, or \c NULL if driver file not found.
  */
 _X_HIDDEN void *
 driOpenDriver(const char *driverName)
 {
    void *glhandle, *handle;
    const char *libPaths, *p, *next;
    char realDriverName[200];
    int len;

    /* Attempt to make sure libGL symbols will be visible to the driver */
    glhandle = dlopen("libGL.so.1", RTLD_NOW | RTLD_GLOBAL);

    libPaths = NULL;
    if (geteuid() == getuid()) {
       /* don't allow setuid apps to use LIBGL_DRIVERS_PATH */
       libPaths = getenv("LIBGL_DRIVERS_PATH");
       if (!libPaths)
          libPaths = getenv("LIBGL_DRIVERS_DIR");        /* deprecated */
    }
    if (libPaths == NULL)
       libPaths = DEFAULT_DRIVER_DIR;

    handle = NULL;
    for (p = libPaths; *p; p = next) {
       next = strchr(p, ':');
       if (next == NULL) {
          len = strlen(p);
          next = p + len;
       }
       else {
          len = next - p;
          next++;
       }

 #ifdef GLX_USE_TLS
       snprintf(realDriverName, sizeof realDriverName,
                "%.*s/tls/%s_dri.so", len, p, driverName);
       InfoMessageF("OpenDriver: trying %s\n", realDriverName);
       handle = dlopen(realDriverName, RTLD_NOW | RTLD_GLOBAL);
 #endif

       if (handle == NULL) {
          snprintf(realDriverName, sizeof realDriverName,
                   "%.*s/%s_dri.so", len, p, driverName);
          InfoMessageF("OpenDriver: trying %s\n", realDriverName);
          handle = dlopen(realDriverName, RTLD_NOW | RTLD_GLOBAL);
       }

       if (handle != NULL)
          break;
       else
          ErrorMessageF("dlopen %s failed (%s)\n", realDriverName, dlerror());
    }

    if (!handle)
       ErrorMessageF("unable to load driver: %s_dri.so\n", driverName);

    if (glhandle)
       dlclose(glhandle);

    return handle;
 }

 static GLboolean
 __driGetMSCRate(__DRIdrawable *draw,
 		int32_t * numerator, int32_t * denominator,
 		void *loaderPrivate)
 {
    __GLXDRIdrawable *glxDraw = loaderPrivate;

    return __glxGetMscRate(glxDraw, numerator, denominator);
 }

 _X_HIDDEN const __DRIsystemTimeExtension systemTimeExtension = {
    {__DRI_SYSTEM_TIME, __DRI_SYSTEM_TIME_VERSION},
    __glXGetUST,
    __driGetMSCRate
 };

 #define __ATTRIB(attrib, field) \
     { attrib, offsetof(struct glx_config, field) }

 static const struct
 {
    unsigned int attrib, offset;
 } attribMap[] = {
    __ATTRIB(__DRI_ATTRIB_BUFFER_SIZE, rgbBits),
       __ATTRIB(__DRI_ATTRIB_LEVEL, level),
       __ATTRIB(__DRI_ATTRIB_RED_SIZE, redBits),
       __ATTRIB(__DRI_ATTRIB_GREEN_SIZE, greenBits),
       __ATTRIB(__DRI_ATTRIB_BLUE_SIZE, blueBits),
       __ATTRIB(__DRI_ATTRIB_ALPHA_SIZE, alphaBits),
       __ATTRIB(__DRI_ATTRIB_DEPTH_SIZE, depthBits),
       __ATTRIB(__DRI_ATTRIB_STENCIL_SIZE, stencilBits),
       __ATTRIB(__DRI_ATTRIB_ACCUM_RED_SIZE, accumRedBits),
       __ATTRIB(__DRI_ATTRIB_ACCUM_GREEN_SIZE, accumGreenBits),
       __ATTRIB(__DRI_ATTRIB_ACCUM_BLUE_SIZE, accumBlueBits),
       __ATTRIB(__DRI_ATTRIB_ACCUM_ALPHA_SIZE, accumAlphaBits),
       __ATTRIB(__DRI_ATTRIB_SAMPLE_BUFFERS, sampleBuffers),
       __ATTRIB(__DRI_ATTRIB_SAMPLES, samples),
       __ATTRIB(__DRI_ATTRIB_DOUBLE_BUFFER, doubleBufferMode),
       __ATTRIB(__DRI_ATTRIB_STEREO, stereoMode),
       __ATTRIB(__DRI_ATTRIB_AUX_BUFFERS, numAuxBuffers),
 #if 0
       __ATTRIB(__DRI_ATTRIB_TRANSPARENT_TYPE, transparentPixel),
       __ATTRIB(__DRI_ATTRIB_TRANSPARENT_INDEX_VALUE, transparentIndex),
       __ATTRIB(__DRI_ATTRIB_TRANSPARENT_RED_VALUE, transparentRed),
       __ATTRIB(__DRI_ATTRIB_TRANSPARENT_GREEN_VALUE, transparentGreen),
       __ATTRIB(__DRI_ATTRIB_TRANSPARENT_BLUE_VALUE, transparentBlue),
       __ATTRIB(__DRI_ATTRIB_TRANSPARENT_ALPHA_VALUE, transparentAlpha),
       __ATTRIB(__DRI_ATTRIB_RED_MASK, redMask),
       __ATTRIB(__DRI_ATTRIB_GREEN_MASK, greenMask),
       __ATTRIB(__DRI_ATTRIB_BLUE_MASK, blueMask),
       __ATTRIB(__DRI_ATTRIB_ALPHA_MASK, alphaMask),
 #endif
       __ATTRIB(__DRI_ATTRIB_MAX_PBUFFER_WIDTH, maxPbufferWidth),
       __ATTRIB(__DRI_ATTRIB_MAX_PBUFFER_HEIGHT, maxPbufferHeight),
       __ATTRIB(__DRI_ATTRIB_MAX_PBUFFER_PIXELS, maxPbufferPixels),
       __ATTRIB(__DRI_ATTRIB_OPTIMAL_PBUFFER_WIDTH, optimalPbufferWidth),
       __ATTRIB(__DRI_ATTRIB_OPTIMAL_PBUFFER_HEIGHT, optimalPbufferHeight),
 #if 0
       __ATTRIB(__DRI_ATTRIB_SWAP_METHOD, swapMethod),
 #endif
 __ATTRIB(__DRI_ATTRIB_BIND_TO_TEXTURE_RGB, bindToTextureRgb),
       __ATTRIB(__DRI_ATTRIB_BIND_TO_TEXTURE_RGBA, bindToTextureRgba),
       __ATTRIB(__DRI_ATTRIB_BIND_TO_MIPMAP_TEXTURE,
                      bindToMipmapTexture),
       __ATTRIB(__DRI_ATTRIB_YINVERTED, yInverted),
       __ATTRIB(__DRI_ATTRIB_FRAMEBUFFER_SRGB_CAPABLE, sRGBCapable)
 };

 static int
 scalarEqual(struct glx_config *mode, unsigned int attrib, unsigned int value)
 {
    unsigned int glxValue;
    int i;

    for (i = 0; i < ARRAY_SIZE(attribMap); i++)
       if (attribMap[i].attrib == attrib) {
          glxValue = *(unsigned int *) ((char *) mode + attribMap[i].offset);
          return glxValue == GLX_DONT_CARE || glxValue == value;
       }

    return GL_TRUE;              /* Is a non-existing attribute equal to value? */
 }

 static int
 driConfigEqual(const __DRIcoreExtension *core,
                struct glx_config *config, const __DRIconfig *driConfig)
 {
    unsigned int attrib, value, glxValue;
    int i;

    i = 0;
    while (core->indexConfigAttrib(driConfig, i++, &attrib, &value)) {
       switch (attrib) {
       case __DRI_ATTRIB_RENDER_TYPE:
          glxValue = 0;
          if (value & __DRI_ATTRIB_RGBA_BIT) {
             glxValue |= GLX_RGBA_BIT;
          }
          else if (value & __DRI_ATTRIB_COLOR_INDEX_BIT) {
             glxValue |= GLX_COLOR_INDEX_BIT;
          }
          if (glxValue != config->renderType)
             return GL_FALSE;
          break;

       case __DRI_ATTRIB_CONFIG_CAVEAT:
          if (value & __DRI_ATTRIB_NON_CONFORMANT_CONFIG)
             glxValue = GLX_NON_CONFORMANT_CONFIG;
          else if (value & __DRI_ATTRIB_SLOW_BIT)
             glxValue = GLX_SLOW_CONFIG;
          else
             glxValue = GLX_NONE;
          if (glxValue != config->visualRating)
             return GL_FALSE;
          break;

       case __DRI_ATTRIB_BIND_TO_TEXTURE_TARGETS:
          glxValue = 0;
          if (value & __DRI_ATTRIB_TEXTURE_1D_BIT)
             glxValue |= GLX_TEXTURE_1D_BIT_EXT;
          if (value & __DRI_ATTRIB_TEXTURE_2D_BIT)
             glxValue |= GLX_TEXTURE_2D_BIT_EXT;
          if (value & __DRI_ATTRIB_TEXTURE_RECTANGLE_BIT)
             glxValue |= GLX_TEXTURE_RECTANGLE_BIT_EXT;
          if (config->bindToTextureTargets != GLX_DONT_CARE &&
              glxValue != config->bindToTextureTargets)
             return GL_FALSE;
          break;

       default:
          if (!scalarEqual(config, attrib, value))
             return GL_FALSE;
       }
    }

    return GL_TRUE;
 }

 static struct glx_config *
 createDriMode(const __DRIcoreExtension * core,
 	      struct glx_config *config, const __DRIconfig **driConfigs)
 {
    __GLXDRIconfigPrivate *driConfig;
    int i;

    for (i = 0; driConfigs[i]; i++) {
       if (driConfigEqual(core, config, driConfigs[i]))
          break;
    }

    if (driConfigs[i] == NULL)
       return NULL;

    driConfig = Xmalloc(sizeof *driConfig);
    if (driConfig == NULL)
       return NULL;

    driConfig->base = *config;
    driConfig->driConfig = driConfigs[i];

    return &driConfig->base;
 }

 _X_HIDDEN struct glx_config *
 driConvertConfigs(const __DRIcoreExtension * core,
                   struct glx_config *configs, const __DRIconfig **driConfigs)
 {
    struct glx_config head, *tail, *m;

    tail = &head;
    head.next = NULL;
    for (m = configs; m; m = m->next) {
       tail->next = createDriMode(core, m, driConfigs);
       if (tail->next == NULL) {
          /* no matching dri config for m */
          continue;
       }


       tail = tail->next;
    }

    return head.next;
 }

 _X_HIDDEN void
 driDestroyConfigs(const __DRIconfig **configs)
 {
    int i;

    for (i = 0; configs[i]; i++)
       free((__DRIconfig *) configs[i]);
    free(configs);
 }

 _X_HIDDEN __GLXDRIdrawable *
 driFetchDrawable(struct glx_context *gc, GLXDrawable glxDrawable)
 {
    struct glx_display *const priv = __glXInitialize(gc->psc->dpy);
    __GLXDRIdrawable *pdraw;
    struct glx_screen *psc;

    if (priv == NULL)
       return NULL;

    psc = priv->screens[gc->screen];
    if (priv->drawHash == NULL)
       return NULL;

    if (__glxHashLookup(priv->drawHash, glxDrawable, (void *) &pdraw) == 0) {
       pdraw->refcount ++;
       return pdraw;
    }

    pdraw = psc->driScreen->createDrawable(psc, glxDrawable,
                                           glxDrawable, gc->config);

    if (pdraw == NULL) {
       ErrorMessageF("failed to create drawable\n");
       return NULL;
    }

    if (__glxHashInsert(priv->drawHash, glxDrawable, pdraw)) {
       (*pdraw->destroyDrawable) (pdraw);
       return NULL;
    }
    pdraw->refcount = 1;

    return pdraw;
 }

 _X_HIDDEN void
 driReleaseDrawables(struct glx_context *gc)
 {
    const struct glx_display *priv = gc->psc->display;
    __GLXDRIdrawable *pdraw;

    if (priv == NULL)
       return;

    if (__glxHashLookup(priv->drawHash,
 		       gc->currentDrawable, (void *) &pdraw) == 0) {
       if (pdraw->drawable == pdraw->xDrawable) {
 	 pdraw->refcount --;
 	 if (pdraw->refcount == 0) {
 	    (*pdraw->destroyDrawable)(pdraw);
 	    __glxHashDelete(priv->drawHash, gc->currentDrawable);
 	 }
       }
    }

    if (__glxHashLookup(priv->drawHash,
 		       gc->currentReadable, (void *) &pdraw) == 0) {
       if (pdraw->drawable == pdraw->xDrawable) {
 	 pdraw->refcount --;
 	 if (pdraw->refcount == 0) {
 	    (*pdraw->destroyDrawable)(pdraw);
 	    __glxHashDelete(priv->drawHash, gc->currentReadable);
 	 }
       }
    }

    gc->currentDrawable = None;
    gc->currentReadable = None;

 }

 _X_HIDDEN bool
 dri2_convert_glx_attribs(unsigned num_attribs, const uint32_t *attribs,
 			 unsigned *major_ver, unsigned *minor_ver,
 			 uint32_t *flags, unsigned *api, int *reset,
                          unsigned *error)
 {
    unsigned i;
    bool got_profile = false;
    uint32_t profile;
    int render_type = GLX_RGBA_TYPE;

    if (num_attribs == 0) {
       *api = __DRI_API_OPENGL;
       return true;
    }

    /* This is actually an internal error, but what the heck.
     */
    if (attribs == NULL) {
       *error = __DRI_CTX_ERROR_UNKNOWN_ATTRIBUTE;
       return false;
    }

    *major_ver = 1;
    *minor_ver = 0;
    *reset = __DRI_CTX_RESET_NO_NOTIFICATION;

    for (i = 0; i < num_attribs; i++) {
       switch (attribs[i * 2]) {
       case GLX_CONTEXT_MAJOR_VERSION_ARB:
 	 *major_ver = attribs[i * 2 + 1];
 	 break;
       case GLX_CONTEXT_MINOR_VERSION_ARB:
 	 *minor_ver = attribs[i * 2 + 1];
 	 break;
       case GLX_CONTEXT_FLAGS_ARB:
 	 *flags = attribs[i * 2 + 1];
 	 break;
       case GLX_CONTEXT_PROFILE_MASK_ARB:
 	 profile = attribs[i * 2 + 1];
 	 got_profile = true;
 	 break;
       case GLX_RENDER_TYPE:
 	 render_type = attribs[i * 2 + 1];
 	 break;
       case GLX_CONTEXT_RESET_NOTIFICATION_STRATEGY_ARB:
          switch (attribs[i * 2 + 1]) {
          case GLX_NO_RESET_NOTIFICATION_ARB:
             *reset = __DRI_CTX_RESET_NO_NOTIFICATION;
             break;
          case GLX_LOSE_CONTEXT_ON_RESET_ARB:
             *reset = __DRI_CTX_RESET_LOSE_CONTEXT;
             break;
          default:
             *error = __DRI_CTX_ERROR_UNKNOWN_ATTRIBUTE;
             return false;
          }
          break;
       default:
 	 /* If an unknown attribute is received, fail.
 	  */
 	 *error = __DRI_CTX_ERROR_UNKNOWN_ATTRIBUTE;
 	 return false;
       }
    }

    *api = __DRI_API_OPENGL;
    if (!got_profile) {
       if (*major_ver > 3 || (*major_ver == 3 && *minor_ver >= 2))
 	 *api = __DRI_API_OPENGL_CORE;
    } else {
       switch (profile) {
       case GLX_CONTEXT_CORE_PROFILE_BIT_ARB:
 	 /* There are no profiles before OpenGL 3.2.  The
 	  * GLX_ARB_create_context_profile spec says:
 	  *
 	  *     "If the requested OpenGL version is less than 3.2,
 	  *     GLX_CONTEXT_PROFILE_MASK_ARB is ignored and the functionality
 	  *     of the context is determined solely by the requested version."
 	  */
 	 *api = (*major_ver > 3 || (*major_ver == 3 && *minor_ver >= 2))
 	    ? __DRI_API_OPENGL_CORE : __DRI_API_OPENGL;
 	 break;
       case GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB:
 	 *api = __DRI_API_OPENGL;
 	 break;
       case GLX_CONTEXT_ES2_PROFILE_BIT_EXT:
 	 *api = __DRI_API_GLES2;
 	 break;
       default:
 	 *error = __DRI_CTX_ERROR_BAD_API;
 	 return false;
       }
    }

    /* Unknown flag value.
     */
    if (*flags & ~(__DRI_CTX_FLAG_DEBUG | __DRI_CTX_FLAG_FORWARD_COMPATIBLE
                   | __DRI_CTX_FLAG_ROBUST_BUFFER_ACCESS)) {
       *error = __DRI_CTX_ERROR_UNKNOWN_FLAG;
       return false;
    }

    /* There are no forward-compatible contexts before OpenGL 3.0.  The
     * GLX_ARB_create_context spec says:
     *
     *     "Forward-compatible contexts are defined only for OpenGL versions
     *     3.0 and later."
     */
    if (*major_ver < 3 && (*flags & __DRI_CTX_FLAG_FORWARD_COMPATIBLE) != 0) {
       *error = __DRI_CTX_ERROR_BAD_FLAG;
       return false;
    }

    if (*major_ver >= 3 && render_type == GLX_COLOR_INDEX_TYPE) {
       *error = __DRI_CTX_ERROR_BAD_FLAG;
       return false;
    }

    /* The GLX_EXT_create_context_es2_profile spec says:
     *
     *     "... If the version requested is 2.0, and the
     *     GLX_CONTEXT_ES2_PROFILE_BIT_EXT bit is set in the
     *     GLX_CONTEXT_PROFILE_MASK_ARB attribute (see below), then the context
     *     returned will implement OpenGL ES 2.0. This is the only way in which
     *     an implementation may request an OpenGL ES 2.0 context."
     */
    if (*api == __DRI_API_GLES2 && (*major_ver != 2 || *minor_ver != 0)) {
       *error = __DRI_CTX_ERROR_BAD_API;
       return false;
    }

    *error = __DRI_CTX_ERROR_SUCCESS;
    return true;
 }

 #endif /* GLX_DIRECT_RENDERING */
	/*
	* Copyright 1998-1999 Precision Insight, Inc., Cedar Park, Texas.
	* Copyright © 2008 Red Hat, Inc.
	*
	* Permission is hereby granted, free of charge, to any person obtaining a
	* copy of this software and associated documentation files (the "Soft-
	* ware"), to deal in the Software without restriction, including without
	* limitation the rights to use, copy, modify, merge, publish, distribute,
	* and/or sell copies of the Software, and to permit persons to whom the
	* Software is furnished to do so, provided that the above copyright
	* notice(s) and this permission notice appear in all copies of the Soft-
	* ware and that both the above copyright notice(s) and this permission
	* notice appear in supporting documentation.
	*
	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
	* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABIL-
	* ITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF THIRD PARTY
	* RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR HOLDERS INCLUDED IN
	* THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL INDIRECT OR CONSE-
	* QUENTIAL 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 PERFOR-
	* MANCE OF THIS SOFTWARE.
	*
	* Except as contained in this notice, the name of a copyright holder shall
	* not be used in advertising or otherwise to promote the sale, use or
	* other dealings in this Software without prior written authorization of
	* the copyright holder.
	*
	* Authors:
	* Kevin E. Martin <kevin@precisioninsight.com>
	* Brian Paul <brian@precisioninsight.com>
	* Kristian Høgsberg (krh@redhat.com)
	*/

	#if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)

	#include <unistd.h>
	#include <dlfcn.h>
	#include <stdarg.h>
	#include "glxclient.h"
	#include "dri_common.h"

	#ifndef RTLD_NOW
	#define RTLD_NOW 0
	#endif
	#ifndef RTLD_GLOBAL
	#define RTLD_GLOBAL 0
	#endif

	/**
	* Print informational message to stderr if LIBGL_DEBUG is set to
	* "verbose".
	*/
	_X_HIDDEN void
	InfoMessageF(const char *f, ...)
	{
	va_list args;
	const char *env;

	if ((env = getenv("LIBGL_DEBUG")) && strstr(env, "verbose")) {
	fprintf(stderr, "libGL: ");
	va_start(args, f);
	vfprintf(stderr, f, args);
	va_end(args);
	}
	}

	/**
	* Print error message to stderr if LIBGL_DEBUG is set to anything but
	* "quiet", (do nothing if LIBGL_DEBUG is unset).
	*/
	_X_HIDDEN void
	ErrorMessageF(const char *f, ...)
	{
	va_list args;
	const char *env;

	if ((env = getenv("LIBGL_DEBUG")) && !strstr(env, "quiet")) {
	fprintf(stderr, "libGL error: ");
	va_start(args, f);
	vfprintf(stderr, f, args);
	va_end(args);
	}
	}

	/**
	* Print error message unless LIBGL_DEBUG is set to "quiet".
	*
	* The distinction between CriticalErrorMessageF and ErrorMessageF is
	* that critcial errors will be printed by default, (even when
	* LIBGL_DEBUG is unset).
	*/
	_X_HIDDEN void
	CriticalErrorMessageF(const char *f, ...)
	{
	va_list args;
	const char *env;

	if (!(env = getenv("LIBGL_DEBUG")) \|\| !strstr(env, "quiet")) {
	fprintf(stderr, "libGL error: ");
	va_start(args, f);
	vfprintf(stderr, f, args);
	va_end(args);

	if (!env \|\| !strstr(env, "verbose"))
	fprintf(stderr, "libGL error: Try again with LIBGL_DEBUG=verbose for more details.\n");
	}
	}

	#ifndef DEFAULT_DRIVER_DIR
	/* this is normally defined in Mesa/configs/default with DRI_DRIVER_SEARCH_PATH */
	#define DEFAULT_DRIVER_DIR "/usr/local/lib/dri"
	#endif

	/**
	* Try to \c dlopen the named driver.
	*
	* This function adds the "_dri.so" suffix to the driver name and searches the
	* directories specified by the \c LIBGL_DRIVERS_PATH environment variable in
	* order to find the driver.
	*
	* \param driverName - a name like "i965", "radeon", "nouveau", etc.
	*
	* \returns
	* A handle from \c dlopen, or \c NULL if driver file not found.
	*/
	_X_HIDDEN void *
	driOpenDriver(const char *driverName)
	{
	void glhandle, handle;
	const char libPaths, p, *next;
	char realDriverName[200];
	int len;

	/* Attempt to make sure libGL symbols will be visible to the driver */
	glhandle = dlopen("libGL.so.1", RTLD_NOW \| RTLD_GLOBAL);

	libPaths = NULL;
	if (geteuid() == getuid()) {
	/* don't allow setuid apps to use LIBGL_DRIVERS_PATH */
	libPaths = getenv("LIBGL_DRIVERS_PATH");
	if (!libPaths)
	libPaths = getenv("LIBGL_DRIVERS_DIR"); /* deprecated */
	}
	if (libPaths == NULL)
	libPaths = DEFAULT_DRIVER_DIR;

	handle = NULL;
	for (p = libPaths; *p; p = next) {
	next = strchr(p, ':');
	if (next == NULL) {
	len = strlen(p);
	next = p + len;
	}
	else {
	len = next - p;
	next++;
	}

	#ifdef GLX_USE_TLS
	snprintf(realDriverName, sizeof realDriverName,
	"%.*s/tls/%s_dri.so", len, p, driverName);
	InfoMessageF("OpenDriver: trying %s\n", realDriverName);
	handle = dlopen(realDriverName, RTLD_NOW \| RTLD_GLOBAL);
	#endif

	if (handle == NULL) {
	snprintf(realDriverName, sizeof realDriverName,
	"%.*s/%s_dri.so", len, p, driverName);
	InfoMessageF("OpenDriver: trying %s\n", realDriverName);
	handle = dlopen(realDriverName, RTLD_NOW \| RTLD_GLOBAL);
	}

	if (handle != NULL)
	break;
	else
	ErrorMessageF("dlopen %s failed (%s)\n", realDriverName, dlerror());
	}

	if (!handle)
	ErrorMessageF("unable to load driver: %s_dri.so\n", driverName);

	if (glhandle)
	dlclose(glhandle);

	return handle;
	}

	static GLboolean
	__driGetMSCRate(__DRIdrawable *draw,
	int32_t * numerator, int32_t * denominator,
	void *loaderPrivate)
	{
	__GLXDRIdrawable *glxDraw = loaderPrivate;

	return __glxGetMscRate(glxDraw, numerator, denominator);
	}

	_X_HIDDEN const __DRIsystemTimeExtension systemTimeExtension = {
	{__DRI_SYSTEM_TIME, __DRI_SYSTEM_TIME_VERSION},
	__glXGetUST,
	__driGetMSCRate
	};

	#define __ATTRIB(attrib, field) \
	{ attrib, offsetof(struct glx_config, field) }

	static const struct
	{
	unsigned int attrib, offset;
	} attribMap[] = {
	__ATTRIB(__DRI_ATTRIB_BUFFER_SIZE, rgbBits),
	__ATTRIB(__DRI_ATTRIB_LEVEL, level),
	__ATTRIB(__DRI_ATTRIB_RED_SIZE, redBits),
	__ATTRIB(__DRI_ATTRIB_GREEN_SIZE, greenBits),
	__ATTRIB(__DRI_ATTRIB_BLUE_SIZE, blueBits),
	__ATTRIB(__DRI_ATTRIB_ALPHA_SIZE, alphaBits),
	__ATTRIB(__DRI_ATTRIB_DEPTH_SIZE, depthBits),
	__ATTRIB(__DRI_ATTRIB_STENCIL_SIZE, stencilBits),
	__ATTRIB(__DRI_ATTRIB_ACCUM_RED_SIZE, accumRedBits),
	__ATTRIB(__DRI_ATTRIB_ACCUM_GREEN_SIZE, accumGreenBits),
	__ATTRIB(__DRI_ATTRIB_ACCUM_BLUE_SIZE, accumBlueBits),
	__ATTRIB(__DRI_ATTRIB_ACCUM_ALPHA_SIZE, accumAlphaBits),
	__ATTRIB(__DRI_ATTRIB_SAMPLE_BUFFERS, sampleBuffers),
	__ATTRIB(__DRI_ATTRIB_SAMPLES, samples),
	__ATTRIB(__DRI_ATTRIB_DOUBLE_BUFFER, doubleBufferMode),
	__ATTRIB(__DRI_ATTRIB_STEREO, stereoMode),
	__ATTRIB(__DRI_ATTRIB_AUX_BUFFERS, numAuxBuffers),
	#if 0
	__ATTRIB(__DRI_ATTRIB_TRANSPARENT_TYPE, transparentPixel),
	__ATTRIB(__DRI_ATTRIB_TRANSPARENT_INDEX_VALUE, transparentIndex),
	__ATTRIB(__DRI_ATTRIB_TRANSPARENT_RED_VALUE, transparentRed),
	__ATTRIB(__DRI_ATTRIB_TRANSPARENT_GREEN_VALUE, transparentGreen),
	__ATTRIB(__DRI_ATTRIB_TRANSPARENT_BLUE_VALUE, transparentBlue),
	__ATTRIB(__DRI_ATTRIB_TRANSPARENT_ALPHA_VALUE, transparentAlpha),
	__ATTRIB(__DRI_ATTRIB_RED_MASK, redMask),
	__ATTRIB(__DRI_ATTRIB_GREEN_MASK, greenMask),
	__ATTRIB(__DRI_ATTRIB_BLUE_MASK, blueMask),
	__ATTRIB(__DRI_ATTRIB_ALPHA_MASK, alphaMask),
	#endif
	__ATTRIB(__DRI_ATTRIB_MAX_PBUFFER_WIDTH, maxPbufferWidth),
	__ATTRIB(__DRI_ATTRIB_MAX_PBUFFER_HEIGHT, maxPbufferHeight),
	__ATTRIB(__DRI_ATTRIB_MAX_PBUFFER_PIXELS, maxPbufferPixels),
	__ATTRIB(__DRI_ATTRIB_OPTIMAL_PBUFFER_WIDTH, optimalPbufferWidth),
	__ATTRIB(__DRI_ATTRIB_OPTIMAL_PBUFFER_HEIGHT, optimalPbufferHeight),
	#if 0
	__ATTRIB(__DRI_ATTRIB_SWAP_METHOD, swapMethod),
	#endif
	__ATTRIB(__DRI_ATTRIB_BIND_TO_TEXTURE_RGB, bindToTextureRgb),
	__ATTRIB(__DRI_ATTRIB_BIND_TO_TEXTURE_RGBA, bindToTextureRgba),
	__ATTRIB(__DRI_ATTRIB_BIND_TO_MIPMAP_TEXTURE,
	bindToMipmapTexture),
	__ATTRIB(__DRI_ATTRIB_YINVERTED, yInverted),
	__ATTRIB(__DRI_ATTRIB_FRAMEBUFFER_SRGB_CAPABLE, sRGBCapable)
	};

	static int
	scalarEqual(struct glx_config *mode, unsigned int attrib, unsigned int value)
	{
	unsigned int glxValue;
	int i;

	for (i = 0; i < ARRAY_SIZE(attribMap); i++)
	if (attribMap[i].attrib == attrib) {
	glxValue = (unsigned int ) ((char *) mode + attribMap[i].offset);
	return glxValue == GLX_DONT_CARE \|\| glxValue == value;
	}

	return GL_TRUE; /* Is a non-existing attribute equal to value? */
	}

	static int
	driConfigEqual(const __DRIcoreExtension *core,
	struct glx_config config, const __DRIconfig driConfig)
	{
	unsigned int attrib, value, glxValue;
	int i;

	i = 0;
	while (core->indexConfigAttrib(driConfig, i++, &attrib, &value)) {
	switch (attrib) {
	case __DRI_ATTRIB_RENDER_TYPE:
	glxValue = 0;
	if (value & __DRI_ATTRIB_RGBA_BIT) {
	glxValue \|= GLX_RGBA_BIT;
	}
	else if (value & __DRI_ATTRIB_COLOR_INDEX_BIT) {
	glxValue \|= GLX_COLOR_INDEX_BIT;
	}
	if (glxValue != config->renderType)
	return GL_FALSE;
	break;

	case __DRI_ATTRIB_CONFIG_CAVEAT:
	if (value & __DRI_ATTRIB_NON_CONFORMANT_CONFIG)
	glxValue = GLX_NON_CONFORMANT_CONFIG;
	else if (value & __DRI_ATTRIB_SLOW_BIT)
	glxValue = GLX_SLOW_CONFIG;
	else
	glxValue = GLX_NONE;
	if (glxValue != config->visualRating)
	return GL_FALSE;
	break;

	case __DRI_ATTRIB_BIND_TO_TEXTURE_TARGETS:
	glxValue = 0;
	if (value & __DRI_ATTRIB_TEXTURE_1D_BIT)
	glxValue \|= GLX_TEXTURE_1D_BIT_EXT;
	if (value & __DRI_ATTRIB_TEXTURE_2D_BIT)
	glxValue \|= GLX_TEXTURE_2D_BIT_EXT;
	if (value & __DRI_ATTRIB_TEXTURE_RECTANGLE_BIT)
	glxValue \|= GLX_TEXTURE_RECTANGLE_BIT_EXT;
	if (config->bindToTextureTargets != GLX_DONT_CARE &&
	glxValue != config->bindToTextureTargets)
	return GL_FALSE;
	break;

	default:
	if (!scalarEqual(config, attrib, value))
	return GL_FALSE;
	}
	}

	return GL_TRUE;
	}

	static struct glx_config *
	createDriMode(const __DRIcoreExtension * core,
	struct glx_config config, const __DRIconfig *driConfigs)
	{
	__GLXDRIconfigPrivate *driConfig;
	int i;

	for (i = 0; driConfigs[i]; i++) {
	if (driConfigEqual(core, config, driConfigs[i]))
	break;
	}

	if (driConfigs[i] == NULL)
	return NULL;

	driConfig = Xmalloc(sizeof *driConfig);
	if (driConfig == NULL)
	return NULL;

	driConfig->base = *config;
	driConfig->driConfig = driConfigs[i];

	return &driConfig->base;
	}

	_X_HIDDEN struct glx_config *
	driConvertConfigs(const __DRIcoreExtension * core,
	struct glx_config configs, const __DRIconfig *driConfigs)
	{
	struct glx_config head, tail, m;

	tail = &head;
	head.next = NULL;
	for (m = configs; m; m = m->next) {
	tail->next = createDriMode(core, m, driConfigs);
	if (tail->next == NULL) {
	/* no matching dri config for m */
	continue;
	}


	tail = tail->next;
	}

	return head.next;
	}

	_X_HIDDEN void
	driDestroyConfigs(const __DRIconfig **configs)
	{
	int i;

	for (i = 0; configs[i]; i++)
	free((__DRIconfig *) configs[i]);
	free(configs);
	}

	_X_HIDDEN __GLXDRIdrawable *
	driFetchDrawable(struct glx_context *gc, GLXDrawable glxDrawable)
	{
	struct glx_display *const priv = __glXInitialize(gc->psc->dpy);
	__GLXDRIdrawable *pdraw;
	struct glx_screen *psc;

	if (priv == NULL)
	return NULL;

	psc = priv->screens[gc->screen];
	if (priv->drawHash == NULL)
	return NULL;

	if (__glxHashLookup(priv->drawHash, glxDrawable, (void *) &pdraw) == 0) {
	pdraw->refcount ++;
	return pdraw;
	}

	pdraw = psc->driScreen->createDrawable(psc, glxDrawable,
	glxDrawable, gc->config);

	if (pdraw == NULL) {
	ErrorMessageF("failed to create drawable\n");
	return NULL;
	}

	if (__glxHashInsert(priv->drawHash, glxDrawable, pdraw)) {
	(*pdraw->destroyDrawable) (pdraw);
	return NULL;
	}
	pdraw->refcount = 1;

	return pdraw;
	}

	_X_HIDDEN void
	driReleaseDrawables(struct glx_context *gc)
	{
	const struct glx_display *priv = gc->psc->display;
	__GLXDRIdrawable *pdraw;

	if (priv == NULL)
	return;

	if (__glxHashLookup(priv->drawHash,
	gc->currentDrawable, (void *) &pdraw) == 0) {
	if (pdraw->drawable == pdraw->xDrawable) {
	pdraw->refcount --;
	if (pdraw->refcount == 0) {
	(*pdraw->destroyDrawable)(pdraw);
	__glxHashDelete(priv->drawHash, gc->currentDrawable);
	}
	}
	}

	if (__glxHashLookup(priv->drawHash,
	gc->currentReadable, (void *) &pdraw) == 0) {
	if (pdraw->drawable == pdraw->xDrawable) {
	pdraw->refcount --;
	if (pdraw->refcount == 0) {
	(*pdraw->destroyDrawable)(pdraw);
	__glxHashDelete(priv->drawHash, gc->currentReadable);
	}
	}
	}

	gc->currentDrawable = None;
	gc->currentReadable = None;

	}

	_X_HIDDEN bool
	dri2_convert_glx_attribs(unsigned num_attribs, const uint32_t *attribs,
	unsigned major_ver, unsigned minor_ver,
	uint32_t flags, unsigned api, int *reset,
	unsigned *error)
	{
	unsigned i;
	bool got_profile = false;
	uint32_t profile;
	int render_type = GLX_RGBA_TYPE;

	if (num_attribs == 0) {
	*api = __DRI_API_OPENGL;
	return true;
	}

	/* This is actually an internal error, but what the heck.
	*/
	if (attribs == NULL) {
	*error = __DRI_CTX_ERROR_UNKNOWN_ATTRIBUTE;
	return false;
	}

	*major_ver = 1;
	*minor_ver = 0;
	*reset = __DRI_CTX_RESET_NO_NOTIFICATION;

	for (i = 0; i < num_attribs; i++) {
	switch (attribs[i * 2]) {
	case GLX_CONTEXT_MAJOR_VERSION_ARB:
	major_ver = attribs[i 2 + 1];
	break;
	case GLX_CONTEXT_MINOR_VERSION_ARB:
	minor_ver = attribs[i 2 + 1];
	break;
	case GLX_CONTEXT_FLAGS_ARB:
	flags = attribs[i 2 + 1];
	break;
	case GLX_CONTEXT_PROFILE_MASK_ARB:
	profile = attribs[i * 2 + 1];
	got_profile = true;
	break;
	case GLX_RENDER_TYPE:
	render_type = attribs[i * 2 + 1];
	break;
	case GLX_CONTEXT_RESET_NOTIFICATION_STRATEGY_ARB:
	switch (attribs[i * 2 + 1]) {
	case GLX_NO_RESET_NOTIFICATION_ARB:
	*reset = __DRI_CTX_RESET_NO_NOTIFICATION;
	break;
	case GLX_LOSE_CONTEXT_ON_RESET_ARB:
	*reset = __DRI_CTX_RESET_LOSE_CONTEXT;
	break;
	default:
	*error = __DRI_CTX_ERROR_UNKNOWN_ATTRIBUTE;
	return false;
	}
	break;
	default:
	/* If an unknown attribute is received, fail.
	*/
	*error = __DRI_CTX_ERROR_UNKNOWN_ATTRIBUTE;
	return false;
	}
	}

	*api = __DRI_API_OPENGL;
	if (!got_profile) {
	if (major_ver > 3 \|\| (major_ver == 3 && *minor_ver >= 2))
	*api = __DRI_API_OPENGL_CORE;
	} else {
	switch (profile) {
	case GLX_CONTEXT_CORE_PROFILE_BIT_ARB:
	/* There are no profiles before OpenGL 3.2. The
	* GLX_ARB_create_context_profile spec says:
	*
	* "If the requested OpenGL version is less than 3.2,
	* GLX_CONTEXT_PROFILE_MASK_ARB is ignored and the functionality
	* of the context is determined solely by the requested version."
	*/
	api = (major_ver > 3 \|\| (major_ver == 3 && minor_ver >= 2))
	? __DRI_API_OPENGL_CORE : __DRI_API_OPENGL;
	break;
	case GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB:
	*api = __DRI_API_OPENGL;
	break;
	case GLX_CONTEXT_ES2_PROFILE_BIT_EXT:
	*api = __DRI_API_GLES2;
	break;
	default:
	*error = __DRI_CTX_ERROR_BAD_API;
	return false;
	}
	}

	/* Unknown flag value.
	*/
	if (*flags & ~(__DRI_CTX_FLAG_DEBUG \| __DRI_CTX_FLAG_FORWARD_COMPATIBLE
	\| __DRI_CTX_FLAG_ROBUST_BUFFER_ACCESS)) {
	*error = __DRI_CTX_ERROR_UNKNOWN_FLAG;
	return false;
	}

	/* There are no forward-compatible contexts before OpenGL 3.0. The
	* GLX_ARB_create_context spec says:
	*
	* "Forward-compatible contexts are defined only for OpenGL versions
	* 3.0 and later."
	*/
	if (major_ver < 3 && (flags & __DRI_CTX_FLAG_FORWARD_COMPATIBLE) != 0) {
	*error = __DRI_CTX_ERROR_BAD_FLAG;
	return false;
	}

	if (*major_ver >= 3 && render_type == GLX_COLOR_INDEX_TYPE) {
	*error = __DRI_CTX_ERROR_BAD_FLAG;
	return false;
	}

	/* The GLX_EXT_create_context_es2_profile spec says:
	*
	* "... If the version requested is 2.0, and the
	* GLX_CONTEXT_ES2_PROFILE_BIT_EXT bit is set in the
	* GLX_CONTEXT_PROFILE_MASK_ARB attribute (see below), then the context
	* returned will implement OpenGL ES 2.0. This is the only way in which
	* an implementation may request an OpenGL ES 2.0 context."
	*/
	if (api == __DRI_API_GLES2 && (major_ver != 2 \|\| *minor_ver != 0)) {
	*error = __DRI_CTX_ERROR_BAD_API;
	return false;
	}

	*error = __DRI_CTX_ERROR_SUCCESS;
	return true;
	}

	#endif /* GLX_DIRECT_RENDERING */