lib/opengl-library.lisp

   1 (in-package #:cl-glfw-opengl)
   2
   3 #+ecl
   4 (ffi:load-foreign-library #+unix "GL"
   5                           #+windows "opengl32"
   6                           :system-library t)
   7
   8 #-ecl
   9 (cffi:define-foreign-library opengl
  10   (:windows (:or "opengl32" "opengl32.dll" "opengl"))
  11   (:darwin (:framework "OpenGL"))
  12   (:unix (:or "libGL" "libGL.so" "libGL.so.2" "libGL.so.1.2" "libGL.so.1"))
  13   (t (:or "libGL" "GL")))
  14
  15 #-ecl
  16 (cffi:use-foreign-library opengl)
  17
  18
  19 ;;This is key to loading anything after OpenGL 1.1 on Windows
  20 #+win32
  21 (cffi:defcfun (get-proc-address "wglGetProcAddress") :pointer (name :string))