void al_listeneri( int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[] ) {
if (NULL == alListeneri) mogl_glunsupported("alListeneri");
alListeneri((ALenum)mxGetScalar(prhs[0]),
(ALint)mxGetScalar(prhs[1]));
}
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_listeneri (value param, value value1) {
alListeneri (val_int (param), val_int (value1));
return alloc_null ();
}
ALvoid CDECL wine_alListeneri(ALenum param, ALint value)
{
alListeneri(param, value);
}
void lime_al_listeneri (int param, int value1) {
alListeneri (param, value1);
}
JNIEXPORT void JNICALL Java_org_lwjgl_openal_AL10_nalListeneri(JNIEnv *__env, jclass clazz, jint paramName, jint values, jlong __functionAddress) {
alListeneriPROC alListeneri = (alListeneriPROC)(intptr_t)__functionAddress;
UNUSED_PARAMS(__env, clazz)
alListeneri(paramName, values);
}
//*****************************************************************************
// alListeneri
//*****************************************************************************
//
ALAPI ALvoid ALAPIENTRY alListeneri(ALenum param, ALint value)
{
AL_VOID_FXN(alListeneri(param, value));
}
