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

forgot some _fun*s

Browse Source 
svn: r11548
This commit is contained in:
Eli Barzilay 2008-09-05 02:36:06 +00:00
parent 493cd78170
commit ec23603f55
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/sgl/gl.ss
View File

@ -21,7 +21,7 @@
(define-syntax _fun*
(syntax-rules ()
[(_fun x ...)
[(_fun* x ...)
(if (eq? 'windows stype) (_fun #:abi 'stdcall x ...) (_fun x ...))]))
(define-syntax define-foreign-lib
@ -33,7 +33,7 @@
;; (printf "~a~n" 'name)
(provide name)
(define name
(get-ffi-obj 'name lib (_fun type ...) (unavailable 'name))))]))
(get-ffi-obj 'name lib (_fun* type ...) (unavailable 'name))))]))
(define-syntax define-foreign
(syntax-rules ()
@ -762,11 +762,11 @@
(lambda x
(error 'gluDeleteQuadric
"unavailable on this system")))])
(get-ffi-obj 'gluDeleteQuadric glu-lib (_fun _glu-quadric -> _void))))
(get-ffi-obj 'gluDeleteQuadric glu-lib (_fun* _glu-quadric -> _void))))
;; 6.2
;;(define-foreignu gluQuadricCallback
;; _glu-quadric [_gl-enum = GLU_ERROR] (_fun _gl-enum -> _void) ->)
;; _glu-quadric [_gl-enum = GLU_ERROR] (_fun* _gl-enum -> _void) ->)
;; 6.3
(define-foreignu gluQuadricNormals _glu-quadric _gl-enum ->)