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