/[cello]/cl-openal/alc.lisp
ViewVC logotype

Contents of /cl-openal/alc.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Fri May 27 19:10:29 2005 UTC (8 years, 10 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
Move cl-openal from Cells to its own module in the Cello project
1 (in-package :cl-openal)
2
3 ; typedef struct ALCdevice_struct ALCdevice;
4 ; typedef struct ALCcontext_struct ALCcontext;
5
6
7 ;;;(defun-ffx ALCubyte* "openal" "alcGetString" (ALCdevice *device ALCenum param))
8 ;;;(defun-ffx ALCvoid "openal" "alcGetIntegerv" (ALCdevice *device ALCenum param ALCsizei size ALCint *data))
9 ;;;
10
11 (defun-ffx (* :void) "openal" "alcOpenDevice" (:cstring device-name))
12 (defun-ffx :void "openal" "alcCloseDevice" (:void *device))
13 (defun-ffx (* :void) "openal" "alcCreateContext" (:void *device alc-int *attr-list))
14 (defun-ffx alc-enum "openal" "alcMakeContextCurrent" (:void *context))
15
16 (defun-ffx :void "openal" "alcProcessContext" (:void *context))
17 (defun-ffx (* :void) "openal" "alcGetCurrentContext" ())
18 (defun-ffx (* :void) "openal" "alcGetContextsDevice" (:void *context))
19 (defun-ffx :void "openal" "alcSuspendContext" (:void *context))
20 (defun-ffx alc-enum "openal" "alcDestroyContext" (:void *context))
21 ;;;
22 (defun-ffx alc-enum "openal" "alcGetError" (:void *device))
23 ;;;
24 (defun-ffx alc-boolean "openal" "alcIsExtensionPresent" (:void *device alc-ubyte *ext-name))
25 (defun-ffx :void "openal" "alcGetProcAddress" (:void *device alc-ubyte *func-name))
26 (defun-ffx alc-enum "openal" "alcGetEnumValue" (:void *device alc-ubyte *enum-name))

  ViewVC Help
Powered by ViewVC 1.1.5