spruce up unmaintained/openal -- can maybe go back into extra/
Doug Coleman
parent
26f9df982d
commit
a4b174d04b
|
|
@ -9,6 +9,6 @@ LIBRARY: alut
|
|||
FUNCTION: void alutLoadWAVFile ( ALbyte* fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency ) ;
|
||||
|
||||
M: macosx load-wav-file ( path -- format data size frequency )
|
||||
0 <int> f <void*> 0 <int> 0 <int>
|
||||
[ alutLoadWAVFile ] 4keep
|
||||
>r >r >r *int r> *void* r> *int r> *int ;
|
||||
0 <int> f <void*> 0 <int> 0 <int>
|
||||
[ alutLoadWAVFile ] 4keep
|
||||
[ [ [ *int ] dip *void* ] dip *int ] dip *int ;
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007 Chris Double.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel arrays alien system combinators alien.syntax namespaces
|
||||
alien.c-types sequences vocabs.loader shuffle combinators.lib
|
||||
alien.c-types sequences vocabs.loader shuffle
|
||||
openal.backend specialized-arrays.uint ;
|
||||
IN: openal
|
||||
|
||||
|
|
@ -36,75 +36,75 @@ TYPEDEF: int ALenum
|
|||
TYPEDEF: float ALfloat
|
||||
TYPEDEF: double ALdouble
|
||||
|
||||
: AL_INVALID ( -- number ) -1 ; inline
|
||||
: AL_NONE ( -- number ) 0 ; inline
|
||||
: AL_FALSE ( -- number ) 0 ; inline
|
||||
: AL_TRUE ( -- number ) 1 ; inline
|
||||
: AL_SOURCE_RELATIVE ( -- number ) HEX: 202 ; inline
|
||||
: AL_CONE_INNER_ANGLE ( -- nmber ) HEX: 1001 ; inline
|
||||
: AL_CONE_OUTER_ANGLE ( -- number ) HEX: 1002 ; inline
|
||||
: AL_PITCH ( -- number ) HEX: 1003 ; inline
|
||||
: AL_POSITION ( -- number ) HEX: 1004 ; inline
|
||||
: AL_DIRECTION ( -- number ) HEX: 1005 ; inline
|
||||
: AL_VELOCITY ( -- number ) HEX: 1006 ; inline
|
||||
: AL_LOOPING ( -- number ) HEX: 1007 ; inline
|
||||
: AL_BUFFER ( -- number ) HEX: 1009 ; inline
|
||||
: AL_GAIN ( -- number ) HEX: 100A ; inline
|
||||
: AL_MIN_GAIN ( -- number ) HEX: 100D ; inline
|
||||
: AL_MAX_GAIN ( -- number ) HEX: 100E ; inline
|
||||
: AL_ORIENTATION ( -- number ) HEX: 100F ; inline
|
||||
: AL_CHANNEL_MASK ( -- number ) HEX: 3000 ; inline
|
||||
: AL_SOURCE_STATE ( -- number ) HEX: 1010 ; inline
|
||||
: AL_INITIAL ( -- number ) HEX: 1011 ; inline
|
||||
: AL_PLAYING ( -- number ) HEX: 1012 ; inline
|
||||
: AL_PAUSED ( -- number ) HEX: 1013 ; inline
|
||||
: AL_STOPPED ( -- number ) HEX: 1014 ; inline
|
||||
: AL_BUFFERS_QUEUED ( -- number ) HEX: 1015 ; inline
|
||||
: AL_BUFFERS_PROCESSED ( -- number ) HEX: 1016 ; inline
|
||||
: AL_SEC_OFFSET ( -- number ) HEX: 1024 ; inline
|
||||
: AL_SAMPLE_OFFSET ( -- number ) HEX: 1025 ; inline
|
||||
: AL_BYTE_OFFSET ( -- number ) HEX: 1026 ; inline
|
||||
: AL_SOURCE_TYPE ( -- number ) HEX: 1027 ; inline
|
||||
: AL_STATIC ( -- number ) HEX: 1028 ; inline
|
||||
: AL_STREAMING ( -- number ) HEX: 1029 ; inline
|
||||
: AL_UNDETERMINED ( -- number ) HEX: 1030 ; inline
|
||||
: AL_FORMAT_MONO8 ( -- number ) HEX: 1100 ; inline
|
||||
: AL_FORMAT_MONO16 ( -- number ) HEX: 1101 ; inline
|
||||
: AL_FORMAT_STEREO8 ( -- number ) HEX: 1102 ; inline
|
||||
: AL_FORMAT_STEREO16 ( -- number ) HEX: 1103 ; inline
|
||||
: AL_REFERENCE_DISTANCE ( -- number ) HEX: 1020 ; inline
|
||||
: AL_ROLLOFF_FACTOR ( -- number ) HEX: 1021 ; inline
|
||||
: AL_CONE_OUTER_GAIN ( -- number ) HEX: 1022 ; inline
|
||||
: AL_MAX_DISTANCE ( -- number ) HEX: 1023 ; inline
|
||||
: AL_FREQUENCY ( -- number ) HEX: 2001 ; inline
|
||||
: AL_BITS ( -- number ) HEX: 2002 ; inline
|
||||
: AL_CHANNELS ( -- number ) HEX: 2003 ; inline
|
||||
: AL_SIZE ( -- number ) HEX: 2004 ; inline
|
||||
: AL_UNUSED ( -- number ) HEX: 2010 ; inline
|
||||
: AL_PENDING ( -- number ) HEX: 2011 ; inline
|
||||
: AL_PROCESSED ( -- number ) HEX: 2012 ; inline
|
||||
: AL_NO_ERROR ( -- number ) AL_FALSE ; inline
|
||||
: AL_INVALID_NAME ( -- number ) HEX: A001 ; inline
|
||||
: AL_ILLEGAL_ENUM ( -- number ) HEX: A002 ; inline
|
||||
: AL_INVALID_ENUM ( -- number ) HEX: A002 ; inline
|
||||
: AL_INVALID_VALUE ( -- number ) HEX: A003 ; inline
|
||||
: AL_ILLEGAL_COMMAND ( -- number ) HEX: A004 ; inline
|
||||
: AL_INVALID_OPERATION ( -- number ) HEX: A004 ; inline
|
||||
: AL_OUT_OF_MEMORY ( -- number ) HEX: A005 ; inline
|
||||
: AL_VENDOR ( -- number ) HEX: B001 ; inline
|
||||
: AL_VERSION ( -- number ) HEX: B002 ; inline
|
||||
: AL_RENDERER ( -- number ) HEX: B003 ; inline
|
||||
: AL_EXTENSIONS ( -- number ) HEX: B004 ; inline
|
||||
: AL_DOPPLER_FACTOR ( -- number ) HEX: C000 ; inline
|
||||
: AL_DOPPLER_VELOCITY ( -- number ) HEX: C001 ; inline
|
||||
: AL_SPEED_OF_SOUND ( -- number ) HEX: C003 ; inline
|
||||
: AL_DISTANCE_MODEL ( -- number ) HEX: D000 ; inline
|
||||
: AL_INVERSE_DISTANCE ( -- number ) HEX: D001 ; inline
|
||||
: AL_INVERSE_DISTANCE_CLAMPED ( -- number ) HEX: D002 ; inline
|
||||
: AL_LINEAR_DISTANCE ( -- number ) HEX: D003 ; inline
|
||||
: AL_LINEAR_DISTANCE_CLAMPED ( -- number ) HEX: D004 ; inline
|
||||
: AL_EXPONENT_DISTANCE ( -- number ) HEX: D005 ; inline
|
||||
: AL_EXPONENT_DISTANCE_CLAMPED ( -- number ) HEX: D006 ; inline
|
||||
CONSTANT: AL_INVALID -1
|
||||
CONSTANT: AL_NONE 0
|
||||
CONSTANT: AL_FALSE 0
|
||||
CONSTANT: AL_TRUE 1
|
||||
CONSTANT: AL_SOURCE_RELATIVE HEX: 202
|
||||
CONSTANT: AL_CONE_INNER_ANGLE HEX: 1001
|
||||
CONSTANT: AL_CONE_OUTER_ANGLE HEX: 1002
|
||||
CONSTANT: AL_PITCH HEX: 1003
|
||||
CONSTANT: AL_POSITION HEX: 1004
|
||||
CONSTANT: AL_DIRECTION HEX: 1005
|
||||
CONSTANT: AL_VELOCITY HEX: 1006
|
||||
CONSTANT: AL_LOOPING HEX: 1007
|
||||
CONSTANT: AL_BUFFER HEX: 1009
|
||||
CONSTANT: AL_GAIN HEX: 100A
|
||||
CONSTANT: AL_MIN_GAIN HEX: 100D
|
||||
CONSTANT: AL_MAX_GAIN HEX: 100E
|
||||
CONSTANT: AL_ORIENTATION HEX: 100F
|
||||
CONSTANT: AL_CHANNEL_MASK HEX: 3000
|
||||
CONSTANT: AL_SOURCE_STATE HEX: 1010
|
||||
CONSTANT: AL_INITIAL HEX: 1011
|
||||
CONSTANT: AL_PLAYING HEX: 1012
|
||||
CONSTANT: AL_PAUSED HEX: 1013
|
||||
CONSTANT: AL_STOPPED HEX: 1014
|
||||
CONSTANT: AL_BUFFERS_QUEUED HEX: 1015
|
||||
CONSTANT: AL_BUFFERS_PROCESSED HEX: 1016
|
||||
CONSTANT: AL_SEC_OFFSET HEX: 1024
|
||||
CONSTANT: AL_SAMPLE_OFFSET HEX: 1025
|
||||
CONSTANT: AL_BYTE_OFFSET HEX: 1026
|
||||
CONSTANT: AL_SOURCE_TYPE HEX: 1027
|
||||
CONSTANT: AL_STATIC HEX: 1028
|
||||
CONSTANT: AL_STREAMING HEX: 1029
|
||||
CONSTANT: AL_UNDETERMINED HEX: 1030
|
||||
CONSTANT: AL_FORMAT_MONO8 HEX: 1100
|
||||
CONSTANT: AL_FORMAT_MONO16 HEX: 1101
|
||||
CONSTANT: AL_FORMAT_STEREO8 HEX: 1102
|
||||
CONSTANT: AL_FORMAT_STEREO16 HEX: 1103
|
||||
CONSTANT: AL_REFERENCE_DISTANCE HEX: 1020
|
||||
CONSTANT: AL_ROLLOFF_FACTOR HEX: 1021
|
||||
CONSTANT: AL_CONE_OUTER_GAIN HEX: 1022
|
||||
CONSTANT: AL_MAX_DISTANCE HEX: 1023
|
||||
CONSTANT: AL_FREQUENCY HEX: 2001
|
||||
CONSTANT: AL_BITS HEX: 2002
|
||||
CONSTANT: AL_CHANNELS HEX: 2003
|
||||
CONSTANT: AL_SIZE HEX: 2004
|
||||
CONSTANT: AL_UNUSED HEX: 2010
|
||||
CONSTANT: AL_PENDING HEX: 2011
|
||||
CONSTANT: AL_PROCESSED HEX: 2012
|
||||
CONSTANT: AL_NO_ERROR AL_FALSE
|
||||
CONSTANT: AL_INVALID_NAME HEX: A001
|
||||
CONSTANT: AL_ILLEGAL_ENUM HEX: A002
|
||||
CONSTANT: AL_INVALID_ENUM HEX: A002
|
||||
CONSTANT: AL_INVALID_VALUE HEX: A003
|
||||
CONSTANT: AL_ILLEGAL_COMMAND HEX: A004
|
||||
CONSTANT: AL_INVALID_OPERATION HEX: A004
|
||||
CONSTANT: AL_OUT_OF_MEMORY HEX: A005
|
||||
CONSTANT: AL_VENDOR HEX: B001
|
||||
CONSTANT: AL_VERSION HEX: B002
|
||||
CONSTANT: AL_RENDERER HEX: B003
|
||||
CONSTANT: AL_EXTENSIONS HEX: B004
|
||||
CONSTANT: AL_DOPPLER_FACTOR HEX: C000
|
||||
CONSTANT: AL_DOPPLER_VELOCITY HEX: C001
|
||||
CONSTANT: AL_SPEED_OF_SOUND HEX: C003
|
||||
CONSTANT: AL_DISTANCE_MODEL HEX: D000
|
||||
CONSTANT: AL_INVERSE_DISTANCE HEX: D001
|
||||
CONSTANT: AL_INVERSE_DISTANCE_CLAMPED HEX: D002
|
||||
CONSTANT: AL_LINEAR_DISTANCE HEX: D003
|
||||
CONSTANT: AL_LINEAR_DISTANCE_CLAMPED HEX: D004
|
||||
CONSTANT: AL_EXPONENT_DISTANCE HEX: D005
|
||||
CONSTANT: AL_EXPONENT_DISTANCE_CLAMPED HEX: D006
|
||||
|
||||
FUNCTION: void alEnable ( ALenum capability ) ;
|
||||
FUNCTION: void alDisable ( ALenum capability ) ;
|
||||
|
|
@ -182,34 +182,34 @@ FUNCTION: void alDistanceModel ( ALenum distanceModel ) ;
|
|||
|
||||
LIBRARY: alut
|
||||
|
||||
: ALUT_API_MAJOR_VERSION ( -- number ) 1 ; inline
|
||||
: ALUT_API_MINOR_VERSION ( -- number ) 1 ; inline
|
||||
: ALUT_ERROR_NO_ERROR ( -- number ) 0 ; inline
|
||||
: ALUT_ERROR_OUT_OF_MEMORY ( -- number ) HEX: 200 ; inline
|
||||
: ALUT_ERROR_INVALID_ENUM ( -- number ) HEX: 201 ; inline
|
||||
: ALUT_ERROR_INVALID_VALUE ( -- number ) HEX: 202 ; inline
|
||||
: ALUT_ERROR_INVALID_OPERATION ( -- number ) HEX: 203 ; inline
|
||||
: ALUT_ERROR_NO_CURRENT_CONTEXT ( -- number ) HEX: 204 ; inline
|
||||
: ALUT_ERROR_AL_ERROR_ON_ENTRY ( -- number ) HEX: 205 ; inline
|
||||
: ALUT_ERROR_ALC_ERROR_ON_ENTRY ( -- number ) HEX: 206 ; inline
|
||||
: ALUT_ERROR_OPEN_DEVICE ( -- number ) HEX: 207 ; inline
|
||||
: ALUT_ERROR_CLOSE_DEVICE ( -- number ) HEX: 208 ; inline
|
||||
: ALUT_ERROR_CREATE_CONTEXT ( -- number ) HEX: 209 ; inline
|
||||
: ALUT_ERROR_MAKE_CONTEXT_CURRENT ( -- number ) HEX: 20A ; inline
|
||||
: ALUT_ERROR_DESTRY_CONTEXT ( -- number ) HEX: 20B ; inline
|
||||
: ALUT_ERROR_GEN_BUFFERS ( -- number ) HEX: 20C ; inline
|
||||
: ALUT_ERROR_BUFFER_DATA ( -- number ) HEX: 20D ; inline
|
||||
: ALUT_ERROR_IO_ERROR ( -- number ) HEX: 20E ; inline
|
||||
: ALUT_ERROR_UNSUPPORTED_FILE_TYPE ( -- number ) HEX: 20F ; inline
|
||||
: ALUT_ERROR_UNSUPPORTED_FILE_SUBTYPE ( -- number ) HEX: 210 ; inline
|
||||
: ALUT_ERROR_CORRUPT_OR_TRUNCATED_DATA ( -- number ) HEX: 211 ; inline
|
||||
: ALUT_WAVEFORM_SINE ( -- number ) HEX: 100 ; inline
|
||||
: ALUT_WAVEFORM_SQUARE ( -- number ) HEX: 101 ; inline
|
||||
: ALUT_WAVEFORM_SAWTOOTH ( -- number ) HEX: 102 ; inline
|
||||
: ALUT_WAVEFORM_WHITENOISE ( -- number ) HEX: 103 ; inline
|
||||
: ALUT_WAVEFORM_IMPULSE ( -- number ) HEX: 104 ; inline
|
||||
: ALUT_LOADER_BUFFER ( -- number ) HEX: 300 ; inline
|
||||
: ALUT_LOADER_MEMORY ( -- number ) HEX: 301 ; inline
|
||||
CONSTANT: ALUT_API_MAJOR_VERSION 1
|
||||
CONSTANT: ALUT_API_MINOR_VERSION 1
|
||||
CONSTANT: ALUT_ERROR_NO_ERROR 0
|
||||
CONSTANT: ALUT_ERROR_OUT_OF_MEMORY HEX: 200
|
||||
CONSTANT: ALUT_ERROR_INVALID_ENUM HEX: 201
|
||||
CONSTANT: ALUT_ERROR_INVALID_VALUE HEX: 202
|
||||
CONSTANT: ALUT_ERROR_INVALID_OPERATION HEX: 203
|
||||
CONSTANT: ALUT_ERROR_NO_CURRENT_CONTEXT HEX: 204
|
||||
CONSTANT: ALUT_ERROR_AL_ERROR_ON_ENTRY HEX: 205
|
||||
CONSTANT: ALUT_ERROR_ALC_ERROR_ON_ENTRY HEX: 206
|
||||
CONSTANT: ALUT_ERROR_OPEN_DEVICE HEX: 207
|
||||
CONSTANT: ALUT_ERROR_CLOSE_DEVICE HEX: 208
|
||||
CONSTANT: ALUT_ERROR_CREATE_CONTEXT HEX: 209
|
||||
CONSTANT: ALUT_ERROR_MAKE_CONTEXT_CURRENT HEX: 20A
|
||||
CONSTANT: ALUT_ERROR_DESTRY_CONTEXT HEX: 20B
|
||||
CONSTANT: ALUT_ERROR_GEN_BUFFERS HEX: 20C
|
||||
CONSTANT: ALUT_ERROR_BUFFER_DATA HEX: 20D
|
||||
CONSTANT: ALUT_ERROR_IO_ERROR HEX: 20E
|
||||
CONSTANT: ALUT_ERROR_UNSUPPORTED_FILE_TYPE HEX: 20F
|
||||
CONSTANT: ALUT_ERROR_UNSUPPORTED_FILE_SUBTYPE HEX: 210
|
||||
CONSTANT: ALUT_ERROR_CORRUPT_OR_TRUNCATED_DATA HEX: 211
|
||||
CONSTANT: ALUT_WAVEFORM_SINE HEX: 100
|
||||
CONSTANT: ALUT_WAVEFORM_SQUARE HEX: 101
|
||||
CONSTANT: ALUT_WAVEFORM_SAWTOOTH HEX: 102
|
||||
CONSTANT: ALUT_WAVEFORM_WHITENOISE HEX: 103
|
||||
CONSTANT: ALUT_WAVEFORM_IMPULSE HEX: 104
|
||||
CONSTANT: ALUT_LOADER_BUFFER HEX: 300
|
||||
CONSTANT: ALUT_LOADER_MEMORY HEX: 301
|
||||
|
||||
FUNCTION: ALboolean alutInit ( int* argcp, char** argv ) ;
|
||||
FUNCTION: ALboolean alutInitWithoutContext ( int* argcp, char** argv ) ;
|
||||
|
|
@ -234,37 +234,37 @@ FUNCTION: void alutUnloadWAV ( ALenum format, void* data, ALsizei size, ALsizei
|
|||
SYMBOL: init
|
||||
|
||||
: init-openal ( -- )
|
||||
init get-global expired? [
|
||||
f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when
|
||||
1337 <alien> init set-global
|
||||
] when ;
|
||||
init get-global expired? [
|
||||
f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when
|
||||
1337 <alien> init set-global
|
||||
] when ;
|
||||
|
||||
: exit-openal ( -- )
|
||||
init get-global expired? [
|
||||
alutExit 0 = [ "Could not close OpenAL" throw ] when
|
||||
f init set-global
|
||||
] unless ;
|
||||
init get-global expired? [
|
||||
alutExit 0 = [ "Could not close OpenAL" throw ] when
|
||||
f init set-global
|
||||
] unless ;
|
||||
|
||||
: <uint-array> ( n -- byte-array ) "ALuint" <c-array> ;
|
||||
|
||||
: gen-sources ( size -- seq )
|
||||
dup <uint-array> 2dup underlying>> alGenSources swap ;
|
||||
dup <uint-array> 2dup underlying>> alGenSources swap ;
|
||||
|
||||
: gen-buffers ( size -- seq )
|
||||
dup <uint-array> 2dup underlying>> alGenBuffers swap ;
|
||||
dup <uint-array> 2dup underlying>> alGenBuffers swap ;
|
||||
|
||||
: gen-buffer ( -- buffer ) 1 gen-buffers first ;
|
||||
|
||||
: create-buffer-from-file ( filename -- buffer )
|
||||
alutCreateBufferFromFile dup AL_NONE = [
|
||||
"create-buffer-from-file failed" throw
|
||||
] when ;
|
||||
alutCreateBufferFromFile dup AL_NONE = [
|
||||
"create-buffer-from-file failed" throw
|
||||
] when ;
|
||||
|
||||
os macosx? "openal.macosx" "openal.other" ? require
|
||||
|
||||
: create-buffer-from-wav ( filename -- buffer )
|
||||
gen-buffer dup rot load-wav-file
|
||||
[ alBufferData ] 4keep alutUnloadWAV ;
|
||||
gen-buffer dup rot load-wav-file
|
||||
[ alBufferData ] 4keep alutUnloadWAV ;
|
||||
|
||||
: queue-buffers ( source buffers -- )
|
||||
[ length ] [ >uint-array underlying>> ] bi alSourceQueueBuffers ;
|
||||
|
|
@ -273,29 +273,27 @@ os macosx? "openal.macosx" "openal.other" ? require
|
|||
1array queue-buffers ;
|
||||
|
||||
: set-source-param ( source param value -- )
|
||||
alSourcei ;
|
||||
alSourcei ;
|
||||
|
||||
: get-source-param ( source param -- value )
|
||||
0 <uint> dup >r alGetSourcei r> *uint ;
|
||||
0 <uint> dup [ alGetSourcei ] dip *uint ;
|
||||
|
||||
: set-buffer-param ( source param value -- )
|
||||
alBufferi ;
|
||||
alBufferi ;
|
||||
|
||||
: get-buffer-param ( source param -- value )
|
||||
0 <uint> dup >r alGetBufferi r> *uint ;
|
||||
0 <uint> dup [ alGetBufferi ] dip *uint ;
|
||||
|
||||
: source-play ( source -- )
|
||||
alSourcePlay ;
|
||||
: source-play ( source -- ) alSourcePlay ;
|
||||
|
||||
: source-stop ( source -- )
|
||||
alSourceStop ;
|
||||
: source-stop ( source -- ) alSourceStop ;
|
||||
|
||||
: check-error ( -- )
|
||||
alGetError dup ALUT_ERROR_NO_ERROR = [
|
||||
drop
|
||||
] [
|
||||
alGetString throw
|
||||
] if ;
|
||||
alGetError dup ALUT_ERROR_NO_ERROR = [
|
||||
drop
|
||||
] [
|
||||
alGetString throw
|
||||
] if ;
|
||||
|
||||
: source-playing? ( source -- bool )
|
||||
AL_SOURCE_STATE get-source-param AL_PLAYING = ;
|
||||
AL_SOURCE_STATE get-source-param AL_PLAYING = ;
|
||||
|
|
|
|||
Loading…
Reference in New Issue