wsi/x11/xlib.c

   1 #define CAML_NAME_SPACE
   2
   3 #include <X11/Xlib.h>
   4 #include <X11/cursorfont.h>
   5
   6 #include <GL/glx.h>
   7
   8 #include <caml/fail.h>
   9 #include <caml/alloc.h>
  10 #include <caml/memory.h>
  11 #include <caml/unixsupport.h>
  12
  13 static const int shapes[] = {
  14     XC_left_ptr, XC_hand2, XC_exchange, XC_fleur, XC_xterm
  15 };
  16
  17 #define CURS_COUNT (sizeof (shapes) / sizeof (shapes[0]))
  18
  19 static struct {
  20     Window wid;
  21     Display *dpy;
  22     GLXContext ctx;
  23     XVisualInfo *visual;
  24     Cursor curs[CURS_COUNT];
  25 } glx;
  26
  27 static void initcurs (void)
  28 {
  29     for (size_t n = 0; n < CURS_COUNT; ++n) {
  30         glx.curs[n] = XCreateFontCursor (glx.dpy, shapes[n]);
  31     }
  32 }
  33
  34 CAMLprim value ml_glxinit (value display_v, value wid_v, value screen_v)
  35 {
  36     CAMLparam3 (display_v, wid_v, screen_v);
  37
  38     glx.dpy = XOpenDisplay (String_val (display_v));
  39     if (!glx.dpy) {
  40         caml_failwith ("XOpenDisplay");
  41     }
  42
  43     int attribs[] = { GLX_RGBA, GLX_DOUBLEBUFFER, None };
  44     glx.visual = glXChooseVisual (glx.dpy, Int_val (screen_v), attribs);
  45     if (!glx.visual) {
  46         XCloseDisplay (glx.dpy);
  47         caml_failwith ("glXChooseVisual");
  48     }
  49
  50     initcurs ();
  51
  52     glx.wid = Int_val (wid_v);
  53     CAMLreturn (Val_int (glx.visual->visualid));
  54 }
  55
  56 CAMLprim void ml_glxcompleteinit (void)
  57 {
  58     glx.ctx = glXCreateContext (glx.dpy, glx.visual, NULL, True);
  59     if (!glx.ctx) {
  60         caml_failwith ("glXCreateContext");
  61     }
  62
  63     XFree (glx.visual);
  64     glx.visual = NULL;
  65
  66     if (!glXMakeCurrent (glx.dpy, glx.wid, glx.ctx)) {
  67         glXDestroyContext (glx.dpy, glx.ctx);
  68         glx.ctx = NULL;
  69         caml_failwith ("glXMakeCurrent");
  70     }
  71 }
  72
  73 CAMLprim void ml_setcursor (value cursor_v)
  74 {
  75     CAMLparam1 (cursor_v);
  76     size_t cursn = Int_val (cursor_v);
  77
  78     if (cursn >= CURS_COUNT) caml_failwith ("cursor index out of range");
  79     XDefineCursor (glx.dpy, glx.wid, glx.curs[cursn]);
  80     XFlush (glx.dpy);
  81     CAMLreturn0;
  82 }
  83
  84 CAMLprim void ml_swapb (void)
  85 {
  86     glXSwapBuffers (glx.dpy, glx.wid);
  87 }
  88
  89 void (*wsigladdr (const char *name)) (void)
  90 {
  91     return glXGetProcAddress ((const GLubyte *) name);
  92 }