[cello-cvs] CVS cello/kt-opengl

[fgoenninger]

Update of /project/cello/cvsroot/cello/kt-opengl
In directory clnet:/tmp/cvs-serv20733

Modified Files:
	kt-opengl.lisp 
Log Message:
Changed: Use CFFI scheme to define and use foreign libs.

--- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp	2006/08/25 08:39:26	1.4
+++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp	2006/08/28 18:38:03	1.5
@@ -21,7 +21,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Id: kt-opengl.lisp,v 1.4 2006/08/25 08:39:26 fgoenninger Exp $
+;;; $Id: kt-opengl.lisp,v 1.5 2006/08/28 18:38:03 fgoenninger Exp $
 
 (pushnew :kt-opengl *features*)
 
@@ -80,21 +80,22 @@
 
 (defvar *selecting*)
 
-(defparameter *gl-dynamic-lib*
-    (make-pathname
-    ;;#+lispworks :host #-lispworks :device "c"
-      :directory '(:absolute "windows" "system32")
-      :name "opengl32"
-      :type "dll"))
-
-(defparameter *glu-dynamic-lib*
-    (make-pathname
-    ;;#+lispworks :host #-lispworks :device "c"
-      :directory '(:absolute "windows" "system32")
-      :name "glu32"
-      :type "dll"))
-
-(defparameter *glut-dynamic-lib* :unconfigured)
+(define-foreign-library OpenGL
+  (:windows (:or (namestring
+		   (make-pathname
+		    ;;#+lispworks :host #-lispworks :device "c"
+		    :directory '(:absolute "windows" "system32")
+		    :name "opengl32"
+		    :type "dll"))))
+  (:darwin (:or (:framework "OpenGL"))))
+
+(define-foreign-library GLU
+  (:windows (:or (namestring
+		   (make-pathname
+		    ;;#+lispworks :host #-lispworks :device "c"
+		    :directory '(:absolute "windows" "system32")
+		    :name "opengl32"
+		    :type "dll")))))
 
 (defparameter *opengl-dll* nil)