summaryrefslogtreecommitdiffstatshomepage
path: root/src/osd/modules/opengl/gl_shader_tool.c
diff options
context:
space:
mode:
author Miodrag Milanovic <mmicko@gmail.com>2015-11-08 12:56:12 +0100
committer Miodrag Milanovic <mmicko@gmail.com>2015-11-08 12:56:12 +0100
commit7c19aac60e12d6f5ea301bdb34d7826a01e0b06f (patch)
treef310d86aa2c6bfc19d115307dedde4eb0cd52dad /src/osd/modules/opengl/gl_shader_tool.c
parenta57b46ae933badd7441ce1644711dbb851e2b504 (diff)
Rename *.c -> *.cpp in our source (nw)
Diffstat (limited to 'src/osd/modules/opengl/gl_shader_tool.c')
-rw-r--r--src/osd/modules/opengl/gl_shader_tool.c597
1 files changed, 0 insertions, 597 deletions
diff --git a/src/osd/modules/opengl/gl_shader_tool.c b/src/osd/modules/opengl/gl_shader_tool.c
deleted file mode 100644
index 8281691a607..00000000000
--- a/src/osd/modules/opengl/gl_shader_tool.c
+++ /dev/null
@@ -1,597 +0,0 @@
-// license:BSD-3-Clause
-// copyright-holders:Sven Gothel
-/***
- *
- * GL Shader Tool - Convinient Basic Shader functionality
- *
- * Copyright (c) 2007, Sven Gothel
- *
- * OpenGL GLSL ARB extentions:
- *
- * GL_ARB_shader_objects
- * GL_ARB_shading_language_100
- * GL_ARB_vertex_shader
- * GL_ARB_fragment_shader
- *
- */
-
-#include "emu.h"
-#include "gl_shader_tool.h"
-
-PFNGLGETOBJECTPARAMETERIVARBPROC pfn_glGetObjectParameterivARB=NULL;
-PFNGLGETINFOLOGARBPROC pfn_glGetInfoLogARB=NULL;
-PFNGLDELETEOBJECTARBPROC pfn_glDeleteObjectARB=NULL;
-PFNGLCREATESHADEROBJECTARBPROC pfn_glCreateShaderObjectARB=NULL;
-PFNGLSHADERSOURCEARBPROC pfn_glShaderSourceARB=NULL;
-PFNGLCOMPILESHADERARBPROC pfn_glCompileShaderARB=NULL;
-PFNGLCREATEPROGRAMOBJECTARBPROC pfn_glCreateProgramObjectARB=NULL;
-PFNGLATTACHOBJECTARBPROC pfn_glAttachObjectARB=NULL;
-PFNGLLINKPROGRAMARBPROC pfn_glLinkProgramARB=NULL;
-PFNGLVALIDATEPROGRAMARBPROC pfn_glValidateProgramARB=NULL;
-PFNGLUSEPROGRAMOBJECTARBPROC pfn_glUseProgramObjectARB=NULL;
-PFNGLGETUNIFORMLOCATIONARBPROC pfn_glGetUniformLocationARB=NULL;
-PFNGLUNIFORM1FARBPROC pfn_glUniform1fARB=NULL;
-PFNGLUNIFORM1IARBPROC pfn_glUniform1iARB=NULL;
-PFNGLUNIFORM1FVARBPROC pfn_glUniform1fvARB=NULL;
-PFNGLUNIFORM2FVARBPROC pfn_glUniform2fvARB=NULL;
-PFNGLUNIFORM3FVARBPROC pfn_glUniform3fvARB=NULL;
-PFNGLUNIFORM4FVARBPROC pfn_glUniform4fvARB=NULL;
-PFNGLUNIFORM1IVARBPROC pfn_glUniform1ivARB=NULL;
-PFNGLUNIFORM2IVARBPROC pfn_glUniform2ivARB=NULL;
-PFNGLUNIFORM3IVARBPROC pfn_glUniform3ivARB=NULL;
-PFNGLUNIFORM4IVARBPROC pfn_glUniform4ivARB=NULL;
-
-
-int gl_shader_loadExtention(osd_gl_context *gl_ctx)
-{
- pfn_glGetObjectParameterivARB = (PFNGLGETOBJECTPARAMETERIVARBPROC) gl_ctx->getProcAddress("glGetObjectParameterivARB");
- pfn_glGetInfoLogARB = (PFNGLGETINFOLOGARBPROC) gl_ctx->getProcAddress ("glGetInfoLogARB");
- pfn_glDeleteObjectARB = (PFNGLDELETEOBJECTARBPROC) gl_ctx->getProcAddress ("glDeleteObjectARB");
- pfn_glCreateShaderObjectARB = (PFNGLCREATESHADEROBJECTARBPROC) gl_ctx->getProcAddress ("glCreateShaderObjectARB");
- pfn_glShaderSourceARB = (PFNGLSHADERSOURCEARBPROC) gl_ctx->getProcAddress ("glShaderSourceARB");
- pfn_glCompileShaderARB = (PFNGLCOMPILESHADERARBPROC) gl_ctx->getProcAddress ("glCompileShaderARB");
- pfn_glCreateProgramObjectARB = (PFNGLCREATEPROGRAMOBJECTARBPROC) gl_ctx->getProcAddress ("glCreateProgramObjectARB");
- pfn_glAttachObjectARB = (PFNGLATTACHOBJECTARBPROC) gl_ctx->getProcAddress ("glAttachObjectARB");
- pfn_glLinkProgramARB = (PFNGLLINKPROGRAMARBPROC) gl_ctx->getProcAddress ("glLinkProgramARB");
- pfn_glValidateProgramARB = (PFNGLVALIDATEPROGRAMARBPROC) gl_ctx->getProcAddress ("glValidateProgramARB");
- pfn_glUseProgramObjectARB = (PFNGLUSEPROGRAMOBJECTARBPROC) gl_ctx->getProcAddress ("glUseProgramObjectARB");
- pfn_glGetUniformLocationARB = (PFNGLGETUNIFORMLOCATIONARBPROC) gl_ctx->getProcAddress ("glGetUniformLocationARB");
- pfn_glUniform1fARB = (PFNGLUNIFORM1FARBPROC) gl_ctx->getProcAddress ("glUniform1fARB");
- pfn_glUniform1iARB = (PFNGLUNIFORM1IARBPROC) gl_ctx->getProcAddress ("glUniform1iARB");
- pfn_glUniform1fvARB = (PFNGLUNIFORM1FVARBPROC) gl_ctx->getProcAddress ("glUniform1fvARB");
- pfn_glUniform2fvARB = (PFNGLUNIFORM2FVARBPROC) gl_ctx->getProcAddress ("glUniform2fvARB");
- pfn_glUniform3fvARB = (PFNGLUNIFORM3FVARBPROC) gl_ctx->getProcAddress ("glUniform3fvARB");
- pfn_glUniform4fvARB = (PFNGLUNIFORM4FVARBPROC) gl_ctx->getProcAddress ("glUniform4fvARB");
- pfn_glUniform1ivARB = (PFNGLUNIFORM1IVARBPROC) gl_ctx->getProcAddress ("glUniform1ivARB");
- pfn_glUniform2ivARB = (PFNGLUNIFORM2IVARBPROC) gl_ctx->getProcAddress ("glUniform2ivARB");
- pfn_glUniform3ivARB = (PFNGLUNIFORM3IVARBPROC) gl_ctx->getProcAddress ("glUniform3ivARB");
- pfn_glUniform4ivARB = (PFNGLUNIFORM4IVARBPROC) gl_ctx->getProcAddress ("glUniform4ivARB");
-
- if ( pfn_glGetObjectParameterivARB && pfn_glGetInfoLogARB && pfn_glDeleteObjectARB && pfn_glCreateShaderObjectARB &&
- pfn_glShaderSourceARB && pfn_glCompileShaderARB && pfn_glCreateProgramObjectARB && pfn_glAttachObjectARB &&
- pfn_glLinkProgramARB && pfn_glValidateProgramARB && pfn_glUseProgramObjectARB &&
- pfn_glGetUniformLocationARB && pfn_glUniform1fARB && pfn_glUniform1iARB &&
- pfn_glUniform1fvARB && pfn_glUniform2fvARB && pfn_glUniform3fvARB && pfn_glUniform4fvARB &&
- pfn_glUniform1ivARB && pfn_glUniform2ivARB && pfn_glUniform3ivARB && pfn_glUniform4ivARB
- )
- {
- return 0;
- }
-
- osd_printf_error("OpenGL: missing ARB shader function: ");
- if (!pfn_glGetObjectParameterivARB) osd_printf_error("glGetObjectParameterivARB, ");
- if (!pfn_glGetInfoLogARB) osd_printf_error("glGetInfoLogARB, ");
- if (!pfn_glDeleteObjectARB) osd_printf_error("glDeleteObjectARB, ");
- if (!pfn_glCreateShaderObjectARB) osd_printf_error("glCreateShaderObjectARB, ");
- if (!pfn_glShaderSourceARB) osd_printf_error("glShaderSourceARB, ");
- if (!pfn_glCompileShaderARB) osd_printf_error("glCompileShaderARB, ");
- if (!pfn_glCreateProgramObjectARB) osd_printf_error("glCreateProgramObjectARB, ");
- if (!pfn_glAttachObjectARB) osd_printf_error("glAttachObjectARB, ");
- if (!pfn_glLinkProgramARB) osd_printf_error("glLinkProgramARB, ");
- if (!pfn_glValidateProgramARB) osd_printf_error("glValidateProgramARB, ");
- if (!pfn_glUseProgramObjectARB) osd_printf_error("glUseProgramObjectARB, ");
- if (!pfn_glGetUniformLocationARB) osd_printf_error("glGetUniformLocationARB, ");
- if (!pfn_glUniform1fARB) osd_printf_error("glUniform1fARB, ");
- if (!pfn_glUniform1iARB) osd_printf_error("glUniform1iARB");
- if (!pfn_glUniform1fvARB) osd_printf_error("glUniform1fvARB, ");
- if (!pfn_glUniform2fvARB) osd_printf_error("glUniform2fvARB, ");
- if (!pfn_glUniform3fvARB) osd_printf_error("glUniform3fvARB, ");
- if (!pfn_glUniform4fvARB) osd_printf_error("glUniform4fvARB, ");
- if (!pfn_glUniform1ivARB) osd_printf_error("glUniform1ivARB");
- if (!pfn_glUniform2ivARB) osd_printf_error("glUniform2ivARB");
- if (!pfn_glUniform3ivARB) osd_printf_error("glUniform3ivARB");
- if (!pfn_glUniform4ivARB) osd_printf_error("glUniform4ivARB");
- osd_printf_error("\n");
-
- return -1;
-}
-
-int gl_check_error(GLSLCheckMode m, const char *file, const int line)
-{
- GLenum glerr = glGetError();
-
- if (GL_NO_ERROR != glerr)
- {
- if ( CHECK_VERBOSE <= m )
- {
- osd_printf_warning( "%s:%d: GL Error: %d 0x%X\n", file, line, (int)glerr, (unsigned int)glerr);
- }
- }
- return (GL_NO_ERROR != glerr)? glerr : 0;
-}
-
-int gl_shader_check_error(GLhandleARB obj, GLenum obj_query, GLSLCheckMode m, const char *file, const int line)
-{
- GLsizei length;
- GLcharARB buffer[255];
- GLenum glerr;
- GLint param;
- int res=0;
-
- glerr = gl_check_error(m, file, line);
-
- if(!obj)
- return glerr;
-
- if(obj_query != GL_OBJECT_TYPE_ARB &&
- obj_query != GL_OBJECT_DELETE_STATUS_ARB &&
- obj_query != GL_OBJECT_COMPILE_STATUS_ARB &&
- obj_query != GL_OBJECT_LINK_STATUS_ARB &&
- obj_query != GL_OBJECT_VALIDATE_STATUS_ARB
- )
- {
- osd_printf_warning("%s:%d: GL Error: gl_shader_check_error unsupported object query 0x%X\n", file, line, (unsigned int)obj_query);
- return -1;
- }
-
- pfn_glGetObjectParameterivARB(obj, obj_query, &param);
-
- switch(obj_query)
- {
- case GL_OBJECT_TYPE_ARB:
- if( param!=GL_PROGRAM_OBJECT_ARB && param!=GL_SHADER_OBJECT_ARB )
- {
- if ( CHECK_VERBOSE <= m )
- osd_printf_warning("%s:%d: GL Error: object type 0x%X generation failed\n", file, line, (unsigned int)(FPTR)obj);
- res=-1;
- } else if ( CHECK_ALWAYS_VERBOSE <= m )
- {
- if(param==GL_PROGRAM_OBJECT_ARB)
- osd_printf_warning("%s:%d: GL Error: object type 0x%X is PROGRAM, successful\n", file, line, (unsigned int)(FPTR)obj);
- else
- osd_printf_warning("%s:%d: GL Info: object type 0x%X is SHADER, successful\n", file, line, (unsigned int)(FPTR)obj);
- }
- break;
- case GL_OBJECT_DELETE_STATUS_ARB:
- if(param!=1)
- {
- if ( CHECK_ALWAYS_VERBOSE <= m )
- osd_printf_warning("%s:%d: GL Info: object 0x%X not yet marked for deletion\n", file, line, (unsigned int)(FPTR)obj);
- } else if ( CHECK_ALWAYS_VERBOSE <= m )
- {
- osd_printf_warning("%s:%d: GL Info: object 0x%X deletion successful\n", file, line, (unsigned int)(FPTR)obj);
- }
- break;
- case GL_OBJECT_COMPILE_STATUS_ARB:
- if(param!=1)
- {
- if ( CHECK_VERBOSE <= m )
- osd_printf_warning("%s:%d: GL Error: object 0x%X compilation failed\n", file, line, (unsigned int)(FPTR)obj);
- res=-1;
- } else if ( CHECK_ALWAYS_VERBOSE <= m )
- {
- osd_printf_warning("%s:%d: GL Info: object 0x%X compiled successful\n", file, line, (unsigned int)(FPTR)obj);
- }
- break;
- case GL_OBJECT_LINK_STATUS_ARB:
- if(param!=1)
- {
- if ( CHECK_VERBOSE <= m )
- osd_printf_warning("%s:%d: GL Error: object 0x%X linking failed\n", file, line, (unsigned int)(FPTR)obj);
- res=-1;
- } else if ( CHECK_ALWAYS_VERBOSE <= m )
- {
- osd_printf_warning("%s:%d: GL Info: object 0x%X linked successful\n", file, line, (unsigned int)(FPTR)obj);
- }
- break;
- case GL_OBJECT_VALIDATE_STATUS_ARB:
- if(param!=1)
- {
- if ( CHECK_VERBOSE <= m )
- osd_printf_warning("%s:%d: GL Error: object 0x%X validation failed\n", file, line, (unsigned int)(FPTR)obj);
- res=-1;
- } else if ( CHECK_ALWAYS_VERBOSE <= m )
- {
- osd_printf_warning("%s:%d: GL Info: object 0x%X validation successful\n", file, line, (unsigned int)(FPTR)obj);
- }
- break;
- }
-
- if ( res<0 || CHECK_ALWAYS_VERBOSE <= m )
- {
- length=0;
- pfn_glGetInfoLogARB(obj, sizeof(buffer), &length, buffer);
- if(length>0)
- osd_printf_warning("%s:%d glInfoLog: %s\n", file, line, buffer);
- }
-
- (void) glGetError(); // ;-)
-
-
- return res;
-}
-
-int gl_round_to_pow2(int v)
-{
- if (v & (v - 1))
- {
- v |= v >> 1;
- v |= v >> 2;
- v |= v >> 4;
- v |= v >> 8;
- v++;
- }
- return v;
-}
-
-int gl_texture_check_size(GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height,
- GLint border, GLenum format, GLenum type,
- GLint *avail_width, GLint *avail_height,
- int verbose)
-{
- int err=1;
- GLenum texTargetProxy = (target==GL_TEXTURE_RECTANGLE_ARB)?GL_PROXY_TEXTURE_RECTANGLE_ARB:GL_PROXY_TEXTURE_2D;
-
- if ( !avail_width || !avail_height)
- return -1;
-
- *avail_width = 0;
- *avail_height = 0;
-
- GL_CHECK_ERROR_QUIET();
-
- /* Test the max texture size */
- while(err && width>=1 && height>=1 /* && width>=64 && height>=64 */)
- {
- glTexImage2D (texTargetProxy, level,
- internalFormat,
- width, height,
- border, format, type, NULL);
- if ( 0!=(err=GL_CHECK_ERROR_NORMAL() )) return err;
-
- glGetTexLevelParameteriv( texTargetProxy, level, GL_TEXTURE_WIDTH, avail_width);
- glGetTexLevelParameteriv( texTargetProxy, level, GL_TEXTURE_HEIGHT, avail_height);
- if ( 0!=(err=GL_CHECK_ERROR_NORMAL() )) return err;
-
- if ( (*avail_width) != width || (*avail_height) != height )
- {
- err=1;
-
- if(verbose)
- {
- osd_printf_warning("gl_texture_size_check: "
- "TexImage2D(0x%X, %d, 0x%X, %d, %d, %d, 0x%X, 0x%X): returned size does not match: %dx%d\n",
- (unsigned int)target, (int)level, (int)internalFormat,
- (int)width, (int)height, (int)border, (unsigned int)format, (unsigned int)type,
- (int)*avail_width, (int)*avail_height);
- }
-
- if ( (*avail_width) == width )
- height /= 2;
- else if ( (*avail_height) == height )
- width /= 2;
- else if (width > height)
- width /= 2;
- else
- height /= 2;
- if(verbose)
- {
- fprintf (stderr, "gl_texture_size_check: trying [%dx%d] !\n", (int)height, (int)width);
- }
- } else {
- err=0;
- }
- }
- if(!err)
- {
- *avail_width = width;
- *avail_height = height;
- }
- return err;
-}
-
-static int delete_shader_tool( GLhandleARB *program, GLhandleARB *vertex_shader, GLhandleARB *fragment_shader, int externalcall)
-{
- int res=0;
-
- GL_CHECK_ERROR_QUIET();
- if(program!=NULL && *program!=0)
- {
- pfn_glDeleteObjectARB(*program);
- if(externalcall)
- {
- res |= GL_SHADER_CHECK(*program, GL_OBJECT_DELETE_STATUS_ARB);
- }
- *program=0;
- }
- if(vertex_shader!=NULL && *vertex_shader!=0)
- {
- pfn_glDeleteObjectARB(*vertex_shader);
- if(externalcall)
- {
- res |= GL_SHADER_CHECK(*vertex_shader, GL_OBJECT_DELETE_STATUS_ARB);
- }
- *vertex_shader=0;
- }
- if(fragment_shader!=NULL && *fragment_shader!=0)
- {
- pfn_glDeleteObjectARB(*fragment_shader);
- if(externalcall)
- {
- res |= GL_SHADER_CHECK(*fragment_shader, GL_OBJECT_DELETE_STATUS_ARB);
- }
- *fragment_shader=0;
- }
-
- return res;
-}
-
-int gl_compile_shader_source( GLhandleARB *shader, GLenum type, const char * shader_source, int verbose )
-{
- int err = 0;
-
- if(shader==NULL || shader_source==NULL)
- {
- if(shader==NULL)
- osd_printf_warning("error: gl_compile_shader_source: NULL shader passed\n");
- if(shader_source==NULL)
- osd_printf_warning("error: gl_compile_shader_source: NULL shader source passed\n");
- return -1;
- }
- *shader = pfn_glCreateShaderObjectARB(type);
- err=GL_SHADER_CHECK(*shader, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
-
- pfn_glShaderSourceARB(*shader, 1, (const GLcharARB **)&shader_source, NULL);
-
- pfn_glCompileShaderARB(*shader);
- err=GL_SHADER_CHECK(*shader, GL_OBJECT_COMPILE_STATUS_ARB);
- if(err) goto errout;
-
- if(verbose)
- osd_printf_warning( "<%s>\n", shader_source);
-
- return 0;
-
-errout:
- if(*shader!=0)
- {
- pfn_glDeleteObjectARB(*shader);
- }
- osd_printf_warning("failed to process shader: <%s>\n", shader_source);
- return err;
-}
-
-int gl_compile_shader_file( GLhandleARB *shader, GLenum type, const char * shader_file, int verbose )
-{
- if(shader==NULL || shader_file==NULL)
- {
- if(shader==NULL)
- osd_printf_warning("error: gl_compile_shader_source: NULL shader passed\n");
- if(shader_file==NULL)
- osd_printf_warning("error: gl_compile_shader_source: NULL shader file passed\n");
- return -1;
- }
-
- FILE *const file = fopen(shader_file, "r");
- if(!file)
- {
- osd_printf_warning("cannot open shader_file: %s\n", shader_file);
- return -1;
- }
-
- // get the real file size
- fseek(file, 0, SEEK_END);
- int const buffer_len = (int)ftell(file);
- fseek(file, 0, SEEK_SET);
-
- GLcharARB *const buffer = (GLcharARB *)malloc(buffer_len + 1);
- memset(buffer, 0, buffer_len + 1);
-
- /* Load Shader Sources */
- for( int i = 0, c = 0; i<buffer_len && EOF!=(c=fgetc(file)); i++ )
- buffer[i]=(char)c;
- fclose(file);
-
- int const err=gl_compile_shader_source(shader, type, buffer, verbose);
- free(buffer);
- if(err) goto errout;
-
- if(verbose)
- osd_printf_warning("shader file: %s\n", shader_file);
-
- return 0;
-
-errout:
- osd_printf_warning("failed to process shader_file: %s\n", shader_file);
- return err;
-}
-
-
-int gl_compile_shader_files( GLhandleARB *program, GLhandleARB *vertex_shader, GLhandleARB *fragment_shader,
- const char * vertex_shader_file,
- const char * fragment_shader_file,
- int verbose
- )
-{
- int err;
-
- if (!program)
- {
- err=-1;
- osd_printf_warning("no program ptr passed\n");
- goto errout;
- }
- if (!vertex_shader)
- {
- err=-1;
- osd_printf_warning("no vertex_shader ptr passed\n");
- goto errout;
- }
- if (!fragment_shader)
- {
- err=-1;
- osd_printf_warning("no fragment_shader ptr passed\n");
- goto errout;
- }
-
- *program = pfn_glCreateProgramObjectARB();
- err=GL_SHADER_CHECK(*program, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
-
- if(!vertex_shader_file)
- {
- if (!(*vertex_shader))
- {
- err=-1;
- osd_printf_warning("no vertex_shader_file, nor vertex_shader id passed\n");
- goto errout;
- }
- err=GL_SHADER_CHECK(*vertex_shader, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
- } else {
- err = gl_compile_shader_file(vertex_shader, GL_VERTEX_SHADER_ARB, vertex_shader_file, verbose);
- if(err) return err;
- }
- pfn_glAttachObjectARB(*program, *vertex_shader);
-
- if(!fragment_shader_file)
- {
- if (!(*fragment_shader))
- {
- err=-1;
- osd_printf_warning("no fragment_shader_file, nor fragment_shader id passed\n");
- goto errout;
- }
- err=GL_SHADER_CHECK(*fragment_shader, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
- } else {
- err = gl_compile_shader_file(fragment_shader, GL_FRAGMENT_SHADER_ARB, fragment_shader_file, verbose);
- if(err) return err;
- }
- pfn_glAttachObjectARB(*program, *fragment_shader);
-
- pfn_glLinkProgramARB(*program);
- err=GL_SHADER_CHECK(*program, GL_OBJECT_LINK_STATUS_ARB);
- if(err) goto errout;
-
- pfn_glValidateProgramARB(*program);
- err=GL_SHADER_CHECK(*program, GL_OBJECT_VALIDATE_STATUS_ARB);
- if(err) goto errout;
-
- return 0;
-
-errout:
- delete_shader_tool(program, vertex_shader, fragment_shader, 0);
- return err;
-
-}
-
-int gl_compile_shader_sources( GLhandleARB *program, GLhandleARB *vertex_shader, GLhandleARB *fragment_shader,
- const GLcharARB * vertex_shader_source,
- const GLcharARB * fragment_shader_source
- )
-{
- int err = 0;
-
- if (!program)
- {
- err=-1;
- osd_printf_warning("no program ptr passed\n");
- goto errout;
- }
- if (!vertex_shader)
- {
- err=-1;
- osd_printf_warning("no vertex_shader ptr passed\n");
- goto errout;
- }
- if (!fragment_shader)
- {
- err=-1;
- osd_printf_warning("no fragment_shader ptr passed\n");
- goto errout;
- }
-
- *program = pfn_glCreateProgramObjectARB();
- err=GL_SHADER_CHECK(*program, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
-
- if(!vertex_shader_source)
- {
- if (!(*vertex_shader))
- {
- err=-1;
- osd_printf_warning("no vertex_shader_source nor a vertex_shader id passed\n");
- goto errout;
- }
- err=GL_SHADER_CHECK(*vertex_shader, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
- }
- if(!fragment_shader_source)
- {
- if (!(*fragment_shader))
- {
- err=-1;
- osd_printf_warning("no fragment_shader_source nor a fragment_shader id passed\n");
- goto errout;
- }
- err=GL_SHADER_CHECK(*fragment_shader, GL_OBJECT_TYPE_ARB);
- if(err) goto errout;
- }
-
- if(vertex_shader_source)
- {
- err=gl_compile_shader_source(vertex_shader, GL_VERTEX_SHADER_ARB, vertex_shader_source, 0);
- if(err) goto errout;
- }
- pfn_glAttachObjectARB(*program, *vertex_shader);
-
- if(fragment_shader_source)
- {
- err=gl_compile_shader_source(fragment_shader, GL_FRAGMENT_SHADER_ARB, fragment_shader_source, 0);
- if(err) goto errout;
- }
- pfn_glAttachObjectARB(*program, *fragment_shader);
-
- pfn_glLinkProgramARB(*program);
- err=GL_SHADER_CHECK(*program, GL_OBJECT_LINK_STATUS_ARB);
- if(err) {
- osd_printf_warning("failed to link program\n");
- osd_printf_warning("vertex shader: <%s>\n", vertex_shader_source);
- osd_printf_warning("fragment shader: <%s>\n", fragment_shader_source);
- goto errout;
- }
-
- pfn_glValidateProgramARB(*program);
- err=GL_SHADER_CHECK(*program, GL_OBJECT_VALIDATE_STATUS_ARB);
- if(err) {
- osd_printf_warning("failed to validate program\n");
- osd_printf_warning("vertex shader: <%s>\n", vertex_shader_source);
- osd_printf_warning("fragment shader: <%s>\n", fragment_shader_source);
- goto errout;
- }
-
- return 0;
-
-errout:
- delete_shader_tool(program, vertex_shader, fragment_shader, 0);
- return err;
-
-}
-
-
-int gl_delete_shader( GLhandleARB *program, GLhandleARB *vertex_shader, GLhandleARB *fragment_shader )
-{
- return delete_shader_tool(program, vertex_shader, fragment_shader, 1);
-}