void al_listener3i( int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[] ) {
if (NULL == alListener3i) mogl_glunsupported("alListener3i");
alListener3i((ALenum)mxGetScalar(prhs[0]),
(ALint)mxGetScalar(prhs[1]),
(ALint)mxGetScalar(prhs[2]),
(ALint)mxGetScalar(prhs[3]));
}
static int lua_alListener(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:
case LUAOPENAL_INT_TYPE:
{
alListeneri(enum_parameter, lua_tointeger(lua_state, 2));
break;
}
case LUAOPENAL_FLOAT_TYPE:
{
alListenerf(enum_parameter, lua_tonumber(lua_state, 2));
break;
}
case LUAOPENAL_INT_3_TYPE:
{
alListener3i(enum_parameter, lua_tointeger(lua_state, 2), lua_tointeger(lua_state, 3), lua_tointeger(lua_state, 4));
break;
}
case LUAOPENAL_FLOAT_3_TYPE:
{
alListener3f(enum_parameter, lua_tonumber(lua_state, 2), lua_tonumber(lua_state, 3), lua_tonumber(lua_state, 4));
break;
}
case LUAOPENAL_FLOAT_6_TYPE:
{
ALfloat val_array[6] =
{
lua_tonumber(lua_state, 2),
lua_tonumber(lua_state, 3),
lua_tonumber(lua_state, 4),
lua_tonumber(lua_state, 5),
lua_tonumber(lua_state, 6),
lua_tonumber(lua_state, 7)
};
alListenerfv(enum_parameter, val_array);
break;
}
default:
{
/* TODO: Figure out how to handle OpenAL extensions. */
luaL_error(lua_state, "Unhandled parameter type for alSource*");
}
}
return 0;
}
value lime_al_listener3i (value param, value value1, value value2, value value3) {
alListener3i (val_int (param), val_int (value1), val_int (value2), val_int (value3));
return alloc_null ();
}
/* OpenAL 1.1 functions */
ALvoid CDECL wine_alListener3i(ALenum param, ALint value1, ALint value2, ALint value3)
{
alListener3i(param, value1, value2, value3);
}
void lime_al_listener3i (int param, int value1, int value2, int value3) {
alListener3i (param, value1, value2, value3);
}
//*****************************************************************************
// alListener3i
//*****************************************************************************
//
ALAPI ALvoid ALAPIENTRY alListener3i(ALenum param, ALint v1, ALint v2, ALint v3)
{
AL_VOID_FXN(alListener3i(param, v1, v2, v3));
}
