1 ! Copyright (C) 2007 Chris Double.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types kernel alien alien.syntax shuffle
4 openal openal.alut.backend namespaces system generalizations ;
9 FUNCTION: void alutLoadWAVFile ( c-string fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency ) ;
11 M: macosx load-wav-file ( path -- format data size frequency )
12 0 int <ref> f <void*> 0 int <ref> 0 int <ref>
13 [ alutLoadWAVFile ] 4 nkeep
14 [ [ [ int deref ] dip *void* ] dip int deref ] dip int deref ;