/**

  * $Id$

  *

  * GL-based support functions 

  *

  * Copyright (c) 2005 Nathan Keynes.

  *

  * This program is free software; you can redistribute it and/or modify

  * it under the terms of the GNU General Public License as published by

  * the Free Software Foundation; either version 2 of the License, or

  * (at your option) any later version.

  *

  * This program is distributed in the hope that it will be useful,

  * but WITHOUT ANY WARRANTY; without even the implied warranty of

  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

  * GNU General Public License for more details.

  */

 #include <string.h>

 #include <stdlib.h>

 #include <glib/gstrfuncs.h>

 #include "pvr2/glutil.h"

 gboolean isGLSecondaryColorSupported()

 {

     return isGLExtensionSupported("GL_EXT_secondary_color");

 }

 gboolean isGLVertexBufferSupported()

 {

     return isGLExtensionSupported("GL_ARB_vertex_buffer_object");

 }

 gboolean isGLPixelBufferSupported()

 {

     return isGLExtensionSupported("GL_ARB_pixel_buffer_object");

 }

 gboolean isGLMirroredTextureSupported()

 {

     return isGLExtensionSupported("GL_ARB_texture_mirrored_repeat");

 }

 /**

  * Check if there's at least 2 texture units

  */

 gboolean isGLMultitextureSupported()

 {

     if( !isGLExtensionSupported("GL_ARB_multitexture") )

         return FALSE;

     int units = 0;

 #if defined(GL_MAX_TEXTURE_UNITS)

         glGetIntegerv(GL_MAX_TEXTURE_UNITS, &units);

 #elif defined(GL_MAX_TEXTURE_IMAGE_UNITS)

         glGetIntegerv(GL_MAX_TEXTURE_IMAGE_UNITS, &units);

 #endif

     return units >= 2;

 }

 gboolean isGLVertexRangeSupported()

 {

     return isGLExtensionSupported("GL_APPLE_vertex_array_range") ||

             isGLExtensionSupported("GL_NV_vertex_array_range");

 }

 /**

  * Test if a specific extension is supported. From opengl.org

  * @param extension extension name to check for

  * @return TRUE if supported, otherwise FALSE.

  */

 gboolean isGLExtensionSupported( const char *extension )

 {

     const GLubyte *extensions = NULL;

     const GLubyte *start;

     GLubyte *where, *terminator;

     /* Extension names should not have spaces. */

     where = (GLubyte *) strchr(extension, ' ');

     if (where || *extension == '\0')

         return 0;

     extensions = glGetString(GL_EXTENSIONS);

     if( extensions == NULL ) {

         /* No GL available, so we're pretty sure the extension isn't

          * available either. */

         return FALSE;

     }

     /* It takes a bit of care to be fool-proof about parsing the

        OpenGL extensions string. Don't be fooled by sub-strings,

        etc. */

     start = extensions;

     for (;;) {

         where = (GLubyte *) strstr((const char *) start, extension);

         if (!where)

             break;

         terminator = where + strlen(extension);

         if (where == start || *(where - 1) == ' ')

             if (*terminator == ' ' || *terminator == '\0')

                 return TRUE;

         start = terminator;

     }

     return FALSE;

 }

 int compare_charp( const void *a, const void *b )

 {

     const char **ca = (const char **)a;

     const char **cb = (const char **)b;

     return strcmp(*ca, *cb);

 }

 #define DEFAULT_TERMINAL_COLUMNS 80

 #define DEFAULT_COLUMN_WIDTH 34

 /**

  * Format a GL extension list (or other space-separated string) nicely, and

  * print to the given output stream.

  */

 void fprint_extensions( FILE *out, const char *extensions )

 {

     unsigned int i, j, count, maxlen = DEFAULT_COLUMN_WIDTH, columns, per_column, terminal_columns;

     const char *terminal_columns_str = getenv("COLUMNS");

     if( terminal_columns_str == NULL || (terminal_columns = strtol(terminal_columns_str,0,10)) == 0 )

         terminal_columns = DEFAULT_TERMINAL_COLUMNS;

     if( extensions == NULL || extensions[0] == '\0' )

         return;

     gchar *ext_dup = g_strdup(extensions);

     gchar **ext_split = g_strsplit(g_strstrip(extensions), " ", 0);

     for( count = 0; ext_split[count] != NULL; count++ ) {

         unsigned len = strlen(ext_split[count]);

         if( len > maxlen )

             maxlen = len;

     }

     columns = terminal_columns / (maxlen+2);

     if( columns == 0 )

         columns = 1;

     per_column = (count+columns-1) / columns;

     qsort(ext_split, count, sizeof(gchar *), compare_charp);

     for( i=0; i<per_column; i++ ) {

         for( j=0; j<columns; j++ ) {

             unsigned idx = i + (j*per_column);

             if( idx < count )

                 fprintf( out, "  %-*s", maxlen, ext_split[idx] );

         }

         fprintf( out, "\n" );

     }

     g_strfreev(ext_split);

     g_free(ext_dup);

 }

 void glPrintInfo( FILE *out )

 {

     fprintf( out, "GL Vendor: %s\n", glGetString(GL_VENDOR) );

     fprintf( out, "GL Renderer: %s\n", glGetString(GL_RENDERER) );

     fprintf( out, "GL Version: %s\n", glGetString(GL_VERSION) );

     if( glsl_is_supported() ) {

          const char * version = glsl_get_version();

          fprintf( out, "SL Version: %s\n", version );

     }

     fprintf( out, "GL Extensions:\n" );

     fprint_extensions( out, (const gchar *)glGetString(GL_EXTENSIONS) );

     if( display_driver && display_driver->print_info ) {

         fprintf( out, "\n");

         display_driver->print_info(out);

     }

 }

 gboolean gl_check_error(const char *context)

 {

     GLint err = glGetError();

     if( err != 0 ) {

         const char *s;

         switch( err ) {

         case GL_INVALID_ENUM: s = "Invalid enum"; break;

         case GL_INVALID_VALUE: s = "Invalid value"; break;

         case GL_INVALID_OPERATION: s = "Invalid operation"; break;

 #ifdef GL_STACK_OVERFLOW

         case GL_STACK_OVERFLOW: s = "Stack overflow"; break;

 #endif

 #ifdef GL_STACK_UNDERFLOW

         case GL_STACK_UNDERFLOW: s = "Stack underflow"; break;

 #endif

         case GL_OUT_OF_MEMORY:   s = "Out of memory"; break;

         default: s = "Unknown error"; break;

         }

         if( context ) {

             WARN( "%s: GL error: %x (%s)\n", context, err, s );

         } else {

             WARN( "GL error: %x (%s)\n", err, s );

         }

         return FALSE;

     }

     return TRUE;

 }