void al_getlisteneriv( int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[] ) {
if (NULL == alGetListeneriv) mogl_glunsupported("alGetListeneriv");
alGetListeneriv((ALenum)mxGetScalar(prhs[0]),
(ALint*)mxGetData(prhs[1]));
}
value lime_al_get_listeneriv (int param, int count) {
ALint* values = new ALint[count];
alGetListeneriv (param, values);
value result = alloc_array (count);
for (int i = 0; i < count; i++) {
val_array_set_i (result, i, alloc_int (values[i]));
}
delete [] values;
return result;
}
value lime_al_get_listeneriv (value param, value count) {
int length = val_int (count);
ALint* values = new ALint[length];
alGetListeneriv (val_int (param), values);
value result = alloc_array (length);
for (int i = 0; i < length; ++i) {
val_array_set_i (result, i, alloc_int (values[i]));
}
return result;
}
ALvoid CDECL wine_alGetListeneriv(ALenum param, ALint* values)
{
alGetListeneriv(param, values);
}
static int lua_alGetListener(lua_State* lua_state)
{
ALenum enum_parameter;
int openal_primitive_type;
enum_parameter = lua_tointeger(lua_state, 1);
openal_primitive_type = lua_getTypeForEnum(enum_parameter);
switch(openal_primitive_type)
{
case LUAOPENAL_BOOL_TYPE:
{
ALint ret_val;
alGetListeneri(enum_parameter, &ret_val);
lua_pushboolean(lua_state, ret_val);
return 1;
break;
}
case LUAOPENAL_INT_TYPE:
{
ALint ret_val;
alGetListeneri(enum_parameter, &ret_val);
lua_pushinteger(lua_state, ret_val);
return 1;
break;
}
case LUAOPENAL_FLOAT_TYPE:
{
ALfloat ret_val;
alGetListenerf(enum_parameter, &ret_val);
lua_pushnumber(lua_state, ret_val);
return 1;
break;
}
case LUAOPENAL_INT_3_TYPE:
{
ALint ret_val[3];
alGetListeneriv(enum_parameter, ret_val);
lua_pushinteger(lua_state, ret_val[0]);
lua_pushinteger(lua_state, ret_val[1]);
lua_pushinteger(lua_state, ret_val[2]);
return 3;
break;
}
case LUAOPENAL_FLOAT_3_TYPE:
{
ALfloat ret_val[3];
alGetListenerfv(enum_parameter, ret_val);
lua_pushnumber(lua_state, ret_val[0]);
lua_pushnumber(lua_state, ret_val[1]);
lua_pushnumber(lua_state, ret_val[2]);
return 3;
break;
}
case LUAOPENAL_FLOAT_6_TYPE:
{
ALfloat ret_val[6];
alGetListenerfv(enum_parameter, ret_val);
lua_pushnumber(lua_state, ret_val[0]);
lua_pushnumber(lua_state, ret_val[1]);
lua_pushnumber(lua_state, ret_val[2]);
lua_pushnumber(lua_state, ret_val[3]);
lua_pushnumber(lua_state, ret_val[4]);
lua_pushnumber(lua_state, ret_val[5]);
return 6;
break;
}
default:
{
/* TODO: Figure out how to handle OpenAL extensions. */
luaL_error(lua_state, "Unhandled parameter type for alGetSource*");
}
}
return 0;
}
//*****************************************************************************
// alGetListeneriv
//*****************************************************************************
//
ALAPI ALvoid ALAPIENTRY alGetListeneriv(ALenum param, ALint* values)
{
AL_VOID_FXN(alGetListeneriv(param, values));
}
