unmaintained/openal/other/other.factor

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