1 ! Copyright (C) 2007 Chris Double.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax combinators generalizations
4 kernel openal.backend ;
9 FUNCTION: void alutLoadWAVFile ( ALbyte* fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency, ALboolean* looping ) ;
11 M: object load-wav-file ( filename -- format data size frequency )
12 0 <int> f <void*> 0 <int> 0 <int>
13 [ 0 <char> alutLoadWAVFile ] 4 nkeep
14 { [ *int ] [ *void* ] [ *int ] [ *int ] } spread ;