opengl32: Generate a header file containing function tables for all OpenGL functions.

This commit is contained in:
Alexandre Julliard 2012-07-16 23:21:53 +02:00
parent f09a40a215
commit bddea5b5f5
2 changed files with 2834 additions and 6 deletions

View File

@ -15,12 +15,6 @@ use strict;
# If they are not found in the current directory the script will # If they are not found in the current directory the script will
# attempt to download them from there. # attempt to download them from there.
# #
# The files used to be hosted and maintained by SGI. You can still find
# find them in the sample implementation CVS tree which is located at
# CVS_ROOT/projects/ogl-sample/main/doc/registry/specs.
# You can also find them on the web at the following URL :
# http://oss.sgi.com/cgi-bin/cvsweb.cgi/projects/ogl-sample/main/doc/registry/specs/
#
# - opengl_version is the OpenGL version emulated by the library # - opengl_version is the OpenGL version emulated by the library
# (can be 1.0 to 1.5). The default is 1.1. # (can be 1.0 to 1.5). The default is 1.1.
# #
@ -44,7 +38,11 @@ use strict;
# OpenGL work (as they are resolved at run-time using # OpenGL work (as they are resolved at run-time using
# glXGetProcAddressARB). # glXGetProcAddressARB).
# #
# - include/wine/wgl_driver.h: definitions for the tables of OpenGL functions.
#
#
# Copyright 2000 Lionel Ulmer # Copyright 2000 Lionel Ulmer
# Copyright 2012 Alexandre Julliard
# #
# This library is free software; you can redistribute it and/or # This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public # modify it under the terms of the GNU Lesser General Public
@ -321,6 +319,21 @@ sub GenerateThunk($$$$$)
return $ret; return $ret;
} }
sub get_func_proto($)
{
my $func = shift;
my $ret = sprintf "%-10s", ConvertType($func->[1]);
$ret .= " (WINE_GLAPI *p_$func->[0])(";
for (my $i = 0; $i < @{$func->[2]}; $i++)
{
$ret .= ConvertType($func->[2]->[$i]->[0]);
$ret .= "," if ($i+1 < @{$func->[2]});
}
$ret .= "void" unless @{$func->[2]};
$ret .= ")";
return $ret;
}
# #
# Extract and checks the number of arguments # Extract and checks the number of arguments
# #
@ -645,6 +658,60 @@ while (my $line = <REGISTRY>) {
close(TYPES); close(TYPES);
close(REGISTRY); close(REGISTRY);
#
# Get the current wgl_driver.h version
#
my $wgl_version = 0;
open HEADER, "<../../include/wine/wgl_driver.h" or die "cannot open wgl_driver.h";
while (<HEADER>)
{
next unless /^#define WINE_WGL_DRIVER_VERSION (\d+)/;
$wgl_version = $1;
last;
}
close HEADER;
#
# Generate the wgl_driver.h file
#
open HEADER, ">../../include/wine/wgl_driver.h" or die "cannot create wgl_driver.h";
print HEADER "/* Automatically generated from http://www.opengl.org/registry/api files; DO NOT EDIT! */\n\n";
print HEADER "#ifndef __WINE_WGL_DRIVER_H\n";
print HEADER "#define __WINE_WGL_DRIVER_H\n\n";
print HEADER "#ifndef WINE_GLAPI\n";
print HEADER "#define WINE_GLAPI\n";
print HEADER "#endif\n\n";
printf HEADER "#define WINE_WGL_DRIVER_VERSION %u\n\n", $wgl_version + 1;
print HEADER "struct opengl_funcs\n{\n";
print HEADER " struct\n {\n";
foreach (sort keys %norm_functions)
{
next if $_ eq "glDebugEntry";
printf HEADER " %s;\n", get_func_proto($norm_functions{$_});
}
print HEADER " } gl;\n\n";
print HEADER " struct\n {\n";
foreach (sort keys %ext_functions)
{
printf HEADER " %s;\n", get_func_proto($ext_functions{$_});
}
print HEADER " } ext;\n";
print HEADER "};\n\n";
print HEADER "#define ALL_WGL_FUNCS";
foreach (sort keys %norm_functions)
{
next if $_ eq "glDebugEntry";
printf HEADER " \\\n USE_GL_FUNC(\%s)", $_;
}
print HEADER "\n\n";
print HEADER "#endif /* __WINE_WGL_DRIVER_H */\n";
close HEADER;
# #
# Now, generate the output files. First, the spec file. # Now, generate the output files. First, the spec file.
# #

2761
include/wine/wgl_driver.h Normal file

File diff suppressed because it is too large Load Diff