figl/glx.scm

   1 ;;; figl
   2 ;;; Copyright (C) 2013 Andy Wingo <wingo@pobox.com>
   3 ;;;
   4 ;;; Figl is free software: you can redistribute it and/or modify it
   5 ;;; under the terms of the GNU Lesser General Public License as
   6 ;;; published by the Free Software Foundation, either version 3 of the
   7 ;;; License, or (at your option) any later version.
   8 ;;;
   9 ;;; Figl is distributed in the hope that it will be useful, but WITHOUT
  10 ;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  11 ;;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
  12 ;;; Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU Lesser General Public
  15 ;;; License along with this program.  If not, see
  16 ;;; <http://www.gnu.org/licenses/>.
  17
  18 ;;; Commentary:
  19 ;;
  20 ;; OpenGL binding.
  21 ;;
  22 ;;; Code:
  23
  24 (define-module (figl glx)
  25   #:use-module (system foreign)
  26   #:use-module (figl runtime)
  27   #:use-module (figl glx low-level))
  28
  29 (define libGL
  30   (delay (dynamic-link "libGL")))
  31
  32 (define glXGetProcAddress
  33   (delay (pointer->procedure
  34           '*
  35           (dynamic-pointer "glXGetProcAddress" (force libGL))
  36           '(*))))
  37
  38 (define (glx-resolver name)
  39   ((force glXGetProcAddress) (string->pointer name)))
  40
  41 (current-resolver glx-resolver)