opengl32: Automatically download the GL spec files in make_opengl. Add a default value for the OpenGL version.
This commit is contained in:
parent
fdd1bdf7c8
commit
cb0113ec53
|
@ -3,14 +3,18 @@ use strict;
|
|||
|
||||
# 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.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
|
||||
# find them in the sample implementation CVS tree which is located at
|
||||
# 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/
|
||||
#
|
||||
# - 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 :
|
||||
#
|
||||
|
@ -283,13 +287,12 @@ sub GenerateThunk($$$$$)
|
|||
#
|
||||
# Extract and checks the number of arguments
|
||||
#
|
||||
if (@ARGV != 2) {
|
||||
if (@ARGV > 1) {
|
||||
my $name0=$0;
|
||||
$name0=~s%^.*/%%;
|
||||
die "Usage: $name0 OpenGL_registry_location OpenGL_version\n";
|
||||
die "Usage: $name0 [version]\n";
|
||||
}
|
||||
my $registry_path = shift @ARGV;
|
||||
my $version = shift @ARGV;
|
||||
my $version = $ARGV[0] || "1.2";
|
||||
if ($version eq "1.0") {
|
||||
%norm_categories = %cat_1_0;
|
||||
} elsif ($version eq "1.1") {
|
||||
|
@ -306,11 +309,17 @@ if ($version eq "1.0") {
|
|||
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(TYPES, "$registry_path/gl.tm") || die "Could not open 'gl.tm'. Please check your path in the registry files.\n";
|
||||
open(REGISTRY, "$registry_path/gl.spec") || die "Could not open 'gl.spec'. Please check your path in the registry files.\n";
|
||||
open(TYPES, "gl.tm") || die "Could not open gl.tm";
|
||||
open(REGISTRY, "gl.spec") || die "Could not open gl.spec";
|
||||
|
||||
#
|
||||
# First, create a mapping between the pseudo types used in the spec file
|
||||
|
|
Loading…
Reference in New Issue