shaderobjects.c

winNT技术操作系统,国外开放的原代码和LIUX一样

    The error INVALID_OPERATION is generated by the Uniform*ARB if the
    number of values loaded results in exceeding the declared extent of a
    uniform.

    The error INVALID_OPERATION is generated by the Uniform*ARB commands if
    the size does not match the size of the uniform declared in the shader.

    The error INVALID_OPERATION is generated by the Uniform*ARB commands if
    the type does not match the type of the uniform declared in the shader,
    if the uniform is not of type Boolean.

    The error INVALID_OPERATION is generated by the Uniform*ARB commands if
    <location> does not exist for the program object currently in use.

    The error INVALID_OPERATION is generated if a uniform command other than
    Uniform1i{v}ARB is used to load a sampler value.


*/

void GLAPIENTRY
_mesa_Uniform1fARB (GLint location, GLfloat v0)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1fARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform2fARB (GLint location, GLfloat v0, GLfloat v1)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2fARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform3fARB (GLint location, GLfloat v0, GLfloat v1, GLfloat v2)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3fARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform4fARB (GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4fARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform1iARB (GLint location, GLint v0)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1iARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform2iARB (GLint location, GLint v0, GLint v1)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2iARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform3iARB (GLint location, GLint v0, GLint v1, GLint v2)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3iARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform4iARB (GLint location, GLint v0, GLint v1, GLint v2, GLint v3)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4iARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform1fvARB (GLint location, GLsizei count, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1fvARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform2fvARB (GLint location, GLsizei count, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2fvARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform3fvARB (GLint location, GLsizei count, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3fvARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform4fvARB (GLint location, GLsizei count, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4fvARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform1ivARB (GLint location, GLsizei count, const GLint *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1ivARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform2ivARB (GLint location, GLsizei count, const GLint *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2ivARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform3ivARB (GLint location, GLsizei count, const GLint *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3ivARB");
		return;
	}
}

void GLAPIENTRY
_mesa_Uniform4ivARB (GLint location, GLsizei count, const GLint *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4ivARB");
		return;
	}
}

void GLAPIENTRY
_mesa_UniformMatrix2fvARB (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix2fvARB");
		return;
	}
}

void GLAPIENTRY
_mesa_UniformMatrix3fvARB (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix3fvARB");
		return;
	}
}

void GLAPIENTRY
_mesa_UniformMatrix4fvARB (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
{
	GET_CURRENT_CONTEXT(ctx);

	if (ctx->ShaderObjects.current_program == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix4fvARB");
		return;
	}
}

static GLboolean
_mesa_get_object_parameter (GLhandleARB obj, GLenum pname, GLvoid *params, GLboolean *integral,
	GLint *size)
{
	GET_CURRENT_CONTEXT(ctx);
	struct gl2_unknown_intf **unk;
	struct gl2_generic_intf **gen;
	struct gl2_shader_intf **sha;
	struct gl2_program_intf **pro;
	GLint *ipar = (GLint *) params;
	/*GLfloat *fpar = (GLfloat *) params;*/
	GLboolean success = GL_TRUE;

	_glthread_LOCK_MUTEX (ctx->Shared->Mutex);
	unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, obj);
	_glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);

	if (unk == NULL)
	{
		_mesa_error (ctx, GL_INVALID_VALUE, "glGetObjectParameterivARB");
		return GL_FALSE;
	}

	gen = (struct gl2_generic_intf **) (**unk).QueryInterface (unk, UIID_GENERIC);
	if (gen == NULL)
	{
		_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
		return GL_FALSE;
	}

	sha = (struct gl2_shader_intf **) (**unk).QueryInterface (unk, UIID_SHADER);
	pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);

	/* set default values */
	*integral = GL_TRUE;	/* indicates param type, TRUE: GLint, FALSE: GLfloat */
	*size = 1;				/* param array size */ 

	switch (pname)
	{
	case GL_OBJECT_TYPE_ARB:
		*ipar = (**gen).GetType (gen);
		break;
	case GL_OBJECT_SUBTYPE_ARB:
		if (sha != NULL)
			*ipar = (**sha).GetSubType (sha);
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_DELETE_STATUS_ARB:
		*ipar = (**gen).GetDeleteStatus (gen);
		break;
	case GL_OBJECT_COMPILE_STATUS_ARB:
		if (sha != NULL)
			*ipar = (**sha).GetCompileStatus (sha);
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_LINK_STATUS_ARB:
		if (pro != NULL)
			*ipar = (**pro).GetLinkStatus (pro);
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_VALIDATE_STATUS_ARB:
		if (pro != NULL)
			*ipar = (**pro).GetValidateStatus (pro);
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_INFO_LOG_LENGTH_ARB:
		{
			const GLcharARB *info = (**gen).GetInfoLog (gen);
			if (info == NULL)
				*ipar = 0;
			else
				*ipar = _mesa_strlen (info) + 1;
		}
		break;
	case GL_OBJECT_ATTACHED_OBJECTS_ARB:
		if (pro != NULL)
			*ipar = (**pro)._container.GetAttachedCount ((struct gl2_container_intf **) pro);
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_ACTIVE_UNIFORMS_ARB:
		if (pro != NULL)
			*ipar = 0;	/* TODO */
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB:
		if (pro != NULL)
			*ipar = 0;	/* TODO */
		else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	case GL_OBJECT_SHADER_SOURCE_LENGTH_ARB:
		if (sha != NULL) {
			const GLcharARB *src = (**sha).GetSource (sha);
			if (src == NULL)
				*ipar = 0;
			else
				*ipar = _mesa_strlen (src) + 1;
		} else {
			_mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");
			success = GL_FALSE;
		}
		break;
	default:
		_mesa_error (ctx, GL_INVALID_ENUM, "glGetObjectParameterivARB");
		success = GL_FALSE;
		break;
	}

	(**gen)._unknown.Release ((struct gl2_unknown_intf **) gen);
	if (sha != NULL)
		(**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);
	if (pro != NULL)
		(**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);

	return success;
}

void GLAPIENTRY
_mesa_GetObjectParameterfvARB (GLhandleARB obj, GLenum pname, GLfloat *params)
{
	GLboolean integral;
	GLint size, i;

	assert (sizeof (GLfloat) == sizeof (GLint));

	if (_mesa_get_object_parameter (obj, pname, (GLvoid *) params, &integral, &size) != GL_FALSE)
		if (integral != GL_FALSE)