extra/openal/alut/alut.factor

   1 ! Copyright (C) 2007 Chris Double.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: kernel accessors arrays alien system combinators\r
   4 alien.syntax namespaces alien.c-types sequences vocabs.loader\r
   5 shuffle openal openal.alut.backend alien.libraries generalizations\r
   6 specialized-arrays alien.destructors ;\r
   7 FROM: alien.c-types => float short ;\r
   8 SPECIALIZED-ARRAY: uint\r
   9 IN: openal.alut\r
  10 \r
  11 << "alut" {\r
  12         { [ os windows? ]  [ "alut.dll" ] }\r
  13         { [ os macosx? ] [\r
  14             "/System/Library/Frameworks/OpenAL.framework/OpenAL"\r
  15         ] }\r
  16         { [ os unix?  ]  [ "libalut.so" ] }\r
  17     } cond "cdecl" add-library >>\r
  18 \r
  19 << os macosx? [ "alut" deploy-library ] unless >>\r
  20 \r
  21 LIBRARY: alut\r
  22 \r
  23 CONSTANT: ALUT_API_MAJOR_VERSION 1\r
  24 CONSTANT: ALUT_API_MINOR_VERSION 1\r
  25 CONSTANT: ALUT_ERROR_NO_ERROR 0\r
  26 CONSTANT: ALUT_ERROR_OUT_OF_MEMORY HEX: 200\r
  27 CONSTANT: ALUT_ERROR_INVALID_ENUM HEX: 201\r
  28 CONSTANT: ALUT_ERROR_INVALID_VALUE HEX: 202\r
  29 CONSTANT: ALUT_ERROR_INVALID_OPERATION HEX: 203\r
  30 CONSTANT: ALUT_ERROR_NO_CURRENT_CONTEXT HEX: 204\r
  31 CONSTANT: ALUT_ERROR_AL_ERROR_ON_ENTRY HEX: 205\r
  32 CONSTANT: ALUT_ERROR_ALC_ERROR_ON_ENTRY HEX: 206\r
  33 CONSTANT: ALUT_ERROR_OPEN_DEVICE HEX: 207\r
  34 CONSTANT: ALUT_ERROR_CLOSE_DEVICE HEX: 208\r
  35 CONSTANT: ALUT_ERROR_CREATE_CONTEXT HEX: 209\r
  36 CONSTANT: ALUT_ERROR_MAKE_CONTEXT_CURRENT HEX: 20A\r
  37 CONSTANT: ALUT_ERROR_DESTRY_CONTEXT HEX: 20B\r
  38 CONSTANT: ALUT_ERROR_GEN_BUFFERS HEX: 20C\r
  39 CONSTANT: ALUT_ERROR_BUFFER_DATA HEX: 20D\r
  40 CONSTANT: ALUT_ERROR_IO_ERROR HEX: 20E\r
  41 CONSTANT: ALUT_ERROR_UNSUPPORTED_FILE_TYPE HEX: 20F\r
  42 CONSTANT: ALUT_ERROR_UNSUPPORTED_FILE_SUBTYPE HEX: 210\r
  43 CONSTANT: ALUT_ERROR_CORRUPT_OR_TRUNCATED_DATA HEX: 211\r
  44 CONSTANT: ALUT_WAVEFORM_SINE HEX: 100\r
  45 CONSTANT: ALUT_WAVEFORM_SQUARE HEX: 101\r
  46 CONSTANT: ALUT_WAVEFORM_SAWTOOTH HEX: 102\r
  47 CONSTANT: ALUT_WAVEFORM_WHITENOISE HEX: 103\r
  48 CONSTANT: ALUT_WAVEFORM_IMPULSE HEX: 104\r
  49 CONSTANT: ALUT_LOADER_BUFFER HEX: 300\r
  50 CONSTANT: ALUT_LOADER_MEMORY HEX: 301\r
  51 \r
  52 FUNCTION: ALboolean alutInit ( int* argcp, char** argv ) ;\r
  53 FUNCTION: ALboolean alutInitWithoutContext ( int* argcp, char** argv ) ;\r
  54 FUNCTION: ALboolean alutExit ( ) ;\r
  55 FUNCTION: ALenum alutGetError ( ) ;\r
  56 FUNCTION: char* alutGetErrorString ( ALenum error ) ;\r
  57 FUNCTION: ALuint alutCreateBufferFromFile ( char* fileName ) ;\r
  58 FUNCTION: ALuint alutCreateBufferFromFileImage ( void* data, ALsizei length ) ;\r
  59 FUNCTION: ALuint alutCreateBufferHelloWorld ( ) ;\r
  60 FUNCTION: ALuint alutCreateBufferWaveform ( ALenum waveshape, ALfloat frequency, ALfloat phase, ALfloat duration ) ;\r
  61 FUNCTION: void* alutLoadMemoryFromFile ( char* fileName, ALenum* format, ALsizei* size, ALfloat* frequency ) ;\r
  62 FUNCTION: void* alutLoadMemoryFromFileImage ( void* data, ALsizei length, ALenum* format, ALsizei* size, ALfloat* frequency ) ;\r
  63 FUNCTION: void* alutLoadMemoryHelloWorld ( ALenum* format, ALsizei* size, ALfloat* frequency ) ;\r
  64 FUNCTION: void* alutLoadMemoryWaveform ( ALenum waveshape, ALfloat frequency, ALfloat phase, ALfloat duration, ALenum* format, ALsizei* size, ALfloat* freq ) ;\r
  65 FUNCTION: char* alutGetMIMETypes ( ALenum loader ) ;\r
  66 FUNCTION: ALint alutGetMajorVersion ( ) ;\r
  67 FUNCTION: ALint alutGetMinorVersion ( ) ;\r
  68 FUNCTION: ALboolean alutSleep ( ALfloat duration ) ;\r
  69 \r
  70 FUNCTION: void alutUnloadWAV ( ALenum format, void* data, ALsizei size, ALsizei frequency ) ;\r
  71 \r
  72 SYMBOL: init\r
  73 \r
  74 : init-openal ( -- )\r
  75     init get-global expired? [\r
  76         f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when\r
  77         1337 <alien> init set-global\r
  78     ] when ;\r
  79 \r
  80 : exit-openal ( -- )\r
  81     init get-global expired? [\r
  82         alutExit 0 = [ "Could not close OpenAL" throw ] when\r
  83         f init set-global\r
  84     ] unless ;\r
  85 \r
  86 : create-buffer-from-file ( filename -- buffer )\r
  87     alutCreateBufferFromFile dup AL_NONE = [\r
  88         "create-buffer-from-file failed" throw\r
  89     ] when ;\r
  90 \r
  91 os macosx? "openal.alut.macosx" "openal.alut.other" ? require\r
  92 \r
  93 : create-buffer-from-wav ( filename -- buffer )\r
  94     gen-buffer dup rot load-wav-file\r
  95     [ alBufferData ] 4 nkeep alutUnloadWAV ;\r
  96 \r
  97 : check-error ( -- )\r
  98     alGetError dup ALUT_ERROR_NO_ERROR = [\r
  99         drop\r
 100     ] [\r
 101         alGetString throw\r
 102     ] if ;\r
 103 \r