src/glx/glxcmds.c

   1 /*
   2  * SGI FREE SOFTWARE LICENSE B (Version 2.0, Sept. 18, 2008)
   3  * Copyright (C) 1991-2000 Silicon Graphics, Inc. All Rights Reserved.
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a
   6  * copy of this software and associated documentation files (the "Software"),
   7  * to deal in the Software without restriction, including without limitation
   8  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
   9  * and/or sell copies of the Software, and to permit persons to whom the
  10  * Software is furnished to do so, subject to the following conditions:
  11  *
  12  * The above copyright notice including the dates of first publication and
  13  * either this permission notice or a reference to
  14  * http://oss.sgi.com/projects/FreeB/
  15  * shall be included in all copies or substantial portions of the Software.
  16  *
  17  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  18  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  19  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  20  * SILICON GRAPHICS, INC. BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
  21  * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF
  22  * OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  23  * SOFTWARE.
  24  *
  25  * Except as contained in this notice, the name of Silicon Graphics, Inc.
  26  * shall not be used in advertising or otherwise to promote the sale, use or
  27  * other dealings in this Software without prior written authorization from
  28  * Silicon Graphics, Inc.
  29  */
  30
  31 /**
  32  * \file glxcmds.c
  33  * Client-side GLX interface.
  34  */
  35
  36 #include "glxclient.h"
  37 #include "glapi.h"
  38 #include "glxextensions.h"
  39 #include "indirect.h"
  40
  41 #ifdef GLX_DIRECT_RENDERING
  42 #ifdef GLX_USE_APPLEGL
  43 #include "apple_glx_context.h"
  44 #include "apple_glx.h"
  45 #include "glx_error.h"
  46 #else
  47 #include <sys/time.h>
  48 #ifdef XF86VIDMODE
  49 #include <X11/extensions/xf86vmode.h>
  50 #endif
  51 #include "xf86dri.h"
  52 #endif
  53 #else
  54 #endif
  55
  56 #if defined(USE_XCB)
  57 #include <X11/Xlib-xcb.h>
  58 #include <xcb/xcb.h>
  59 #include <xcb/glx.h>
  60 #endif
  61
  62 static const char __glXGLXClientVendorName[] = "Mesa Project and SGI";
  63 static const char __glXGLXClientVersion[] = "1.4";
  64
  65 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
  66
  67 /**
  68  * Get the __DRIdrawable for the drawable associated with a GLXContext
  69  *
  70  * \param dpy       The display associated with \c drawable.
  71  * \param drawable  GLXDrawable whose __DRIdrawable part is to be retrieved.
  72  * \param scrn_num  If non-NULL, the drawables screen is stored there
  73  * \returns  A pointer to the context's __DRIdrawable on success, or NULL if
  74  *           the drawable is not associated with a direct-rendering context.
  75  */
  76 _X_HIDDEN __GLXDRIdrawable *
  77 GetGLXDRIDrawable(Display * dpy, GLXDrawable drawable)
  78 {
  79    struct glx_display *priv = __glXInitialize(dpy);
  80    __GLXDRIdrawable *pdraw;
  81
  82    if (priv == NULL)
  83       return NULL;
  84
  85    if (__glxHashLookup(priv->drawHash, drawable, (void *) &pdraw) == 0)
  86       return pdraw;
  87
  88    return NULL;
  89 }
  90
  91 #endif
  92
  93
  94 /**
  95  * Get the GLX per-screen data structure associated with a GLX context.
  96  *
  97  * \param dpy   Display for which the GLX per-screen information is to be
  98  *              retrieved.
  99  * \param scrn  Screen on \c dpy for which the GLX per-screen information is
 100  *              to be retrieved.
 101  * \returns A pointer to the GLX per-screen data if \c dpy and \c scrn
 102  *          specify a valid GLX screen, or NULL otherwise.
 103  *
 104  * \todo Should this function validate that \c scrn is within the screen
 105  *       number range for \c dpy?
 106  */
 107
 108 static struct glx_screen *
 109 GetGLXScreenConfigs(Display * dpy, int scrn)
 110 {
 111    struct glx_display *const priv = __glXInitialize(dpy);
 112
 113    return (priv
 114            && priv->screens !=
 115            NULL) ? priv->screens[scrn] : NULL;
 116 }
 117
 118
 119 static int
 120 GetGLXPrivScreenConfig(Display * dpy, int scrn, struct glx_display ** ppriv,
 121                        struct glx_screen ** ppsc)
 122 {
 123    /* Initialize the extension, if needed .  This has the added value
 124     * of initializing/allocating the display private
 125     */
 126
 127    if (dpy == NULL) {
 128       return GLX_NO_EXTENSION;
 129    }
 130
 131    *ppriv = __glXInitialize(dpy);
 132    if (*ppriv == NULL) {
 133       return GLX_NO_EXTENSION;
 134    }
 135
 136    /* Check screen number to see if its valid */
 137    if ((scrn < 0) || (scrn >= ScreenCount(dpy))) {
 138       return GLX_BAD_SCREEN;
 139    }
 140
 141    /* Check to see if the GL is supported on this screen */
 142    *ppsc = (*ppriv)->screens[scrn];
 143    if ((*ppsc)->configs == NULL) {
 144       /* No support for GL on this screen regardless of visual */
 145       return GLX_BAD_VISUAL;
 146    }
 147
 148    return Success;
 149 }
 150
 151
 152 /**
 153  * Determine if a \c GLXFBConfig supplied by the application is valid.
 154  *
 155  * \param dpy     Application supplied \c Display pointer.
 156  * \param config  Application supplied \c GLXFBConfig.
 157  *
 158  * \returns If the \c GLXFBConfig is valid, the a pointer to the matching
 159  *          \c struct glx_config structure is returned.  Otherwise, \c NULL
 160  *          is returned.
 161  */
 162 static struct glx_config *
 163 ValidateGLXFBConfig(Display * dpy, GLXFBConfig fbconfig)
 164 {
 165    struct glx_display *const priv = __glXInitialize(dpy);
 166    int num_screens = ScreenCount(dpy);
 167    unsigned i;
 168    struct glx_config *config;
 169
 170    if (priv != NULL) {
 171       for (i = 0; i < num_screens; i++) {
 172          for (config = priv->screens[i]->configs; config != NULL;
 173               config = config->next) {
 174             if (config == (struct glx_config *) fbconfig) {
 175                return config;
 176             }
 177          }
 178       }
 179    }
 180
 181    return NULL;
 182 }
 183
 184 _X_HIDDEN Bool
 185 glx_context_init(struct glx_context *gc,
 186                  struct glx_screen *psc, struct glx_config *config)
 187 {
 188    gc->majorOpcode = __glXSetupForCommand(psc->display->dpy);
 189    if (!gc->majorOpcode)
 190       return GL_FALSE;
 191
 192    gc->screen = psc->scr;
 193    gc->psc = psc;
 194    gc->config = config;
 195    gc->isDirect = GL_TRUE;
 196    gc->currentContextTag = -1;
 197
 198    return GL_TRUE;
 199 }
 200
 201
 202 /**
 203  * Create a new context.
 204  *
 205  * \param renderType   For FBConfigs, what is the rendering type?
 206  */
 207
 208 static GLXContext
 209 CreateContext(Display *dpy, int generic_id, struct glx_config *config,
 210               GLXContext shareList_user, Bool allowDirect,
 211               unsigned code, int renderType, int screen)
 212 {
 213    struct glx_context *gc;
 214    struct glx_screen *psc;
 215    struct glx_context *shareList = (struct glx_context *) shareList_user;
 216    if (dpy == NULL)
 217       return NULL;
 218
 219    psc = GetGLXScreenConfigs(dpy, screen);
 220    if (psc == NULL)
 221       return NULL;
 222
 223    if (generic_id == None)
 224       return NULL;
 225
 226    gc = NULL;
 227 #ifdef GLX_USE_APPLEGL
 228    gc = applegl_create_context(psc, config, shareList, renderType);
 229 #else
 230    if (allowDirect && psc->vtable->create_context)
 231       gc = psc->vtable->create_context(psc, config, shareList, renderType);
 232    if (!gc)
 233       gc = indirect_create_context(psc, config, shareList, renderType);
 234 #endif
 235    if (!gc)
 236       return NULL;
 237
 238    LockDisplay(dpy);
 239    switch (code) {
 240    case X_GLXCreateContext: {
 241       xGLXCreateContextReq *req;
 242
 243       /* Send the glXCreateContext request */
 244       GetReq(GLXCreateContext, req);
 245       req->reqType = gc->majorOpcode;
 246       req->glxCode = X_GLXCreateContext;
 247       req->context = gc->xid = XAllocID(dpy);
 248       req->visual = generic_id;
 249       req->screen = screen;
 250       req->shareList = shareList ? shareList->xid : None;
 251       req->isDirect = gc->isDirect;
 252       break;
 253    }
 254
 255    case X_GLXCreateNewContext: {
 256       xGLXCreateNewContextReq *req;
 257
 258       /* Send the glXCreateNewContext request */
 259       GetReq(GLXCreateNewContext, req);
 260       req->reqType = gc->majorOpcode;
 261       req->glxCode = X_GLXCreateNewContext;
 262       req->context = gc->xid = XAllocID(dpy);
 263       req->fbconfig = generic_id;
 264       req->screen = screen;
 265       req->renderType = renderType;
 266       req->shareList = shareList ? shareList->xid : None;
 267       req->isDirect = gc->isDirect;
 268       break;
 269    }
 270
 271    case X_GLXvop_CreateContextWithConfigSGIX: {
 272       xGLXVendorPrivateWithReplyReq *vpreq;
 273       xGLXCreateContextWithConfigSGIXReq *req;
 274
 275       /* Send the glXCreateNewContext request */
 276       GetReqExtra(GLXVendorPrivateWithReply,
 277                   sz_xGLXCreateContextWithConfigSGIXReq -
 278                   sz_xGLXVendorPrivateWithReplyReq, vpreq);
 279       req = (xGLXCreateContextWithConfigSGIXReq *) vpreq;
 280       req->reqType = gc->majorOpcode;
 281       req->glxCode = X_GLXVendorPrivateWithReply;
 282       req->vendorCode = X_GLXvop_CreateContextWithConfigSGIX;
 283       req->context = gc->xid = XAllocID(dpy);
 284       req->fbconfig = generic_id;
 285       req->screen = screen;
 286       req->renderType = renderType;
 287       req->shareList = shareList ? shareList->xid : None;
 288       req->isDirect = gc->isDirect;
 289       break;
 290    }
 291
 292    default:
 293       /* What to do here?  This case is the sign of an internal error.  It
 294        * should never be reachable.
 295        */
 296       break;
 297    }
 298
 299    UnlockDisplay(dpy);
 300    SyncHandle();
 301
 302    gc->imported = GL_FALSE;
 303    gc->renderType = renderType;
 304
 305    return (GLXContext) gc;
 306 }
 307
 308 _X_EXPORT GLXContext
 309 glXCreateContext(Display * dpy, XVisualInfo * vis,
 310                  GLXContext shareList, Bool allowDirect)
 311 {
 312    struct glx_config *config = NULL;
 313    int renderType = 0;
 314
 315 #if defined(GLX_DIRECT_RENDERING) || defined(GLX_USE_APPLEGL)
 316    struct glx_screen *const psc = GetGLXScreenConfigs(dpy, vis->screen);
 317
 318    config = glx_config_find_visual(psc->visuals, vis->visualid);
 319    if (config == NULL) {
 320       xError error;
 321
 322       error.errorCode = BadValue;
 323       error.resourceID = vis->visualid;
 324       error.sequenceNumber = dpy->request;
 325       error.type = X_Error;
 326       error.majorCode = __glXSetupForCommand(dpy);
 327       error.minorCode = X_GLXCreateContext;
 328       _XError(dpy, &error);
 329       return None;
 330    }
 331
 332    renderType = config->rgbMode ? GLX_RGBA_TYPE : GLX_COLOR_INDEX_TYPE;
 333 #endif
 334
 335    return CreateContext(dpy, vis->visualid, config, shareList, allowDirect,
 336                         X_GLXCreateContext, renderType, vis->screen);
 337 }
 338
 339 _X_HIDDEN void
 340 glx_send_destroy_context(Display *dpy, XID xid)
 341 {
 342    CARD8 opcode = __glXSetupForCommand(dpy);
 343    xGLXDestroyContextReq *req;
 344
 345    LockDisplay(dpy);
 346    GetReq(GLXDestroyContext, req);
 347    req->reqType = opcode;
 348    req->glxCode = X_GLXDestroyContext;
 349    req->context = xid;
 350    UnlockDisplay(dpy);
 351    SyncHandle();
 352 }
 353
 354 /*
 355 ** Destroy the named context
 356 */
 357 static void
 358 DestroyContext(Display * dpy, GLXContext ctx)
 359 {
 360    struct glx_context *gc = (struct glx_context *) ctx;
 361
 362    if (!gc)
 363       return;
 364
 365    __glXLock();
 366    if (gc->currentDpy) {
 367       /* This context is bound to some thread.  According to the man page,
 368        * we should not actually delete the context until it's unbound.
 369        * Note that we set gc->xid = None above.  In MakeContextCurrent()
 370        * we check for that and delete the context there.
 371        */
 372       if (!gc->imported)
 373          glx_send_destroy_context(dpy, gc->xid);
 374       gc->xid = None;
 375       __glXUnlock();
 376       return;
 377    }
 378    __glXUnlock();
 379
 380    if (gc->vtable->destroy)
 381       gc->vtable->destroy(gc);
 382 }
 383
 384 _X_EXPORT void
 385 glXDestroyContext(Display * dpy, GLXContext gc)
 386 {
 387    DestroyContext(dpy, gc);
 388 }
 389
 390 /*
 391 ** Return the major and minor version #s for the GLX extension
 392 */
 393 _X_EXPORT Bool
 394 glXQueryVersion(Display * dpy, int *major, int *minor)
 395 {
 396    struct glx_display *priv;
 397
 398    /* Init the extension.  This fetches the major and minor version. */
 399    priv = __glXInitialize(dpy);
 400    if (!priv)
 401       return GL_FALSE;
 402
 403    if (major)
 404       *major = priv->majorVersion;
 405    if (minor)
 406       *minor = priv->minorVersion;
 407    return GL_TRUE;
 408 }
 409
 410 /*
 411 ** Query the existance of the GLX extension
 412 */
 413 _X_EXPORT Bool
 414 glXQueryExtension(Display * dpy, int *errorBase, int *eventBase)
 415 {
 416    int major_op, erb, evb;
 417    Bool rv;
 418
 419    rv = XQueryExtension(dpy, GLX_EXTENSION_NAME, &major_op, &evb, &erb);
 420    if (rv) {
 421       if (errorBase)
 422          *errorBase = erb;
 423       if (eventBase)
 424          *eventBase = evb;
 425    }
 426    return rv;
 427 }
 428
 429 /*
 430 ** Put a barrier in the token stream that forces the GL to finish its
 431 ** work before X can proceed.
 432 */
 433 _X_EXPORT void
 434 glXWaitGL(void)
 435 {
 436    struct glx_context *gc = __glXGetCurrentContext();
 437
 438    if (gc && gc->vtable->wait_gl)
 439       gc->vtable->wait_gl(gc);
 440 }
 441
 442 /*
 443 ** Put a barrier in the token stream that forces X to finish its
 444 ** work before GL can proceed.
 445 */
 446 _X_EXPORT void
 447 glXWaitX(void)
 448 {
 449    struct glx_context *gc = __glXGetCurrentContext();
 450
 451    if (gc && gc->vtable->wait_x)
 452       gc->vtable->wait_x(gc);
 453 }
 454
 455 _X_EXPORT void
 456 glXUseXFont(Font font, int first, int count, int listBase)
 457 {
 458    struct glx_context *gc = __glXGetCurrentContext();
 459
 460    if (gc && gc->vtable->use_x_font)
 461       gc->vtable->use_x_font(gc, font, first, count, listBase);
 462 }
 463
 464 /************************************************************************/
 465
 466 /*
 467 ** Copy the source context to the destination context using the
 468 ** attribute "mask".
 469 */
 470 _X_EXPORT void
 471 glXCopyContext(Display * dpy, GLXContext source_user,
 472                GLXContext dest_user, unsigned long mask)
 473 {
 474    struct glx_context *source = (struct glx_context *) source_user;
 475    struct glx_context *dest = (struct glx_context *) dest_user;
 476 #ifdef GLX_USE_APPLEGL
 477    struct glx_context *gc = __glXGetCurrentContext();
 478    int errorcode;
 479    bool x11error;
 480
 481    if(apple_glx_copy_context(gc->driContext, source->driContext, dest->driContext,
 482                              mask, &errorcode, &x11error)) {
 483       __glXSendError(dpy, errorcode, 0, X_GLXCopyContext, x11error);
 484    }
 485
 486 #else
 487    xGLXCopyContextReq *req;
 488    struct glx_context *gc = __glXGetCurrentContext();
 489    GLXContextTag tag;
 490    CARD8 opcode;
 491
 492    opcode = __glXSetupForCommand(dpy);
 493    if (!opcode) {
 494       return;
 495    }
 496
 497 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
 498    if (gc->isDirect) {
 499       /* NOT_DONE: This does not work yet */
 500    }
 501 #endif
 502
 503    /*
 504     ** If the source is the current context, send its tag so that the context
 505     ** can be flushed before the copy.
 506     */
 507    if (source == gc && dpy == gc->currentDpy) {
 508       tag = gc->currentContextTag;
 509    }
 510    else {
 511       tag = 0;
 512    }
 513
 514    /* Send the glXCopyContext request */
 515    LockDisplay(dpy);
 516    GetReq(GLXCopyContext, req);
 517    req->reqType = opcode;
 518    req->glxCode = X_GLXCopyContext;
 519    req->source = source ? source->xid : None;
 520    req->dest = dest ? dest->xid : None;
 521    req->mask = mask;
 522    req->contextTag = tag;
 523    UnlockDisplay(dpy);
 524    SyncHandle();
 525 #endif /* GLX_USE_APPLEGL */
 526 }
 527
 528
 529 /**
 530  * Determine if a context uses direct rendering.
 531  *
 532  * \param dpy        Display where the context was created.
 533  * \param contextID  ID of the context to be tested.
 534  *
 535  * \returns \c GL_TRUE if the context is direct rendering or not.
 536  */
 537 static Bool
 538 __glXIsDirect(Display * dpy, GLXContextID contextID)
 539 {
 540 #if !defined(USE_XCB)
 541    xGLXIsDirectReq *req;
 542    xGLXIsDirectReply reply;
 543 #endif
 544    CARD8 opcode;
 545
 546    opcode = __glXSetupForCommand(dpy);
 547    if (!opcode) {
 548       return GL_FALSE;
 549    }
 550
 551 #ifdef USE_XCB
 552    xcb_connection_t *c = XGetXCBConnection(dpy);
 553    xcb_glx_is_direct_reply_t *reply = xcb_glx_is_direct_reply(c,
 554                                                               xcb_glx_is_direct
 555                                                               (c, contextID),
 556                                                               NULL);
 557
 558    const Bool is_direct = reply->is_direct ? True : False;
 559    free(reply);
 560
 561    return is_direct;
 562 #else
 563    /* Send the glXIsDirect request */
 564    LockDisplay(dpy);
 565    GetReq(GLXIsDirect, req);
 566    req->reqType = opcode;
 567    req->glxCode = X_GLXIsDirect;
 568    req->context = contextID;
 569    _XReply(dpy, (xReply *) & reply, 0, False);
 570    UnlockDisplay(dpy);
 571    SyncHandle();
 572
 573    return reply.isDirect;
 574 #endif /* USE_XCB */
 575 }
 576
 577 /**
 578  * \todo
 579  * Shouldn't this function \b always return \c GL_FALSE when
 580  * \c GLX_DIRECT_RENDERING is not defined?  Do we really need to bother with
 581  * the GLX protocol here at all?
 582  */
 583 _X_EXPORT Bool
 584 glXIsDirect(Display * dpy, GLXContext gc_user)
 585 {
 586    struct glx_context *gc = (struct glx_context *) gc_user;
 587
 588    if (!gc) {
 589       return GL_FALSE;
 590    }
 591    else if (gc->isDirect) {
 592       return GL_TRUE;
 593    }
 594 #ifdef GLX_USE_APPLEGL  /* TODO: indirect on darwin */
 595       return GL_FALSE;
 596 #else
 597    return __glXIsDirect(dpy, gc->xid);
 598 #endif
 599 }
 600
 601 _X_EXPORT GLXPixmap
 602 glXCreateGLXPixmap(Display * dpy, XVisualInfo * vis, Pixmap pixmap)
 603 {
 604 #ifdef GLX_USE_APPLEGL
 605    int screen = vis->screen;
 606    struct glx_screen *const psc = GetGLXScreenConfigs(dpy, screen);
 607    const struct glx_config *config;
 608
 609    config = glx_config_find_visual(psc->visuals, vis->visualid);
 610
 611    if(apple_glx_pixmap_create(dpy, vis->screen, pixmap, config))
 612       return None;
 613
 614    return pixmap;
 615 #else
 616    xGLXCreateGLXPixmapReq *req;
 617    GLXPixmap xid;
 618    CARD8 opcode;
 619
 620    opcode = __glXSetupForCommand(dpy);
 621    if (!opcode) {
 622       return None;
 623    }
 624
 625    /* Send the glXCreateGLXPixmap request */
 626    LockDisplay(dpy);
 627    GetReq(GLXCreateGLXPixmap, req);
 628    req->reqType = opcode;
 629    req->glxCode = X_GLXCreateGLXPixmap;
 630    req->screen = vis->screen;
 631    req->visual = vis->visualid;
 632    req->pixmap = pixmap;
 633    req->glxpixmap = xid = XAllocID(dpy);
 634    UnlockDisplay(dpy);
 635    SyncHandle();
 636
 637 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
 638    do {
 639       /* FIXME: Maybe delay __DRIdrawable creation until the drawable
 640        * is actually bound to a context... */
 641
 642       struct glx_display *const priv = __glXInitialize(dpy);
 643       __GLXDRIdrawable *pdraw;
 644       struct glx_screen *psc;
 645       struct glx_config *config;
 646
 647       psc = priv->screens[vis->screen];
 648       if (psc->driScreen == NULL)
 649          break;
 650       config = glx_config_find_visual(psc->visuals, vis->visualid);
 651       pdraw = psc->driScreen->createDrawable(psc, pixmap, xid, config);
 652       if (pdraw == NULL) {
 653          fprintf(stderr, "failed to create pixmap\n");
 654          break;
 655       }
 656
 657       if (__glxHashInsert(priv->drawHash, xid, pdraw)) {
 658          (*pdraw->destroyDrawable) (pdraw);
 659          return None;           /* FIXME: Check what we're supposed to do here... */
 660       }
 661    } while (0);
 662 #endif
 663
 664    return xid;
 665 #endif
 666 }
 667
 668 /*
 669 ** Destroy the named pixmap
 670 */
 671 _X_EXPORT void
 672 glXDestroyGLXPixmap(Display * dpy, GLXPixmap glxpixmap)
 673 {
 674 #ifdef GLX_USE_APPLEGL
 675    if(apple_glx_pixmap_destroy(dpy, glxpixmap))
 676       __glXSendError(dpy, GLXBadPixmap, glxpixmap, X_GLXDestroyPixmap, false);
 677 #else
 678    xGLXDestroyGLXPixmapReq *req;
 679    CARD8 opcode;
 680
 681    opcode = __glXSetupForCommand(dpy);
 682    if (!opcode) {
 683       return;
 684    }
 685
 686    /* Send the glXDestroyGLXPixmap request */
 687    LockDisplay(dpy);
 688    GetReq(GLXDestroyGLXPixmap, req);
 689    req->reqType = opcode;
 690    req->glxCode = X_GLXDestroyGLXPixmap;
 691    req->glxpixmap = glxpixmap;
 692    UnlockDisplay(dpy);
 693    SyncHandle();
 694
 695 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
 696    {
 697       struct glx_display *const priv = __glXInitialize(dpy);
 698       __GLXDRIdrawable *pdraw = GetGLXDRIDrawable(dpy, glxpixmap);
 699
 700       if (pdraw != NULL) {
 701          (*pdraw->destroyDrawable) (pdraw);
 702          __glxHashDelete(priv->drawHash, glxpixmap);
 703       }
 704    }
 705 #endif
 706 #endif /* GLX_USE_APPLEGL */
 707 }
 708
 709 _X_EXPORT void
 710 glXSwapBuffers(Display * dpy, GLXDrawable drawable)
 711 {
 712 #ifdef GLX_USE_APPLEGL
 713    struct glx_context * gc = __glXGetCurrentContext();
 714    if(gc && apple_glx_is_current_drawable(dpy, gc->driContext, drawable)) {
 715       apple_glx_swap_buffers(gc->driContext);
 716    } else {
 717       __glXSendError(dpy, GLXBadCurrentWindow, 0, X_GLXSwapBuffers, false);
 718    }
 719 #else
 720    struct glx_context *gc;
 721    GLXContextTag tag;
 722    CARD8 opcode;
 723 #ifdef USE_XCB
 724    xcb_connection_t *c;
 725 #else
 726    xGLXSwapBuffersReq *req;
 727 #endif
 728
 729    gc = __glXGetCurrentContext();
 730
 731 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
 732    __GLXDRIdrawable *pdraw = GetGLXDRIDrawable(dpy, drawable);
 733
 734    if (pdraw != NULL) {
 735       if (gc && drawable == gc->currentDrawable) {
 736          glFlush();
 737       }
 738
 739       (*pdraw->psc->driScreen->swapBuffers)(pdraw, 0, 0, 0);
 740       return;
 741    }
 742 #endif
 743
 744    opcode = __glXSetupForCommand(dpy);
 745    if (!opcode) {
 746       return;
 747    }
 748
 749    /*
 750     ** The calling thread may or may not have a current context.  If it
 751     ** does, send the context tag so the server can do a flush.
 752     */
 753    if ((gc != NULL) && (dpy == gc->currentDpy) &&
 754        ((drawable == gc->currentDrawable)
 755         || (drawable == gc->currentReadable))) {
 756       tag = gc->currentContextTag;
 757    }
 758    else {
 759       tag = 0;
 760    }
 761
 762 #ifdef USE_XCB
 763    c = XGetXCBConnection(dpy);
 764    xcb_glx_swap_buffers(c, tag, drawable);
 765    xcb_flush(c);
 766 #else
 767    /* Send the glXSwapBuffers request */
 768    LockDisplay(dpy);
 769    GetReq(GLXSwapBuffers, req);
 770    req->reqType = opcode;
 771    req->glxCode = X_GLXSwapBuffers;
 772    req->drawable = drawable;
 773    req->contextTag = tag;
 774    UnlockDisplay(dpy);
 775    SyncHandle();
 776    XFlush(dpy);
 777 #endif /* USE_XCB */
 778 #endif /* GLX_USE_APPLEGL */
 779 }
 780
 781
 782 /*
 783 ** Return configuration information for the given display, screen and
 784 ** visual combination.
 785 */
 786 _X_EXPORT int
 787 glXGetConfig(Display * dpy, XVisualInfo * vis, int attribute,
 788              int *value_return)
 789 {
 790    struct glx_display *priv;
 791    struct glx_screen *psc;
 792    struct glx_config *config;
 793    int status;
 794
 795    status = GetGLXPrivScreenConfig(dpy, vis->screen, &priv, &psc);
 796    if (status == Success) {
 797       config = glx_config_find_visual(psc->visuals, vis->visualid);
 798
 799       /* Lookup attribute after first finding a match on the visual */
 800       if (config != NULL) {
 801          return glx_config_get(config, attribute, value_return);
 802       }
 803
 804       status = GLX_BAD_VISUAL;
 805    }
 806
 807    /*
 808     ** If we can't find the config for this visual, this visual is not
 809     ** supported by the OpenGL implementation on the server.
 810     */
 811    if ((status == GLX_BAD_VISUAL) && (attribute == GLX_USE_GL)) {
 812       *value_return = GL_FALSE;
 813       status = Success;
 814    }
 815
 816    return status;
 817 }
 818
 819 /************************************************************************/
 820
 821 static void
 822 init_fbconfig_for_chooser(struct glx_config * config,
 823                           GLboolean fbconfig_style_tags)
 824 {
 825    memset(config, 0, sizeof(struct glx_config));
 826    config->visualID = (XID) GLX_DONT_CARE;
 827    config->visualType = GLX_DONT_CARE;
 828
 829    /* glXChooseFBConfig specifies different defaults for these two than
 830     * glXChooseVisual.
 831     */
 832    if (fbconfig_style_tags) {
 833       config->rgbMode = GL_TRUE;
 834       config->doubleBufferMode = GLX_DONT_CARE;
 835    }
 836
 837    config->visualRating = GLX_DONT_CARE;
 838    config->transparentPixel = GLX_NONE;
 839    config->transparentRed = GLX_DONT_CARE;
 840    config->transparentGreen = GLX_DONT_CARE;
 841    config->transparentBlue = GLX_DONT_CARE;
 842    config->transparentAlpha = GLX_DONT_CARE;
 843    config->transparentIndex = GLX_DONT_CARE;
 844
 845    config->drawableType = GLX_WINDOW_BIT;
 846    config->renderType =
 847       (config->rgbMode) ? GLX_RGBA_BIT : GLX_COLOR_INDEX_BIT;
 848    config->xRenderable = GLX_DONT_CARE;
 849    config->fbconfigID = (GLXFBConfigID) (GLX_DONT_CARE);
 850
 851    config->swapMethod = GLX_DONT_CARE;
 852 }
 853
 854 #define MATCH_DONT_CARE( param )        \
 855   do {                                  \
 856     if ( ((int) a-> param != (int) GLX_DONT_CARE)   \
 857          && (a-> param != b-> param) ) {        \
 858       return False;                             \
 859     }                                           \
 860   } while ( 0 )
 861
 862 #define MATCH_MINIMUM( param )                  \
 863   do {                                          \
 864     if ( ((int) a-> param != (int) GLX_DONT_CARE)       \
 865          && (a-> param > b-> param) ) {         \
 866       return False;                             \
 867     }                                           \
 868   } while ( 0 )
 869
 870 #define MATCH_EXACT( param )                    \
 871   do {                                          \
 872     if ( a-> param != b-> param) {              \
 873       return False;                             \
 874     }                                           \
 875   } while ( 0 )
 876
 877 /* Test that all bits from a are contained in b */
 878 #define MATCH_MASK(param)                       \
 879   do {                                          \
 880     if ((a->param & ~b->param) != 0)            \
 881       return False;                             \
 882   } while (0);
 883
 884 /**
 885  * Determine if two GLXFBConfigs are compatible.
 886  *
 887  * \param a  Application specified config to test.
 888  * \param b  Server specified config to test against \c a.
 889  */
 890 static Bool
 891 fbconfigs_compatible(const struct glx_config * const a,
 892                      const struct glx_config * const b)
 893 {
 894    MATCH_DONT_CARE(doubleBufferMode);
 895    MATCH_DONT_CARE(visualType);
 896    MATCH_DONT_CARE(visualRating);
 897    MATCH_DONT_CARE(xRenderable);
 898    MATCH_DONT_CARE(fbconfigID);
 899    MATCH_DONT_CARE(swapMethod);
 900
 901    MATCH_MINIMUM(rgbBits);
 902    MATCH_MINIMUM(numAuxBuffers);
 903    MATCH_MINIMUM(redBits);
 904    MATCH_MINIMUM(greenBits);
 905    MATCH_MINIMUM(blueBits);
 906    MATCH_MINIMUM(alphaBits);
 907    MATCH_MINIMUM(depthBits);
 908    MATCH_MINIMUM(stencilBits);
 909    MATCH_MINIMUM(accumRedBits);
 910    MATCH_MINIMUM(accumGreenBits);
 911    MATCH_MINIMUM(accumBlueBits);
 912    MATCH_MINIMUM(accumAlphaBits);
 913    MATCH_MINIMUM(sampleBuffers);
 914    MATCH_MINIMUM(maxPbufferWidth);
 915    MATCH_MINIMUM(maxPbufferHeight);
 916    MATCH_MINIMUM(maxPbufferPixels);
 917    MATCH_MINIMUM(samples);
 918
 919    MATCH_DONT_CARE(stereoMode);
 920    MATCH_EXACT(level);
 921
 922    MATCH_MASK(drawableType);
 923    MATCH_MASK(renderType);
 924
 925    /* There is a bug in a few of the XFree86 DDX drivers.  They contain
 926     * visuals with a "transparent type" of 0 when they really mean GLX_NONE.
 927     * Technically speaking, it is a bug in the DDX driver, but there is
 928     * enough of an installed base to work around the problem here.  In any
 929     * case, 0 is not a valid value of the transparent type, so we'll treat 0
 930     * from the app as GLX_DONT_CARE. We'll consider GLX_NONE from the app and
 931     * 0 from the server to be a match to maintain backward compatibility with
 932     * the (broken) drivers.
 933     */
 934
 935    if (a->transparentPixel != (int) GLX_DONT_CARE && a->transparentPixel != 0) {
 936       if (a->transparentPixel == GLX_NONE) {
 937          if (b->transparentPixel != GLX_NONE && b->transparentPixel != 0)
 938             return False;
 939       }
 940       else {
 941          MATCH_EXACT(transparentPixel);
 942       }
 943
 944       switch (a->transparentPixel) {
 945       case GLX_TRANSPARENT_RGB:
 946          MATCH_DONT_CARE(transparentRed);
 947          MATCH_DONT_CARE(transparentGreen);
 948          MATCH_DONT_CARE(transparentBlue);
 949          MATCH_DONT_CARE(transparentAlpha);
 950          break;
 951
 952       case GLX_TRANSPARENT_INDEX:
 953          MATCH_DONT_CARE(transparentIndex);
 954          break;
 955
 956       default:
 957          break;
 958       }
 959    }
 960
 961    return True;
 962 }
 963
 964
 965 /* There's some trickly language in the GLX spec about how this is supposed
 966  * to work.  Basically, if a given component size is either not specified
 967  * or the requested size is zero, it is supposed to act like PERFER_SMALLER.
 968  * Well, that's really hard to do with the code as-is.  This behavior is
 969  * closer to correct, but still not technically right.
 970  */
 971 #define PREFER_LARGER_OR_ZERO(comp)             \
 972   do {                                          \
 973     if ( ((*a)-> comp) != ((*b)-> comp) ) {     \
 974       if ( ((*a)-> comp) == 0 ) {               \
 975         return -1;                              \
 976       }                                         \
 977       else if ( ((*b)-> comp) == 0 ) {          \
 978         return 1;                               \
 979       }                                         \
 980       else {                                    \
 981         return ((*b)-> comp) - ((*a)-> comp) ;  \
 982       }                                         \
 983     }                                           \
 984   } while( 0 )
 985
 986 #define PREFER_LARGER(comp)                     \
 987   do {                                          \
 988     if ( ((*a)-> comp) != ((*b)-> comp) ) {     \
 989       return ((*b)-> comp) - ((*a)-> comp) ;    \
 990     }                                           \
 991   } while( 0 )
 992
 993 #define PREFER_SMALLER(comp)                    \
 994   do {                                          \
 995     if ( ((*a)-> comp) != ((*b)-> comp) ) {     \
 996       return ((*a)-> comp) - ((*b)-> comp) ;    \
 997     }                                           \
 998   } while( 0 )
 999
