suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use stdcall for windows

Browse Source 
svn: r11546
This commit is contained in:
Eli Barzilay 2008-09-04 22:55:52 +00:00
parent 727227e04b
commit 269a2752db
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/sgl/gl.ss
View File

@ -4,11 +4,14 @@
"gl-vectors.ss") "gl-vectors.ss")
(unsafe!) (unsafe!)
(define gl-lib (case (system-type)
(define stype (system-type))
(define gl-lib (case stype
[(windows) (ffi-lib "opengl32")] [(windows) (ffi-lib "opengl32")]
[(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL")] [(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL")]
[else (ffi-lib "libGL")])) [else (ffi-lib "libGL")]))
(define glu-lib (case (system-type) (define glu-lib (case stype
[(windows) (ffi-lib "glu32")] [(windows) (ffi-lib "glu32")]
[(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU")] [(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU")]
[else (ffi-lib "libGLU")])) [else (ffi-lib "libGLU")]))
@ -16,6 +19,11 @@
(define (unavailable name) (define (unavailable name)
(lambda () (lambda x (error name "unavailable on this system")))) (lambda () (lambda x (error name "unavailable on this system"))))
(define-syntax _fun*
(syntax-rules ()
[(_fun x ...)
(if (eq? 'windows stype) (_fun #:abi 'stdcall x ...) (_fun x ...))]))
(define-syntax define-foreign-lib (define-syntax define-foreign-lib
(syntax-rules (->) (syntax-rules (->)
[(_ lib name type ... ->) [(_ lib name type ... ->)