ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

opengl32: Automatically download the GL spec files in make_opengl. Add a default value for the OpenGL version.

This commit is contained in:
Alexandre Julliard 2009-01-08 12:29:39 +01:00
parent fdd1bdf7c8
commit cb0113ec53
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
dlls/opengl32/make_opengl
View File

@ -3,14 +3,18 @@ use strict;
# This script is called thus : # This script is called thus :
# #
# make_opengl path_to_spec_file opengl_version # make_opengl [opengl_version]
#
# - It needs the gl.spec and gl.tm files in the current directory.
# These files are hosted in the OpenGL extension registry at
# opengl.org:
# #
# - path_to_spec_file is the path to the directory where the OpenGL
# spec files are located. These files are hosted in the OpenGL
# extension registry at opengl.org:
# http://www.opengl.org/registry/api/gl.spec # http://www.opengl.org/registry/api/gl.spec
# http://www.opengl.org/registry/api/gl.tm # http://www.opengl.org/registry/api/gl.tm
# #
# If they are not found in the current directory the script will
# attempt to download them from there.
#
# The files used to be hosted and maintained by SGI. You can still find # 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 # find them in the sample implementation CVS tree which is located at
# CVS_ROOT/projects/ogl-sample/main/doc/registry/specs. # CVS_ROOT/projects/ogl-sample/main/doc/registry/specs.
@ -18,7 +22,7 @@ use strict;
# http://oss.sgi.com/cgi-bin/cvsweb.cgi/projects/ogl-sample/main/doc/registry/specs/ # 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). # (can be 1.0 to 1.5). The default is 1.2.
# #
# This script generates the three following files : # This script generates the three following files :
# #
@ -283,13 +287,12 @@ sub GenerateThunk($$$$$)
# #
# Extract and checks the number of arguments # Extract and checks the number of arguments
# #
if (@ARGV != 2) { if (@ARGV > 1) {
my $name0=$0; my $name0=$0;
$name0=~s%^.*/%%; $name0=~s%^.*/%%;
die "Usage: $name0 OpenGL_registry_location OpenGL_version\n"; die "Usage: $name0 [version]\n";
} }
my $registry_path = shift @ARGV; my $version = $ARGV[0] || "1.2";
my $version = shift @ARGV;
if ($version eq "1.0") { if ($version eq "1.0") {
%norm_categories = %cat_1_0; %norm_categories = %cat_1_0;
} elsif ($version eq "1.1") { } elsif ($version eq "1.1") {
@ -306,11 +309,17 @@ if ($version eq "1.0") {
die "Incorrect OpenGL version.\n"; die "Incorrect OpenGL version.\n";
} }
#
# Fetch the registry files
#
-f "gl.spec" || system "wget http://www.opengl.org/registry/api/gl.spec" || die "cannot download gl.spec";
-f "gl.tm" || system "wget http://www.opengl.org/registry/api/gl.tm" || die "cannot download gl.tm";
# #
# Open the registry files # Open the registry files
# #
open(TYPES, "$registry_path/gl.tm") || die "Could not open 'gl.tm'. Please check your path in the registry files.\n"; open(TYPES, "gl.tm") || die "Could not open gl.tm";
open(REGISTRY, "$registry_path/gl.spec") || die "Could not open 'gl.spec'. Please check your path in the registry files.\n"; open(REGISTRY, "gl.spec") || die "Could not open gl.spec";
# #
# First, create a mapping between the pseudo types used in the spec file # First, create a mapping between the pseudo types used in the spec file