1000 /**
1001  * Compare two GLXFBConfigs.  This function is intended to be used as the
1002  * compare function passed in to qsort.
1003  *
1004  * \returns If \c a is a "better" config, according to the specification of
1005  *          SGIX_fbconfig, a number less than zero is returned.  If \c b is
1006  *          better, then a number greater than zero is return.  If both are
1007  *          equal, zero is returned.
1008  * \sa qsort, glXChooseVisual, glXChooseFBConfig, glXChooseFBConfigSGIX
1009  */
1010 static int
1011 fbconfig_compare(struct glx_config **a, struct glx_config **b)
1012 {
1013    /* The order of these comparisons must NOT change.  It is defined by
1014     * the GLX 1.3 spec and ARB_multisample.
1015     */
1016
1017    PREFER_SMALLER(visualSelectGroup);
1018
1019    /* The sort order for the visualRating is GLX_NONE, GLX_SLOW, and
1020     * GLX_NON_CONFORMANT_CONFIG.  It just so happens that this is the
1021     * numerical sort order of the enums (0x8000, 0x8001, and 0x800D).
1022     */
1023    PREFER_SMALLER(visualRating);
1024
1025    /* This isn't quite right.  It is supposed to compare the sum of the
1026     * components the user specifically set minimums for.
1027     */
1028    PREFER_LARGER_OR_ZERO(redBits);
1029    PREFER_LARGER_OR_ZERO(greenBits);
1030    PREFER_LARGER_OR_ZERO(blueBits);
1031    PREFER_LARGER_OR_ZERO(alphaBits);
1032
1033    PREFER_SMALLER(rgbBits);
1034
1035    if (((*a)->doubleBufferMode != (*b)->doubleBufferMode)) {
1036       /* Prefer single-buffer.
1037        */
1038       return (!(*a)->doubleBufferMode) ? -1 : 1;
1039    }
1040
1041    PREFER_SMALLER(numAuxBuffers);
1042
1043    PREFER_LARGER_OR_ZERO(depthBits);
1044    PREFER_SMALLER(stencilBits);
1045
1046    /* This isn't quite right.  It is supposed to compare the sum of the
1047     * components the user specifically set minimums for.
1048     */
1049    PREFER_LARGER_OR_ZERO(accumRedBits);
1050    PREFER_LARGER_OR_ZERO(accumGreenBits);
1051    PREFER_LARGER_OR_ZERO(accumBlueBits);
1052    PREFER_LARGER_OR_ZERO(accumAlphaBits);
1053
1054    PREFER_SMALLER(visualType);
1055
1056    /* None of the multisample specs say where this comparison should happen,
1057     * so I put it near the end.
1058     */
1059    PREFER_SMALLER(sampleBuffers);
1060    PREFER_SMALLER(samples);
1061
1062    /* None of the pbuffer or fbconfig specs say that this comparison needs
1063     * to happen at all, but it seems like it should.
1064     */
1065    PREFER_LARGER(maxPbufferWidth);
1066    PREFER_LARGER(maxPbufferHeight);
1067    PREFER_LARGER(maxPbufferPixels);
1068
1069    return 0;
1070 }
1071
1072
1073 /**
1074  * Selects and sorts a subset of the supplied configs based on the attributes.
1075  * This function forms to basis of \c glXChooseVisual, \c glXChooseFBConfig,
1076  * and \c glXChooseFBConfigSGIX.
1077  *
1078  * \param configs   Array of pointers to possible configs.  The elements of
1079  *                  this array that do not meet the criteria will be set to
1080  *                  NULL.  The remaining elements will be sorted according to
1081  *                  the various visual / FBConfig selection rules.
1082  * \param num_configs  Number of elements in the \c configs array.
1083  * \param attribList   Attributes used select from \c configs.  This array is
1084  *                     terminated by a \c None tag.  The array can either take
1085  *                     the form expected by \c glXChooseVisual (where boolean
1086  *                     tags do not have a value) or by \c glXChooseFBConfig
1087  *                     (where every tag has a value).
1088  * \param fbconfig_style_tags  Selects whether \c attribList is in
1089  *                             \c glXChooseVisual style or
1090  *                             \c glXChooseFBConfig style.
1091  * \returns The number of valid elements left in \c configs.
1092  *
1093  * \sa glXChooseVisual, glXChooseFBConfig, glXChooseFBConfigSGIX
1094  */
1095 static int
1096 choose_visual(struct glx_config ** configs, int num_configs,
1097               const int *attribList, GLboolean fbconfig_style_tags)
1098 {
1099    struct glx_config test_config;
1100    int base;
1101    int i;
1102
1103    /* This is a fairly direct implementation of the selection method
1104     * described by GLX_SGIX_fbconfig.  Start by culling out all the
1105     * configs that are not compatible with the selected parameter
1106     * list.
1107     */
1108
1109    init_fbconfig_for_chooser(&test_config, fbconfig_style_tags);
1110    __glXInitializeVisualConfigFromTags(&test_config, 512,
1111                                        (const INT32 *) attribList,
1112                                        GL_TRUE, fbconfig_style_tags);
1113
1114    base = 0;
1115    for (i = 0; i < num_configs; i++) {
1116       if (fbconfigs_compatible(&test_config, configs[i])) {
1117          configs[base] = configs[i];
1118          base++;
1119       }
1120    }
1121
1122    if (base == 0) {
1123       return 0;
1124    }
1125
1126    if (base < num_configs) {
1127       (void) memset(&configs[base], 0, sizeof(void *) * (num_configs - base));
1128    }
1129
1130    /* After the incompatible configs are removed, the resulting
1131     * list is sorted according to the rules set out in the various
1132     * specifications.
1133     */
1134
1135    qsort(configs, base, sizeof(struct glx_config *),
1136          (int (*)(const void *, const void *)) fbconfig_compare);
1137    return base;
1138 }
1139
1140
1141
1142
1143 /*
1144 ** Return the visual that best matches the template.  Return None if no
1145 ** visual matches the template.
1146 */
1147 _X_EXPORT XVisualInfo *
1148 glXChooseVisual(Display * dpy, int screen, int *attribList)
1149 {
1150    XVisualInfo *visualList = NULL;
1151    struct glx_display *priv;
1152    struct glx_screen *psc;
1153    struct glx_config test_config;
1154    struct glx_config *config;
1155    struct glx_config *best_config = NULL;
1156
1157    /*
1158     ** Get a list of all visuals, return if list is empty
1159     */
1160    if (GetGLXPrivScreenConfig(dpy, screen, &priv, &psc) != Success) {
1161       return None;
1162    }
1163
1164
1165    /*
1166     ** Build a template from the defaults and the attribute list
1167     ** Free visual list and return if an unexpected token is encountered
1168     */
1169    init_fbconfig_for_chooser(&test_config, GL_FALSE);
1170    __glXInitializeVisualConfigFromTags(&test_config, 512,
1171                                        (const INT32 *) attribList,
1172                                        GL_TRUE, GL_FALSE);
1173
1174    /*
1175     ** Eliminate visuals that don't meet minimum requirements
1176     ** Compute a score for those that do
1177     ** Remember which visual, if any, got the highest score
1178     ** If no visual is acceptable, return None
1179     ** Otherwise, create an XVisualInfo list with just the selected X visual
1180     ** and return this.
1181     */
1182    for (config = psc->visuals; config != NULL; config = config->next) {
1183       if (fbconfigs_compatible(&test_config, config)
1184           && ((best_config == NULL) ||
1185               (fbconfig_compare (&config, &best_config) < 0))) {
1186          XVisualInfo visualTemplate;
1187          XVisualInfo *newList;
1188          int i;
1189
1190          visualTemplate.screen = screen;
1191          visualTemplate.visualid = config->visualID;
1192          newList = XGetVisualInfo(dpy, VisualScreenMask | VisualIDMask,
1193                                   &visualTemplate, &i);
1194
1195          if (newList) {
1196             Xfree(visualList);
1197             visualList = newList;
1198             best_config = config;
1199          }
1200       }
1201    }
1202
1203 #ifdef GLX_USE_APPLEGL
1204    if(visualList && getenv("LIBGL_DUMP_VISUALID")) {
1205       printf("visualid 0x%lx\n", visualList[0].visualid);
1206    }
1207 #endif
1208
1209    return visualList;
1210 }
1211
1212
1213 _X_EXPORT const char *
1214 glXQueryExtensionsString(Display * dpy, int screen)
1215 {
1216    struct glx_screen *psc;
1217    struct glx_display *priv;
1218
1219    if (GetGLXPrivScreenConfig(dpy, screen, &priv, &psc) != Success) {
1220       return NULL;
1221    }
1222
1223    if (!psc->effectiveGLXexts) {
1224       if (!psc->serverGLXexts) {
1225          psc->serverGLXexts =
1226             __glXQueryServerString(dpy, priv->majorOpcode, screen,
1227                                    GLX_EXTENSIONS);
1228       }
1229
1230       __glXCalculateUsableExtensions(psc,
1231 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
1232                                      (psc->driScreen != NULL),
1233 #else
1234                                      GL_FALSE,
1235 #endif
1236                                      priv->minorVersion);
1237    }
1238
1239    return psc->effectiveGLXexts;
1240 }
1241
1242 _X_EXPORT const char *
1243 glXGetClientString(Display * dpy, int name)
1244 {
1245    (void) dpy;
1246
1247    switch (name) {
1248    case GLX_VENDOR:
1249       return (__glXGLXClientVendorName);
1250    case GLX_VERSION:
1251       return (__glXGLXClientVersion);
1252    case GLX_EXTENSIONS:
1253       return (__glXGetClientExtensions());
1254    default:
1255       return NULL;
1256    }
1257 }
1258
1259 _X_EXPORT const char *
1260 glXQueryServerString(Display * dpy, int screen, int name)
1261 {
1262    struct glx_screen *psc;
1263    struct glx_display *priv;
1264    const char **str;
1265
1266
1267    if (GetGLXPrivScreenConfig(dpy, screen, &priv, &psc) != Success) {
1268       return NULL;
1269    }
1270
1271    switch (name) {
1272    case GLX_VENDOR:
1273       str = &priv->serverGLXvendor;
1274       break;
1275    case GLX_VERSION:
1276       str = &priv->serverGLXversion;
1277       break;
1278    case GLX_EXTENSIONS:
1279       str = &psc->serverGLXexts;
1280       break;
1281    default:
1282       return NULL;
1283    }
1284
1285    if (*str == NULL) {
1286       *str = __glXQueryServerString(dpy, priv->majorOpcode, screen, name);
1287    }
1288
1289    return *str;
1290 }
1291
1292 void
1293 __glXClientInfo(Display * dpy, int opcode)
1294 {
1295    char *ext_str = __glXGetClientGLExtensionString();
1296    int size = strlen(ext_str) + 1;
1297
1298 #ifdef USE_XCB
1299    xcb_connection_t *c = XGetXCBConnection(dpy);
1300    xcb_glx_client_info(c,
1301                        GLX_MAJOR_VERSION, GLX_MINOR_VERSION, size, ext_str);
1302 #else
1303    xGLXClientInfoReq *req;
1304
1305    /* Send the glXClientInfo request */
1306    LockDisplay(dpy);
1307    GetReq(GLXClientInfo, req);
1308    req->reqType = opcode;
1309    req->glxCode = X_GLXClientInfo;
1310    req->major = GLX_MAJOR_VERSION;
1311    req->minor = GLX_MINOR_VERSION;
1312
1313    req->length += (size + 3) >> 2;
1314    req->numbytes = size;
1315    Data(dpy, ext_str, size);
1316
1317    UnlockDisplay(dpy);
1318    SyncHandle();
1319 #endif /* USE_XCB */
1320
1321    Xfree(ext_str);
1322 }
1323
1324
1325 /*
1326 ** EXT_import_context
1327 */
1328
1329 _X_EXPORT Display *
1330 glXGetCurrentDisplay(void)
1331 {
1332    struct glx_context *gc = __glXGetCurrentContext();
1333    if (NULL == gc)
1334       return NULL;
1335    return gc->currentDpy;
1336 }
1337
1338 _X_EXPORT
1339 GLX_ALIAS(Display *, glXGetCurrentDisplayEXT, (void), (),
1340           glXGetCurrentDisplay)
1341
1342 #ifndef GLX_USE_APPLEGL
1343 _X_EXPORT GLXContext
1344 glXImportContextEXT(Display *dpy, GLXContextID contextID)
1345 {
1346    struct glx_display *priv = __glXInitialize(dpy);
1347    struct glx_screen *psc;
1348    xGLXQueryContextReply reply;
1349    CARD8 opcode;
1350    struct glx_context *ctx;
1351    int propList[__GLX_MAX_CONTEXT_PROPS * 2], *pProp, nPropListBytes;
1352    int i, renderType;
1353    XID share;
1354    struct glx_config *mode;
1355
1356    if (contextID == None || __glXIsDirect(dpy, contextID))
1357       return NULL;
1358
1359    opcode = __glXSetupForCommand(dpy);
1360    if (!opcode)
1361       return 0;
1362
1363    /* Send the glXQueryContextInfoEXT request */
1364    LockDisplay(dpy);
1365
1366    if (priv->majorVersion > 1 || priv->minorVersion >= 3) {
1367       xGLXQueryContextReq *req;
1368
1369       GetReq(GLXQueryContext, req);
1370
1371       req->reqType = opcode;
1372       req->glxCode = X_GLXQueryContext;
1373       req->context = contextID;
1374    }
1375    else {
1376       xGLXVendorPrivateReq *vpreq;
1377       xGLXQueryContextInfoEXTReq *req;
1378
1379       GetReqExtra(GLXVendorPrivate,
1380                   sz_xGLXQueryContextInfoEXTReq - sz_xGLXVendorPrivateReq,
1381                   vpreq);
1382       req = (xGLXQueryContextInfoEXTReq *) vpreq;
1383       req->reqType = opcode;
1384       req->glxCode = X_GLXVendorPrivateWithReply;
1385       req->vendorCode = X_GLXvop_QueryContextInfoEXT;
1386       req->context = contextID;
1387    }
1388
1389    _XReply(dpy, (xReply *) & reply, 0, False);
1390
1391    if (reply.n <= __GLX_MAX_CONTEXT_PROPS)
1392       nPropListBytes = reply.n * 2 * sizeof propList[0];
1393    else
1394       nPropListBytes = 0;
1395    _XRead(dpy, (char *) propList, nPropListBytes);
1396    UnlockDisplay(dpy);
1397    SyncHandle();
1398
1399    /* Look up screen first so we can look up visuals/fbconfigs later */
1400    psc = NULL;
1401    for (i = 0, pProp = propList; i < reply.n; i++, pProp += 2)
1402       if (pProp[0] == GLX_SCREEN)
1403          psc = GetGLXScreenConfigs(dpy, pProp[1]);
1404    if (psc == NULL)
1405       return NULL;
1406
1407    share = None;
1408    mode = NULL;
1409    renderType = 0;
1410    pProp = propList;
1411
1412    for (i = 0, pProp = propList; i < reply.n; i++, pProp += 2)
1413       switch (pProp[0]) {
1414       case GLX_SHARE_CONTEXT_EXT:
1415          share = pProp[1];
1416          break;
1417       case GLX_VISUAL_ID_EXT:
1418          mode = glx_config_find_visual(psc->visuals, pProp[1]);
1419          break;
1420       case GLX_FBCONFIG_ID:
1421          mode = glx_config_find_fbconfig(psc->configs, pProp[1]);
1422          break;
1423       case GLX_RENDER_TYPE:
1424          renderType = pProp[1];
1425          break;
1426       }
1427
1428    if (mode == NULL)
1429       return NULL;
1430
1431    ctx = indirect_create_context(psc, mode, NULL, renderType);
1432    if (ctx == NULL)
1433       return NULL;
1434
1435    ctx->xid = contextID;
1436    ctx->imported = GL_TRUE;
1437    ctx->share_xid = share;
1438
1439    return (GLXContext) ctx;
1440 }
1441
1442 #endif
1443
1444 _X_EXPORT int
1445 glXQueryContext(Display * dpy, GLXContext ctx_user, int attribute, int *value)
1446 {
1447    struct glx_context *ctx = (struct glx_context *) ctx_user;
1448
1449    switch (attribute) {
1450       case GLX_SHARE_CONTEXT_EXT:
1451       *value = ctx->share_xid;
1452       break;
1453    case GLX_VISUAL_ID_EXT:
1454       *value = ctx->config ? ctx->config->visualID : None;
1455       break;
1456    case GLX_SCREEN:
1457       *value = ctx->screen;
1458       break;
1459    case GLX_FBCONFIG_ID:
1460       *value = ctx->config ? ctx->config->fbconfigID : None;
1461       break;
1462    case GLX_RENDER_TYPE:
1463       *value = ctx->renderType;
1464       break;
1465    default:
1466       return GLX_BAD_ATTRIBUTE;
1467    }
1468    return Success;
1469 }
1470
1471 _X_EXPORT
1472 GLX_ALIAS(int, glXQueryContextInfoEXT,
1473           (Display * dpy, GLXContext ctx, int attribute, int *value),
1474           (dpy, ctx, attribute, value), glXQueryContext)
1475
1476 _X_EXPORT GLXContextID glXGetContextIDEXT(const GLXContext ctx_user)
1477 {
1478    struct glx_context *ctx = (struct glx_context *) ctx_user;
1479
1480    return ctx->xid;
1481 }
1482
1483 _X_EXPORT void
1484 glXFreeContextEXT(Display * dpy, GLXContext ctx)
1485 {
1486    DestroyContext(dpy, ctx);
1487 }
1488
1489
1490 _X_EXPORT GLXFBConfig *
1491 glXChooseFBConfig(Display * dpy, int screen,
1492                   const int *attribList, int *nitems)
1493 {
1494    struct glx_config **config_list;
1495    int list_size;
1496
1497
1498    config_list = (struct glx_config **)
1499       glXGetFBConfigs(dpy, screen, &list_size);
1500
1501    if ((config_list != NULL) && (list_size > 0) && (attribList != NULL)) {
1502       list_size = choose_visual(config_list, list_size, attribList, GL_TRUE);
1503       if (list_size == 0) {
1504          XFree(config_list);
1505          config_list = NULL;
1506       }
1507    }
1508
1509    *nitems = list_size;
1510    return (GLXFBConfig *) config_list;
1511 }
1512
1513
1514 _X_EXPORT GLXContext
1515 glXCreateNewContext(Display * dpy, GLXFBConfig fbconfig,
1516                     int renderType, GLXContext shareList, Bool allowDirect)
1517 {
1518    struct glx_config *config = (struct glx_config *) fbconfig;
1519
1520    return CreateContext(dpy, config->fbconfigID, config, shareList,
1521                         allowDirect, X_GLXCreateNewContext, renderType,
1522                         config->screen);
1523 }
1524
1525
1526 _X_EXPORT GLXDrawable
1527 glXGetCurrentReadDrawable(void)
1528 {
1529    struct glx_context *gc = __glXGetCurrentContext();
1530
1531    return gc->currentReadable;
1532 }
1533
1534
1535 _X_EXPORT GLXFBConfig *
1536 glXGetFBConfigs(Display * dpy, int screen, int *nelements)
1537 {
1538    struct glx_display *priv = __glXInitialize(dpy);
1539    struct glx_config **config_list = NULL;
1540    struct glx_config *config;
1541    unsigned num_configs = 0;
1542    int i;
1543
1544    *nelements = 0;
1545    if (priv && (priv->screens != NULL)
1546        && (screen >= 0) && (screen <= ScreenCount(dpy))
1547        && (priv->screens[screen]->configs != NULL)
1548        && (priv->screens[screen]->configs->fbconfigID
1549            != (int) GLX_DONT_CARE)) {
1550
1551       for (config = priv->screens[screen]->configs; config != NULL;
1552            config = config->next) {
1553          if (config->fbconfigID != (int) GLX_DONT_CARE) {
1554             num_configs++;
1555          }
1556       }
1557
1558       config_list = Xmalloc(num_configs * sizeof *config_list);
1559       if (config_list != NULL) {
1560          *nelements = num_configs;
1561          i = 0;
1562          for (config = priv->screens[screen]->configs; config != NULL;
1563               config = config->next) {
1564             if (config->fbconfigID != (int) GLX_DONT_CARE) {
1565                config_list[i] = config;
1566                i++;
1567             }
1568          }
1569       }
1570    }
1571
1572    return (GLXFBConfig *) config_list;
1573 }
1574
1575
1576 _X_EXPORT int
1577 glXGetFBConfigAttrib(Display * dpy, GLXFBConfig fbconfig,
1578                      int attribute, int *value)
1579 {
1580    struct glx_config *config = ValidateGLXFBConfig(dpy, fbconfig);
1581
1582    if (config == NULL)
1583       return GLXBadFBConfig;
1584
1585    return glx_config_get(config, attribute, value);
1586 }
1587
1588
1589 _X_EXPORT XVisualInfo *
1590 glXGetVisualFromFBConfig(Display * dpy, GLXFBConfig fbconfig)
1591 {
1592    XVisualInfo visualTemplate;
1593    struct glx_config *config = (struct glx_config *) fbconfig;
1594    int count;
1595
1596    /*
1597     ** Get a list of all visuals, return if list is empty
1598     */
1599    visualTemplate.visualid = config->visualID;
1600    return XGetVisualInfo(dpy, VisualIDMask, &visualTemplate, &count);
1601 }
1602
1603 #ifndef GLX_USE_APPLEGL
1604 /*
1605 ** GLX_SGI_swap_control
1606 */
1607 static int
1608 __glXSwapIntervalSGI(int interval)
1609 {
1610    xGLXVendorPrivateReq *req;
1611    struct glx_context *gc = __glXGetCurrentContext();
1612    struct glx_screen *psc;
1613    Display *dpy;
1614    CARD32 *interval_ptr;
1615    CARD8 opcode;
1616
1617    if (gc == NULL) {
1618       return GLX_BAD_CONTEXT;
1619    }
1620
1621    if (interval <= 0) {
1622       return GLX_BAD_VALUE;
1623    }
1624
1625    psc = GetGLXScreenConfigs( gc->currentDpy, gc->screen);
1626
1627 #ifdef GLX_DIRECT_RENDERING
1628    if (gc->isDirect && psc->driScreen && psc->driScreen->setSwapInterval) {
1629       __GLXDRIdrawable *pdraw =
1630          GetGLXDRIDrawable(gc->currentDpy, gc->currentDrawable);
1631       psc->driScreen->setSwapInterval(pdraw, interval);
1632       return 0;
1633    }
1634 #endif
1635
1636    dpy = gc->currentDpy;
1637    opcode = __glXSetupForCommand(dpy);
1638    if (!opcode) {
1639       return 0;
1640    }
1641
1642    /* Send the glXSwapIntervalSGI request */
1643    LockDisplay(dpy);
1644    GetReqExtra(GLXVendorPrivate, sizeof(CARD32), req);
1645    req->reqType = opcode;
1646    req->glxCode = X_GLXVendorPrivate;
1647    req->vendorCode = X_GLXvop_SwapIntervalSGI;
1648    req->contextTag = gc->currentContextTag;
1649
1650    interval_ptr = (CARD32 *) (req + 1);
1651    *interval_ptr = interval;
1652
1653    UnlockDisplay(dpy);
1654    SyncHandle();
1655    XFlush(dpy);
1656
1657    return 0;
1658 }
1659
1660
1661 /*
1662 ** GLX_MESA_swap_control
1663 */
1664 static int
1665 __glXSwapIntervalMESA(unsigned int interval)
1666 {
1667 #ifdef GLX_DIRECT_RENDERING
1668    struct glx_context *gc = __glXGetCurrentContext();
1669
1670    if (gc != NULL && gc->isDirect) {
1671       struct glx_screen *psc;
1672
1673       psc = GetGLXScreenConfigs( gc->currentDpy, gc->screen);
1674       if (psc->driScreen && psc->driScreen->setSwapInterval) {
1675          __GLXDRIdrawable *pdraw =
1676             GetGLXDRIDrawable(gc->currentDpy, gc->currentDrawable);
1677          return psc->driScreen->setSwapInterval(pdraw, interval);
1678       }
1679    }
1680 #endif
1681
1682    return GLX_BAD_CONTEXT;
1683 }
1684
1685
1686 static int
1687 __glXGetSwapIntervalMESA(void)
1688 {
1689 #ifdef GLX_DIRECT_RENDERING
1690    struct glx_context *gc = __glXGetCurrentContext();
1691
1692    if (gc != NULL && gc->isDirect) {
1693       struct glx_screen *psc;
1694
1695       psc = GetGLXScreenConfigs( gc->currentDpy, gc->screen);
1696       if (psc->driScreen && psc->driScreen->getSwapInterval) {
1697          __GLXDRIdrawable *pdraw =
1698             GetGLXDRIDrawable(gc->currentDpy, gc->currentDrawable);
1699          return psc->driScreen->getSwapInterval(pdraw);
1700       }
1701    }
1702 #endif
1703
1704    return 0;
1705 }
1706
1707
1708 /*
1709 ** GLX_SGI_video_sync
1710 */
1711 static int
1712 __glXGetVideoSyncSGI(unsigned int *count)
1713 {
1714    int64_t ust, msc, sbc;
1715    int ret;
1716    struct glx_context *gc = __glXGetCurrentContext();
1717    struct glx_screen *psc;
1718 #ifdef GLX_DIRECT_RENDERING
1719    __GLXDRIdrawable *pdraw;
1720 #endif
1721
1722    if (!gc)
1723       return GLX_BAD_CONTEXT;
1724
1725 #ifdef GLX_DIRECT_RENDERING
1726    if (!gc->isDirect)
1727       return GLX_BAD_CONTEXT;
1728 #endif
1729
1730    psc = GetGLXScreenConfigs(gc->currentDpy, gc->screen);
1731 #ifdef GLX_DIRECT_RENDERING
1732    pdraw = GetGLXDRIDrawable(gc->currentDpy, gc->currentDrawable);
1733 #endif
1734
1735    /* FIXME: Looking at the GLX_SGI_video_sync spec in the extension registry,
1736     * FIXME: there should be a GLX encoding for this call.  I can find no
1737     * FIXME: documentation for the GLX encoding.
1738     */
1739 #ifdef GLX_DIRECT_RENDERING
1740    if (psc->driScreen && psc->driScreen->getDrawableMSC) {
1741       ret = psc->driScreen->getDrawableMSC(psc, pdraw, &ust, &msc, &sbc);
1742       *count = (unsigned) msc;
1743       return (ret == True) ? 0 : GLX_BAD_CONTEXT;
1744    }
1745 #endif
1746
1747    return GLX_BAD_CONTEXT;
1748 }
1749
1750 static int
1751 __glXWaitVideoSyncSGI(int divisor, int remainder, unsigned int *count)
1752 {
1753    struct glx_context *gc = __glXGetCurrentContext();
1754    struct glx_screen *psc;
1755 #ifdef GLX_DIRECT_RENDERING
1756    __GLXDRIdrawable *pdraw;
1757 #endif
1758    int64_t ust, msc, sbc;
1759    int ret;
1760
1761    if (divisor <= 0 || remainder < 0)
1762       return GLX_BAD_VALUE;
1763
1764    if (!gc)
1765       return GLX_BAD_CONTEXT;
1766
1767 #ifdef GLX_DIRECT_RENDERING
1768    if (!gc->isDirect)
1769       return GLX_BAD_CONTEXT;
1770 #endif
1771
1772    psc = GetGLXScreenConfigs( gc->currentDpy, gc->screen);
1773 #ifdef GLX_DIRECT_RENDERING
1774    pdraw = GetGLXDRIDrawable(gc->currentDpy, gc->currentDrawable);
1775 #endif
1776
1777 #ifdef GLX_DIRECT_RENDERING
1778    if (psc->driScreen && psc->driScreen->waitForMSC) {
1779       ret = psc->driScreen->waitForMSC(pdraw, 0, divisor, remainder, &ust, &msc,
1780                                        &sbc);
1781       *count = (unsigned) msc;
1782       return (ret == True) ? 0 : GLX_BAD_CONTEXT;
1783    }
1784 #endif
1785
1786    return GLX_BAD_CONTEXT;
1787 }
1788
1789 #endif /* GLX_USE_APPLEGL */
1790
1791 /*
1792 ** GLX_SGIX_fbconfig
1793 ** Many of these functions are aliased to GLX 1.3 entry points in the
1794 ** GLX_functions table.
1795 */
1796
1797 _X_EXPORT
1798 GLX_ALIAS(int, glXGetFBConfigAttribSGIX,
1799           (Display * dpy, GLXFBConfigSGIX config, int attribute, int *value),
1800           (dpy, config, attribute, value), glXGetFBConfigAttrib)
1801
1802 _X_EXPORT GLX_ALIAS(GLXFBConfigSGIX *, glXChooseFBConfigSGIX,
1803                  (Display * dpy, int screen, int *attrib_list,
1804                   int *nelements), (dpy, screen, attrib_list, nelements),
1805                  glXChooseFBConfig)
1806
1807 _X_EXPORT GLX_ALIAS(XVisualInfo *, glXGetVisualFromFBConfigSGIX,
1808                  (Display * dpy, GLXFBConfigSGIX config),
1809                  (dpy, config), glXGetVisualFromFBConfig)
1810
1811 _X_EXPORT GLXPixmap
1812 glXCreateGLXPixmapWithConfigSGIX(Display * dpy,
1813                                  GLXFBConfigSGIX fbconfig,
1814                                  Pixmap pixmap)
1815 {
1816 #ifndef GLX_USE_APPLEGL
1817    xGLXVendorPrivateWithReplyReq *vpreq;
1818    xGLXCreateGLXPixmapWithConfigSGIXReq *req;
1819    GLXPixmap xid = None;
1820    CARD8 opcode;
1821    struct glx_screen *psc;
1822 #endif
1823    struct glx_config *config = (struct glx_config *) fbconfig;
1824
1825
1826    if ((dpy == NULL) || (config == NULL)) {
1827       return None;
1828    }
1829 #ifdef GLX_USE_APPLEGL
1830    if(apple_glx_pixmap_create(dpy, config->screen, pixmap, config))
1831       return None;
1832    return pixmap;
1833 #else
1834
1835    psc = GetGLXScreenConfigs(dpy, config->screen);
1836    if ((psc != NULL)
1837        && __glXExtensionBitIsEnabled(psc, SGIX_fbconfig_bit)) {
1838       opcode = __glXSetupForCommand(dpy);
1839       if (!opcode) {
1840          return None;
1841       }
1842
1843       /* Send the glXCreateGLXPixmapWithConfigSGIX request */
1844       LockDisplay(dpy);
1845       GetReqExtra(GLXVendorPrivateWithReply,
1846                   sz_xGLXCreateGLXPixmapWithConfigSGIXReq -
1847                   sz_xGLXVendorPrivateWithReplyReq, vpreq);
1848       req = (xGLXCreateGLXPixmapWithConfigSGIXReq *) vpreq;
1849       req->reqType = opcode;
1850       req->glxCode = X_GLXVendorPrivateWithReply;
1851       req->vendorCode = X_GLXvop_CreateGLXPixmapWithConfigSGIX;
1852       req->screen = config->screen;
1853       req->fbconfig = config->fbconfigID;
1854       req->pixmap = pixmap;
1855       req->glxpixmap = xid = XAllocID(dpy);
1856       UnlockDisplay(dpy);
1857       SyncHandle();
1858    }
1859
1860    return xid;
1861 #endif
1862 }
1863
1864 _X_EXPORT GLXContext
1865 glXCreateContextWithConfigSGIX(Display * dpy,
1866                                GLXFBConfigSGIX fbconfig, int renderType,
1867                                GLXContext shareList, Bool allowDirect)
1868 {
1869    GLXContext gc = NULL;
1870    struct glx_config *config = (struct glx_config *) fbconfig;
1871    struct glx_screen *psc;
1872
1873
1874    if ((dpy == NULL) || (config == NULL)) {
1875       return None;
1876    }
1877
1878    psc = GetGLXScreenConfigs(dpy, config->screen);
1879    if ((psc != NULL)
1880        && __glXExtensionBitIsEnabled(psc, SGIX_fbconfig_bit)) {
1881       gc = CreateContext(dpy, config->fbconfigID, config, shareList,
1882                          allowDirect,
1883                          X_GLXvop_CreateContextWithConfigSGIX, renderType,
1884                          config->screen);
1885    }
1886
1887    return gc;
1888 }
1889
1890
1891 _X_EXPORT GLXFBConfigSGIX
1892 glXGetFBConfigFromVisualSGIX(Display * dpy, XVisualInfo * vis)
1893 {
1894    struct glx_display *priv;
1895    struct glx_screen *psc = NULL;
1896
1897    if ((GetGLXPrivScreenConfig(dpy, vis->screen, &priv, &psc) == Success)
1898        && __glXExtensionBitIsEnabled(psc, SGIX_fbconfig_bit)
1899        && (psc->configs->fbconfigID != (int) GLX_DONT_CARE)) {
1900       return (GLXFBConfigSGIX) glx_config_find_visual(psc->configs,
1901                                                       vis->visualid);
1902    }
1903
1904    return NULL;
1905 }
1906
1907 #ifndef GLX_USE_APPLEGL
1908 /*
1909 ** GLX_SGIX_swap_group
1910 */
1911 static void
1912 __glXJoinSwapGroupSGIX(Display * dpy, GLXDrawable drawable,
1913                        GLXDrawable member)
1914 {
1915    (void) dpy;
1916    (void) drawable;
1917    (void) member;
1918 }
1919
1920
1921 /*
1922 ** GLX_SGIX_swap_barrier
1923 */
1924 static void
1925 __glXBindSwapBarrierSGIX(Display * dpy, GLXDrawable drawable, int barrier)
1926 {
1927    (void) dpy;
1928    (void) drawable;
1929    (void) barrier;
1930 }
1931
1932 static Bool
1933 __glXQueryMaxSwapBarriersSGIX(Display * dpy, int screen, int *max)
1934 {
1935    (void) dpy;
1936    (void) screen;
1937    (void) max;
1938    return False;
1939 }
1940
1941
1942 /*
1943 ** GLX_OML_sync_control
1944 */
1945 static Bool
1946 __glXGetSyncValuesOML(Display * dpy, GLXDrawable drawable,
1947                       int64_t * ust, int64_t * msc, int64_t * sbc)
1948 {
1949    struct glx_display * const priv = __glXInitialize(dpy);
1950    int ret;
1951 #ifdef GLX_DIRECT_RENDERING
1952    __GLXDRIdrawable *pdraw;
1953 #endif
1954    struct glx_screen *psc;
1955
1956    if (!priv)
1957       return False;
1958
1959 #ifdef GLX_DIRECT_RENDERING
1960    pdraw = GetGLXDRIDrawable(dpy, drawable);
1961    psc = pdraw ? pdraw->psc : NULL;
1962    if (pdraw && psc->driScreen->getDrawableMSC) {
1963       ret = psc->driScreen->getDrawableMSC(psc, pdraw, ust, msc, sbc);
1964       return ret;
1965    }
1966 #endif
1967
1968    return False;
1969 }
1970
1971 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
1972 _X_HIDDEN GLboolean
1973 __glxGetMscRate(__GLXDRIdrawable *glxDraw,
1974                 int32_t * numerator, int32_t * denominator)
1975 {
1976 #ifdef XF86VIDMODE
1977    struct glx_screen *psc;
1978    XF86VidModeModeLine mode_line;
1979    int dot_clock;
1980    int i;
1981
1982    psc = glxDraw->psc;
1983    if (XF86VidModeQueryVersion(psc->dpy, &i, &i) &&
1984        XF86VidModeGetModeLine(psc->dpy, psc->scr, &dot_clock, &mode_line)) {
1985       unsigned n = dot_clock * 1000;
1986       unsigned d = mode_line.vtotal * mode_line.htotal;
1987
1988 # define V_INTERLACE 0x010
1989 # define V_DBLSCAN   0x020
1990
1991       if (mode_line.flags & V_INTERLACE)
1992          n *= 2;
1993       else if (mode_line.flags & V_DBLSCAN)
1994          d *= 2;
1995
1996       /* The OML_sync_control spec requires that if the refresh rate is a
1997        * whole number, that the returned numerator be equal to the refresh
1998        * rate and the denominator be 1.
1999        */
2000
2001       if (n % d == 0) {
2002          n /= d;
2003          d = 1;
2004       }
2005       else {
2006          static const unsigned f[] = { 13, 11, 7, 5, 3, 2, 0 };
2007
2008          /* This is a poor man's way to reduce a fraction.  It's far from
2009           * perfect, but it will work well enough for this situation.
2010           */
2011
2012          for (i = 0; f[i] != 0; i++) {
2013             while (n % f[i] == 0 && d % f[i] == 0) {
2014                d /= f[i];
2015                n /= f[i];
2016             }
2017          }
2018       }
2019
2020       *numerator = n;
2021       *denominator = d;
2022
2023       return True;
2024    }
2025    else
2026 #endif
2027
2028    return False;
2029 }
2030 #endif
2031
2032 /**
2033  * Determine the refresh rate of the specified drawable and display.
2034  *
2035  * \param dpy          Display whose refresh rate is to be determined.
2036  * \param drawable     Drawable whose refresh rate is to be determined.
2037  * \param numerator    Numerator of the refresh rate.
2038  * \param demoninator  Denominator of the refresh rate.
2039  * \return  If the refresh rate for the specified display and drawable could
2040  *          be calculated, True is returned.  Otherwise False is returned.
2041  *
2042  * \note This function is implemented entirely client-side.  A lot of other
2043  *       functionality is required to export GLX_OML_sync_control, so on
2044  *       XFree86 this function can be called for direct-rendering contexts
2045  *       when GLX_OML_sync_control appears in the client extension string.
2046  */
2047
2048 _X_HIDDEN GLboolean
2049 __glXGetMscRateOML(Display * dpy, GLXDrawable drawable,
2050                    int32_t * numerator, int32_t * denominator)
2051 {
2052 #if defined( GLX_DIRECT_RENDERING ) && defined( XF86VIDMODE )
2053    __GLXDRIdrawable *draw = GetGLXDRIDrawable(dpy, drawable);
2054
2055    if (draw == NULL)
2056       return False;
2057
2058    return __glxGetMscRate(draw, numerator, denominator);
2059 #else
2060    (void) dpy;
2061    (void) drawable;
2062    (void) numerator;
2063    (void) denominator;
2064 #endif
2065    return False;
2066 }
2067
2068
2069 static int64_t
2070 __glXSwapBuffersMscOML(Display * dpy, GLXDrawable drawable,
2071                        int64_t target_msc, int64_t divisor, int64_t remainder)
2072 {
2073    struct glx_context *gc = __glXGetCurrentContext();
2074 #ifdef GLX_DIRECT_RENDERING
2075    __GLXDRIdrawable *pdraw = GetGLXDRIDrawable(dpy, drawable);
2076    struct glx_screen *psc = pdraw ? pdraw->psc : NULL;
2077 #endif
2078
2079    if (!gc) /* no GLX for this */
2080       return -1;
2081
2082 #ifdef GLX_DIRECT_RENDERING
2083    if (!pdraw || !gc->isDirect)
2084       return -1;
2085 #endif
2086
2087    /* The OML_sync_control spec says these should "generate a GLX_BAD_VALUE
2088     * error", but it also says "It [glXSwapBuffersMscOML] will return a value
2089     * of -1 if the function failed because of errors detected in the input
2090     * parameters"
2091     */
2092    if (divisor < 0 || remainder < 0 || target_msc < 0)
2093       return -1;
2094    if (divisor > 0 && remainder >= divisor)
2095       return -1;
2096
2097    if (target_msc == 0 && divisor == 0 && remainder == 0)
2098       remainder = 1;
2099
2100 #ifdef GLX_DIRECT_RENDERING
2101    if (psc->driScreen && psc->driScreen->swapBuffers)
2102       return (*psc->driScreen->swapBuffers)(pdraw, target_msc, divisor,
2103                                             remainder);
2104 #endif
2105
2106    return -1;
2107 }
2108
2109
2110 static Bool
2111 __glXWaitForMscOML(Display * dpy, GLXDrawable drawable,
2112                    int64_t target_msc, int64_t divisor,
2113                    int64_t remainder, int64_t * ust,
2114                    int64_t * msc, int64_t * sbc)
2115 {
2116 #ifdef GLX_DIRECT_RENDERING
2117    __GLXDRIdrawable *pdraw = GetGLXDRIDrawable(dpy, drawable);
2118    struct glx_screen *psc = pdraw ? pdraw->psc : NULL;
2119    int ret;
2120 #endif
2121
2122
2123    /* The OML_sync_control spec says these should "generate a GLX_BAD_VALUE
2124     * error", but the return type in the spec is Bool.
2125     */
2126    if (divisor < 0 || remainder < 0 || target_msc < 0)
2127       return False;
2128    if (divisor > 0 && remainder >= divisor)
2129       return False;
2130
2131 #ifdef GLX_DIRECT_RENDERING
2132    if (pdraw && psc->driScreen && psc->driScreen->waitForMSC) {
2133       ret = psc->driScreen->waitForMSC(pdraw, target_msc, divisor, remainder,
2134                                        ust, msc, sbc);
2135       return ret;
2136    }
2137 #endif
2138
2139    return False;
2140 }
2141
2142
2143 static Bool
2144 __glXWaitForSbcOML(Display * dpy, GLXDrawable drawable,
2145                    int64_t target_sbc, int64_t * ust,
2146                    int64_t * msc, int64_t * sbc)
2147 {
2148 #ifdef GLX_DIRECT_RENDERING
2149    __GLXDRIdrawable *pdraw = GetGLXDRIDrawable(dpy, drawable);
2150    struct glx_screen *psc = pdraw ? pdraw->psc : NULL;
2151    int ret;
2152 #endif
2153
2154    /* The OML_sync_control spec says this should "generate a GLX_BAD_VALUE
2155     * error", but the return type in the spec is Bool.
2156     */
2157    if (target_sbc < 0)
2158       return False;
2159
2160 #ifdef GLX_DIRECT_RENDERING
2161    if (pdraw && psc->driScreen && psc->driScreen->waitForSBC) {
2162       ret = psc->driScreen->waitForSBC(pdraw, target_sbc, ust, msc, sbc);
2163       return ret;
2164    }
2165 #endif
2166
2167    return False;
2168 }
2169
2170 /*@}*/
2171
2172
2173 /**
2174  * Mesa extension stubs.  These will help reduce portability problems.
2175  */
2176 /*@{*/
2177
2178 /**
2179  * Release all buffers associated with the specified GLX drawable.
2180  *
2181  * \todo
2182  * This function was intended for stand-alone Mesa.  The issue there is that
2183  * the library doesn't get any notification when a window is closed.  In
2184  * DRI there is a similar but slightly different issue.  When GLX 1.3 is
2185  * supported, there are 3 different functions to destroy a drawable.  It
2186  * should be possible to create GLX protocol (or have it determine which
2187  * protocol to use based on the type of the drawable) to have one function
2188  * do the work of 3.  For the direct-rendering case, this function could
2189  * just call the driver's \c __DRIdrawableRec::destroyDrawable function.
2190  * This would reduce the frequency with which \c __driGarbageCollectDrawables
2191  * would need to be used.  This really should be done as part of the new DRI
2192  * interface work.
2193  *
2194  * \sa http://oss.sgi.com/projects/ogl-sample/registry/MESA/release_buffers.txt
2195  *     __driGarbageCollectDrawables
2196  *     glXDestroyGLXPixmap
2197  *     glXDestroyPbuffer glXDestroyPixmap glXDestroyWindow
2198  *     glXDestroyGLXPbufferSGIX glXDestroyGLXVideoSourceSGIX
2199  */
2200 static Bool
2201 __glXReleaseBuffersMESA(Display * dpy, GLXDrawable d)
2202 {
2203    (void) dpy;
2204    (void) d;
2205    return False;
2206 }
2207
2208
2209 _X_EXPORT GLXPixmap
2210 glXCreateGLXPixmapMESA(Display * dpy, XVisualInfo * visual,
2211                        Pixmap pixmap, Colormap cmap)
2212 {
2213    (void) dpy;
2214    (void) visual;
2215    (void) pixmap;
2216    (void) cmap;
2217    return 0;
2218 }
2219
2220 /*@}*/
2221
2222
2223 /**
2224  * GLX_MESA_copy_sub_buffer
2225  */
2226 #define X_GLXvop_CopySubBufferMESA 5154 /* temporary */
2227 static void
2228 __glXCopySubBufferMESA(Display * dpy, GLXDrawable drawable,
2229                        int x, int y, int width, int height)
2230 {
2231    xGLXVendorPrivateReq *req;
2232    struct glx_context *gc;
2233    GLXContextTag tag;
2234    CARD32 *drawable_ptr;
2235    INT32 *x_ptr, *y_ptr, *w_ptr, *h_ptr;
2236    CARD8 opcode;
2237
2238 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
2239    __GLXDRIdrawable *pdraw = GetGLXDRIDrawable(dpy, drawable);
2240    if (pdraw != NULL) {
2241       struct glx_screen *psc = pdraw->psc;
2242       if (psc->driScreen->copySubBuffer != NULL) {
2243          glFlush();
2244          (*psc->driScreen->copySubBuffer) (pdraw, x, y, width, height);
2245       }
2246
2247       return;
2248    }
2249 #endif
2250
2251    opcode = __glXSetupForCommand(dpy);
2252    if (!opcode)
2253       return;
2254
2255    /*
2256     ** The calling thread may or may not have a current context.  If it
2257     ** does, send the context tag so the server can do a flush.
2258     */
2259    gc = __glXGetCurrentContext();
2260    if ((gc != NULL) && (dpy == gc->currentDpy) &&
2261        ((drawable == gc->currentDrawable) ||
2262         (drawable == gc->currentReadable))) {
2263       tag = gc->currentContextTag;
2264    }
2265    else {
2266       tag = 0;
2267    }
2268
2269    LockDisplay(dpy);
2270    GetReqExtra(GLXVendorPrivate, sizeof(CARD32) + sizeof(INT32) * 4, req);
2271    req->reqType = opcode;
2272    req->glxCode = X_GLXVendorPrivate;
2273    req->vendorCode = X_GLXvop_CopySubBufferMESA;
2274    req->contextTag = tag;
2275
2276    drawable_ptr = (CARD32 *) (req + 1);
2277    x_ptr = (INT32 *) (drawable_ptr + 1);
2278    y_ptr = (INT32 *) (drawable_ptr + 2);
2279    w_ptr = (INT32 *) (drawable_ptr + 3);
2280    h_ptr = (INT32 *) (drawable_ptr + 4);
2281
2282    *drawable_ptr = drawable;
2283    *x_ptr = x;
2284    *y_ptr = y;
2285    *w_ptr = width;
2286    *h_ptr = height;
2287
2288    UnlockDisplay(dpy);
2289    SyncHandle();
2290 }
2291
2292 /*@{*/
2293 static void
2294 __glXBindTexImageEXT(Display * dpy,
2295                      GLXDrawable drawable, int buffer, const int *attrib_list)
2296 {
2297    struct glx_context *gc = __glXGetCurrentContext();
2298
2299    if (gc == NULL || gc->vtable->bind_tex_image == NULL)
2300       return;
2301
2302    gc->vtable->bind_tex_image(dpy, drawable, buffer, attrib_list);
2303 }
2304
2305 static void
2306 __glXReleaseTexImageEXT(Display * dpy, GLXDrawable drawable, int buffer)
2307 {
2308    struct glx_context *gc = __glXGetCurrentContext();
2309
2310    if (gc == NULL || gc->vtable->release_tex_image == NULL)
2311       return;
2312
2313    gc->vtable->release_tex_image(dpy, drawable, buffer);
2314 }
2315
2316 /*@}*/
2317
2318 #endif /* GLX_USE_APPLEGL */
2319
2320 /**
2321  * \c strdup is actually not a standard ANSI C or POSIX routine.
2322  * Irix will not define it if ANSI mode is in effect.
2323  *
2324  * \sa strdup
2325  */
2326 _X_HIDDEN char *
2327 __glXstrdup(const char *str)
2328 {
2329    char *copy;
2330    copy = (char *) Xmalloc(strlen(str) + 1);
2331    if (!copy)
2332       return NULL;
2333    strcpy(copy, str);
2334    return copy;
2335 }
2336
2337 /*
2338 ** glXGetProcAddress support
2339 */
2340
2341 struct name_address_pair
2342 {
2343    const char *Name;
2344    GLvoid *Address;
2345 };
2346
2347 #define GLX_FUNCTION(f) { # f, (GLvoid *) f }
2348 #define GLX_FUNCTION2(n,f) { # n, (GLvoid *) f }
2349
2350 static const struct name_address_pair GLX_functions[] = {
2351    /*** GLX_VERSION_1_0 ***/
2352    GLX_FUNCTION(glXChooseVisual),
2353    GLX_FUNCTION(glXCopyContext),
2354    GLX_FUNCTION(glXCreateContext),
2355    GLX_FUNCTION(glXCreateGLXPixmap),
2356    GLX_FUNCTION(glXDestroyContext),
2357    GLX_FUNCTION(glXDestroyGLXPixmap),
2358    GLX_FUNCTION(glXGetConfig),
2359    GLX_FUNCTION(glXGetCurrentContext),
2360    GLX_FUNCTION(glXGetCurrentDrawable),
2361    GLX_FUNCTION(glXIsDirect),
2362    GLX_FUNCTION(glXMakeCurrent),
2363    GLX_FUNCTION(glXQueryExtension),
2364    GLX_FUNCTION(glXQueryVersion),
2365    GLX_FUNCTION(glXSwapBuffers),
2366    GLX_FUNCTION(glXUseXFont),
2367    GLX_FUNCTION(glXWaitGL),
2368    GLX_FUNCTION(glXWaitX),
2369
2370    /*** GLX_VERSION_1_1 ***/
2371    GLX_FUNCTION(glXGetClientString),
2372    GLX_FUNCTION(glXQueryExtensionsString),
2373    GLX_FUNCTION(glXQueryServerString),
2374
2375    /*** GLX_VERSION_1_2 ***/
2376    GLX_FUNCTION(glXGetCurrentDisplay),
2377
2378    /*** GLX_VERSION_1_3 ***/
2379    GLX_FUNCTION(glXChooseFBConfig),
2380    GLX_FUNCTION(glXCreateNewContext),
2381    GLX_FUNCTION(glXCreatePbuffer),
2382    GLX_FUNCTION(glXCreatePixmap),
2383    GLX_FUNCTION(glXCreateWindow),
2384    GLX_FUNCTION(glXDestroyPbuffer),
2385    GLX_FUNCTION(glXDestroyPixmap),
2386    GLX_FUNCTION(glXDestroyWindow),
2387    GLX_FUNCTION(glXGetCurrentReadDrawable),
2388    GLX_FUNCTION(glXGetFBConfigAttrib),
2389    GLX_FUNCTION(glXGetFBConfigs),
2390    GLX_FUNCTION(glXGetSelectedEvent),
2391    GLX_FUNCTION(glXGetVisualFromFBConfig),
2392    GLX_FUNCTION(glXMakeContextCurrent),
2393    GLX_FUNCTION(glXQueryContext),
2394    GLX_FUNCTION(glXQueryDrawable),
2395    GLX_FUNCTION(glXSelectEvent),
2396
2397 #ifndef GLX_USE_APPLEGL
2398    /*** GLX_SGI_swap_control ***/
2399    GLX_FUNCTION2(glXSwapIntervalSGI, __glXSwapIntervalSGI),
2400
2401    /*** GLX_SGI_video_sync ***/
2402    GLX_FUNCTION2(glXGetVideoSyncSGI, __glXGetVideoSyncSGI),
2403    GLX_FUNCTION2(glXWaitVideoSyncSGI, __glXWaitVideoSyncSGI),
2404
2405    /*** GLX_SGI_make_current_read ***/
2406    GLX_FUNCTION2(glXMakeCurrentReadSGI, glXMakeContextCurrent),
2407    GLX_FUNCTION2(glXGetCurrentReadDrawableSGI, glXGetCurrentReadDrawable),
2408
2409    /*** GLX_EXT_import_context ***/
2410    GLX_FUNCTION(glXFreeContextEXT),
2411    GLX_FUNCTION(glXGetContextIDEXT),
2412    GLX_FUNCTION2(glXGetCurrentDisplayEXT, glXGetCurrentDisplay),
2413    GLX_FUNCTION(glXImportContextEXT),
2414    GLX_FUNCTION2(glXQueryContextInfoEXT, glXQueryContext),
2415 #endif
2416
2417    /*** GLX_SGIX_fbconfig ***/
2418    GLX_FUNCTION2(glXGetFBConfigAttribSGIX, glXGetFBConfigAttrib),
2419    GLX_FUNCTION2(glXChooseFBConfigSGIX, glXChooseFBConfig),
2420    GLX_FUNCTION(glXCreateGLXPixmapWithConfigSGIX),
2421    GLX_FUNCTION(glXCreateContextWithConfigSGIX),
2422    GLX_FUNCTION2(glXGetVisualFromFBConfigSGIX, glXGetVisualFromFBConfig),
2423    GLX_FUNCTION(glXGetFBConfigFromVisualSGIX),
2424
2425 #ifndef GLX_USE_APPLEGL
2426    /*** GLX_SGIX_pbuffer ***/
2427    GLX_FUNCTION(glXCreateGLXPbufferSGIX),
2428    GLX_FUNCTION(glXDestroyGLXPbufferSGIX),
2429    GLX_FUNCTION(glXQueryGLXPbufferSGIX),
2430    GLX_FUNCTION(glXSelectEventSGIX),
2431    GLX_FUNCTION(glXGetSelectedEventSGIX),
2432
2433    /*** GLX_SGIX_swap_group ***/
2434    GLX_FUNCTION2(glXJoinSwapGroupSGIX, __glXJoinSwapGroupSGIX),
2435
2436    /*** GLX_SGIX_swap_barrier ***/
2437    GLX_FUNCTION2(glXBindSwapBarrierSGIX, __glXBindSwapBarrierSGIX),
2438    GLX_FUNCTION2(glXQueryMaxSwapBarriersSGIX, __glXQueryMaxSwapBarriersSGIX),
2439
2440    /*** GLX_MESA_copy_sub_buffer ***/
2441    GLX_FUNCTION2(glXCopySubBufferMESA, __glXCopySubBufferMESA),
2442
2443    /*** GLX_MESA_pixmap_colormap ***/
2444    GLX_FUNCTION(glXCreateGLXPixmapMESA),
2445
2446    /*** GLX_MESA_release_buffers ***/
2447    GLX_FUNCTION2(glXReleaseBuffersMESA, __glXReleaseBuffersMESA),
2448
2449    /*** GLX_MESA_swap_control ***/
2450    GLX_FUNCTION2(glXSwapIntervalMESA, __glXSwapIntervalMESA),
2451    GLX_FUNCTION2(glXGetSwapIntervalMESA, __glXGetSwapIntervalMESA),
2452 #endif
2453
2454    /*** GLX_ARB_get_proc_address ***/
2455    GLX_FUNCTION(glXGetProcAddressARB),
2456
2457    /*** GLX 1.4 ***/
2458    GLX_FUNCTION2(glXGetProcAddress, glXGetProcAddressARB),
2459
2460 #ifndef GLX_USE_APPLEGL
2461    /*** GLX_OML_sync_control ***/
2462    GLX_FUNCTION2(glXWaitForSbcOML, __glXWaitForSbcOML),
2463    GLX_FUNCTION2(glXWaitForMscOML, __glXWaitForMscOML),
2464    GLX_FUNCTION2(glXSwapBuffersMscOML, __glXSwapBuffersMscOML),
2465    GLX_FUNCTION2(glXGetMscRateOML, __glXGetMscRateOML),
2466    GLX_FUNCTION2(glXGetSyncValuesOML, __glXGetSyncValuesOML),
2467
2468    /*** GLX_EXT_texture_from_pixmap ***/
2469    GLX_FUNCTION2(glXBindTexImageEXT, __glXBindTexImageEXT),
2470    GLX_FUNCTION2(glXReleaseTexImageEXT, __glXReleaseTexImageEXT),
2471 #endif
2472
2473 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
2474    /*** DRI configuration ***/
2475    GLX_FUNCTION(glXGetScreenDriver),
2476    GLX_FUNCTION(glXGetDriverConfig),
2477 #endif
2478
2479    {NULL, NULL}                 /* end of list */
2480 };
2481
2482 #ifndef GLX_USE_APPLEGL
2483 static const GLvoid *
2484 get_glx_proc_address(const char *funcName)
2485 {
2486    GLuint i;
2487
2488    /* try static functions */
2489    for (i = 0; GLX_functions[i].Name; i++) {
2490       if (strcmp(GLX_functions[i].Name, funcName) == 0)
2491          return GLX_functions[i].Address;
2492    }
2493
2494    return NULL;
2495 }
2496 #endif
2497
2498 /**
2499  * Get the address of a named GL function.  This is the pre-GLX 1.4 name for
2500  * \c glXGetProcAddress.
2501  *
2502  * \param procName  Name of a GL or GLX function.
2503  * \returns         A pointer to the named function
2504  *
2505  * \sa glXGetProcAddress
2506  */
2507 _X_EXPORT void (*glXGetProcAddressARB(const GLubyte * procName)) (void)
2508 {
2509    typedef void (*gl_function) (void);
2510    gl_function f;
2511
2512
2513    /* Search the table of GLX and internal functions first.  If that
2514     * fails and the supplied name could be a valid core GL name, try
2515     * searching the core GL function table.  This check is done to prevent
2516     * DRI based drivers from searching the core GL function table for
2517     * internal API functions.
2518     */
2519 #ifdef GLX_USE_APPLEGL
2520    f = (gl_function) apple_glx_get_proc_address(procName);
2521 #else
2522    f = (gl_function) get_glx_proc_address((const char *) procName);
2523    if ((f == NULL) && (procName[0] == 'g') && (procName[1] == 'l')
2524        && (procName[2] != 'X')) {
2525 #ifdef GLX_SHARED_GLAPI
2526       f = (gl_function) __indirect_get_proc_address((const char *) procName);
2527 #endif
2528       if (!f)
2529          f = (gl_function) _glapi_get_proc_address((const char *) procName);
2530    }
2531 #endif
2532    return f;
2533 }
2534
2535 /**
2536  * Get the address of a named GL function.  This is the GLX 1.4 name for
2537  * \c glXGetProcAddressARB.
2538  *
2539  * \param procName  Name of a GL or GLX function.
2540  * \returns         A pointer to the named function
2541  *
2542  * \sa glXGetProcAddressARB
2543  */
2544 _X_EXPORT void (*glXGetProcAddress(const GLubyte * procName)) (void)
2545 #if defined(__GNUC__) && !defined(GLX_ALIAS_UNSUPPORTED)
2546    __attribute__ ((alias("glXGetProcAddressARB")));
2547 #else
2548 {
2549    return glXGetProcAddressARB(procName);
2550 }
2551 #endif /* __GNUC__ */
2552
2553
2554 #if defined(GLX_DIRECT_RENDERING) && !defined(GLX_USE_APPLEGL)
2555 /**
2556  * Get the unadjusted system time (UST).  Currently, the UST is measured in
2557  * microseconds since Epoc.  The actual resolution of the UST may vary from
2558  * system to system, and the units may vary from release to release.
2559  * Drivers should not call this function directly.  They should instead use
2560  * \c glXGetProcAddress to obtain a pointer to the function.
2561  *
2562  * \param ust Location to store the 64-bit UST
2563  * \returns Zero on success or a negative errno value on failure.
2564  *
2565  * \sa glXGetProcAddress, PFNGLXGETUSTPROC
2566  *
2567  * \since Internal API version 20030317.
2568  */
2569 _X_HIDDEN int
2570 __glXGetUST(int64_t * ust)
2571 {
2572    struct timeval tv;
2573
2574    if (ust == NULL) {
2575       return -EFAULT;
2576    }
2577
2578    if (gettimeofday(&tv, NULL) == 0) {
2579       ust[0] = (tv.tv_sec * 1000000) + tv.tv_usec;
2580       return 0;
2581    }
2582    else {
2583       return -errno;
2584    }
2585 }
2586 #endif /* GLX_DIRECT_RENDERING */