extra/openal/alut/other/other.factor

   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 openal.alut.backend ;
   5 IN: openal.alut.other
   6
   7 LIBRARY: alut
   8
   9 FUNCTION: void alutLoadWAVFile ( c-string 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 <ref>
  13     f <void*>
  14     0 int <ref>
  15     0 int <ref>
  16     [ 0 char <ref> alutLoadWAVFile ] 4 nkeep
  17     { [ int deref ] [ *void* ] [ int deref ] [ int deref ] } spread ;