steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

openal.alut: fixing alut so it should throw better error messages

char-rename
Björn Lindqvist 2016-09-14 15:53:29 +02:00
parent 1e96eec669
commit f233e2a567
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/openal/alut/alut.factor
View File

@ -71,21 +71,24 @@ FUNCTION: void alutUnloadWAV ( ALenum format, void* data, ALsizei size, ALsizei
SYMBOL: init SYMBOL: init
: throw-alut-error ( -- )
alutGetError alutGetErrorString throw ;
: init-openal ( -- ) : init-openal ( -- )
init get-global expired? [ init get-global expired? [
f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when f f alutInit 0 = [ throw-alut-error ] when
1337 <alien> init set-global 1337 <alien> init set-global
] when ; ] when ;
: exit-openal ( -- ) : exit-openal ( -- )
init get-global expired? [ init get-global expired? [
alutExit 0 = [ "Could not close OpenAL" throw ] when alutExit 0 = [ throw-alut-error ] when
f init set-global f init set-global
] unless ; ] unless ;
: create-buffer-from-file ( filename -- buffer ) : create-buffer-from-file ( filename -- buffer )
alutCreateBufferFromFile dup AL_NONE = [ alutCreateBufferFromFile dup AL_NONE = [
"create-buffer-from-file failed" throw throw-alut-error
] when ; ] when ;
os macosx? "openal.alut.macosx" "openal.alut.other" ? require os macosx? "openal.alut.macosx" "openal.alut.other" ? require