extra/openal/alut/macosx/macosx.factor

   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 ;
   5 IN: openal.alut.macosx
   6
   7 LIBRARY: alut
   8
   9 FUNCTION: void alutLoadWAVFile ( c-string fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency ) ;
  10
  11 M: macosx load-wav-file ( path -- format data size frequency )
  12     0 <int> f <void*> 0 <int> 0 <int>
  13     [ alutLoadWAVFile ] 4 nkeep
  14     [ [ [ *int ] dip *void* ] dip *int ] dip *int ;