1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -611,9 +611,7 @@ my $build_config =
FILES =>
"Config.pm ".
"gl_exclude.h ".
- "utils/glversion.txt ".
- "utils/glversion$Config{exe_ext} ".
- "utils/glversion$Config{obj_ext}"
+ "utils/glversion.txt "
}
};
@@ -834,65 +832,6 @@ sub get_extensions
print "GLUT not found\n";
}
- # Platform-specific makefiles for glversion
- my $make_ver;
- if ($IS_STRAWBERRY)
- {
- $make_ver = "&strawberry.bat";
- print "strawberry glversion: '$make_ver'\n" if $verbose>1;
- }
- elsif ($IS_MINGW)
- {
- $make_ver = "&mingw.bat";
- print "mingw glversion: '$make_ver'\n" if $verbose>1;
- }
- elsif ($IS_W32API)
- {
- $make_ver = ";make -f Makefile.cygwin " . (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
- print "cygwin glversion: '$make_ver'\n" if $verbose>1;
- }
- elsif ($^O eq 'MSWin32')
- {
- $make_ver = '&nmake -f makefile.mak ' . (length($def) ? "GLUT_DEF=$def " : "");
- print "MSWin32 glversion: '$make_ver'\n" if $verbose>1;
- }
- elsif ($^O eq 'darwin')
- {
- $make_ver = ";make -f Makefile.macosx " . (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
- print "MacOSX glversion: '$make_ver'\n" if $verbose>1;
- }
- else
- {
- if ($ENV{TERM} ne 'xterm')
- {
- print "\nIn order to test your GPU's capabilities, run this make under an X11 shell\n\n";
- }
-
- $make_ver = ";make -f Makefile " . (length($lib) ? "GLUT_LIB=$lib " : "") . (length($def) ? "GLUT_DEF=$def " : "");
- print "glversion: '$make_ver'\n" if $verbose>1;
- }
- my $exec = 'cd utils'."$make_ver clean".$make_ver;
- print "glversion: $exec\n" if ($verbose);
- my $stat = `$exec`;
- print "\n$stat\n\n" if ($verbose);
- unlink "utils/freeglut.dll" or die "could not remove temporary freeglut: $!" if -f "utils/freeglut.dll";
-
- # Parse glversion.txt file
- open GLDATA, $glv_file or die "get_extensions: could not open $glv_file: $!\n";
- my $gldata = {};
- my @gldata = <GLDATA>;
- close(GLDATA);
-
- foreach my $line (@gldata)
- {
- $line =~ s|[\r\n]+||;
- my($key,$val) = split('=',$line);
- $gldata->{$key} = $val;
- }
- die "get_extensions: no extensions found in $glv_file\n" if !keys %$gldata;
-
- print "This looks like OpenGL Version: $gldata->{VERSION}\n";
-
# Parse glext_procs.h file
open GLEXT, "glext_procs.h" or die "get_extensions: could not open glext_procs.h: $!\n";
my @lines = <GLEXT>;
@@ -907,13 +846,11 @@ sub get_extensions
$no_ext->{$ext}++;
}
+ use Config;
+ my $gldata = { };
# Create gl_exclude.h
die "Unable to write to $exc_file\n" if (!open(GLEXC,">$exc_file"));
- print GLEXC "// OpenGL Extension Exclusions - may be modified before building.\n";
- print GLEXC "//\n";
- print GLEXC "// Generated for ".$gldata->{VENDOR}.", ".$gldata->{RENDERER}."\n";
- print GLEXC "// OpenGL v".$gldata->{VERSION}.", using ";
# Fix GLUT flags based on results
if ($gldata->{FREEGLUT})
|
