| 1 | ;;; figl |
| 2 | ;;; Copyright (C) 2013 Daniel Hartwig <mandyke@gmail.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 | ;; Mappings from OpenGL to FFI types. |
| 21 | ;; |
| 22 | ;;; Code: |
| 23 | |
| 24 | (define-module (figl gl types) |
| 25 | #:use-module (figl runtime) |
| 26 | #:use-module (rnrs bytevectors) |
| 27 | #:use-module ((system foreign) #:renamer (symbol-prefix-proc 'ffi:)) |
| 28 | #:export (void |
| 29 | GLboolean |
| 30 | GLbyte |
| 31 | GLubyte |
| 32 | GLchar |
| 33 | GLshort |
| 34 | GLushort |
| 35 | GLint |
| 36 | GLuint |
| 37 | GLsizei |
| 38 | GLenum |
| 39 | GLintptr |
| 40 | GLsizeiptr |
| 41 | GLbitfield |
| 42 | GLfloat |
| 43 | GLclampf |
| 44 | GLdouble |
| 45 | GLclampd |
| 46 | |
| 47 | GLboolean-* |
| 48 | GLchar-* |
| 49 | GLdouble-* |
| 50 | GLenum-* |
| 51 | GLfloat-* |
| 52 | GLint-* |
| 53 | GLsizei-* |
| 54 | GLubyte-* |
| 55 | GLuint-* |
| 56 | GLvoid-* |
| 57 | const-GLchar-* |
| 58 | const-GLchar-** |
| 59 | const-GLclampf-* |
| 60 | const-GLdouble-* |
| 61 | const-GLenum-* |
| 62 | const-GLfloat-* |
| 63 | const-GLint-* |
| 64 | const-GLsizei-* |
| 65 | const-GLubyte* |
| 66 | const-GLubyte-* |
| 67 | const-GLubyte-* |
| 68 | const-GLuint-* |
| 69 | const-GLvoid-* |
| 70 | const-GLvoid-** |
| 71 | void-*)) |
| 72 | |
| 73 | (define %ptr |
| 74 | (case (ffi:sizeof '*) |
| 75 | ((4) ffi:uint32) |
| 76 | ((8) ffi:uint64) |
| 77 | (else (error "unknown pointer size")))) |
| 78 | |
| 79 | (define-simple-foreign-type void ffi:void) |
| 80 | (define-simple-foreign-type GLboolean ffi:uint8) |
| 81 | (define-simple-foreign-type GLbyte ffi:int8) |
| 82 | (define-simple-foreign-type GLubyte ffi:uint8) |
| 83 | (define-simple-foreign-type GLchar ffi:int8) |
| 84 | (define-simple-foreign-type Glshort ffi:int16) |
| 85 | (define-simple-foreign-type GLushort ffi:uint16) |
| 86 | (define-simple-foreign-type GLint ffi:int32) |
| 87 | (define-simple-foreign-type GLuint ffi:uint32) |
| 88 | (define-simple-foreign-type GLsizei ffi:int32) |
| 89 | (define-simple-foreign-type GLenum ffi:uint32) |
| 90 | (define-simple-foreign-type GLintptr %ptr) |
| 91 | (define-simple-foreign-type GLsizeiptr %ptr) |
| 92 | (define-simple-foreign-type GLbitfield ffi:uint32) |
| 93 | (define-simple-foreign-type GLfloat ffi:float) |
| 94 | (define-simple-foreign-type GLclampf ffi:float) |
| 95 | (define-simple-foreign-type GLdouble ffi:double) |
| 96 | (define-simple-foreign-type GLclampd ffi:double) |
| 97 | (define-simple-foreign-type GLvoid-* '*) |
| 98 | (define-simple-foreign-type void-* '*) |
| 99 | (define-simple-foreign-type const-GLvoid-* '*) |
| 100 | |
| 101 | (define (array->pointer x) |
| 102 | (lambda (x) |
| 103 | (if x |
| 104 | (ffi:bytevector->pointer x) |
| 105 | ffi:%null-pointer))) |
| 106 | |
| 107 | (define-syntax define-array-foreign-type |
| 108 | (syntax-rules () |
| 109 | ((_ name element-type) |
| 110 | (define-foreign-type name '* |
| 111 | array->pointer |
| 112 | (lambda (x) x))))) |
| 113 | |
| 114 | (define-array-foreign-type GLboolean-* GLboolean) |
| 115 | (define-array-foreign-type GLchar-* GLchar) |
| 116 | (define-array-foreign-type GLdouble-* GLdouble) |
| 117 | (define-array-foreign-type GLenum-* GLenum) |
| 118 | (define-array-foreign-type GLfloat-* GLfloat) |
| 119 | (define-array-foreign-type GLint-* GLint) |
| 120 | (define-array-foreign-type GLsizei-* GLsizei) |
| 121 | (define-array-foreign-type GLubyte-* GLubyte) |
| 122 | (define-array-foreign-type GLuint-* GLuint) |
| 123 | |
| 124 | (define-array-foreign-type const-GLclampf-* GLclampf) |
| 125 | (define-array-foreign-type const-GLdouble-* GLdouble) |
| 126 | (define-array-foreign-type const-GLenum-* GLenum) |
| 127 | (define-array-foreign-type const-GLfloat-* GLfloat) |
| 128 | (define-array-foreign-type const-GLint-* GLint) |
| 129 | (define-array-foreign-type const-GLsizei-* GLsizei) |
| 130 | (define-array-foreign-type const-GLubyte* GLubyte) |
| 131 | (define-array-foreign-type const-GLubyte-* GLubyte) |
| 132 | (define-array-foreign-type const-GLuint-* GLuint) |
| 133 | (define-array-foreign-type const-GLvoid-* GLvoid) |
| 134 | |
| 135 | (define-foreign-type const-GLchar-* '* |
| 136 | ffi:string->pointer |
| 137 | ffi:pointer->string) |
| 138 | |
| 139 | ;; Functions with these types will need special help. |
| 140 | (define-simple-foreign-type const-GLchar-** '*) |
| 141 | (define-simple-foreign-type const-GLvoid-** '*) |