Zengtudor
/
glew
mirror of https://github.com/nigels-com/glew.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix registry parsing 

git-svn-id: https://glew.svn.sourceforge.net/svnroot/glew/trunk/glew@515 783a27ee-832a-0410-bc00-9f386506c6dd
This commit is contained in:
ikits 2007-12-27 19:09:10 +00:00
parent 52d585fcba
commit 42fc0825c2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
auto/bin/parse_spec.pl
View File

@ -266,7 +266,8 @@ my @speclist = ();
my %extensions = ();
my $ext_dir = shift;
my $reg_http = "http://oss.sgi.com/projects/ogl-sample/";
my $reg_http = "http://www.opengl.org/registry/specs/";
#my $reg_http = "http://oss.sgi.com/projects/ogl-sample/";
# Take command line arguments or read list from file
if (@ARGV)
@ -286,7 +287,9 @@ foreach my $spec (sort @speclist)
my $info = "$ext_dir/" . $ext;
open EXT, ">$info";
print EXT $ext . "\n";
print EXT $reg_http . $spec . "\n";
my $specname = $spec;
$specname =~ s/registry\///;
print EXT $reg_http . $specname . "\n";
my $prefix = $ext;
$prefix =~ s/^(.+?)(_.+)$/$1/;