steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modernize openal.other

db4
Doug Coleman 2009-04-18 11:42:53 -05:00
parent badefd0865
commit 567bd334a0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/openal/other/other.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
USING: openal.backend alien.c-types kernel alien alien.syntax
shuffle combinators.lib ;
USING: alien.c-types alien.syntax combinators generalizations
kernel openal.backend ;
IN: openal.other
LIBRARY: alut
@ -9,6 +9,6 @@ LIBRARY: alut
FUNCTION: void alutLoadWAVFile ( ALbyte* fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency, ALboolean* looping ) ;
M: object load-wav-file ( filename -- format data size frequency )
0 <int> f <void*> 0 <int> 0 <int>
[ 0 <char> alutLoadWAVFile ] 4keep
>r >r >r *int r> *void* r> *int r> *int ;
0 <int> f <void*> 0 <int> 0 <int>
[ 0 <char> alutLoadWAVFile ] 4 nkeep
{ [ *int ] [ *void* ] [ *int ] [ *int ] } spread ;