Zengtudor/glew
1
0
Fork 0
mirror of https://github.com/nigels-com/glew.git synced 2024-11-11 16:53:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix registry parsing

Browse Source 
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 %extensions = ();
my $ext_dir = shift; 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 # Take command line arguments or read list from file
if (@ARGV) if (@ARGV)
@ -286,7 +287,9 @@ foreach my $spec (sort @speclist)
my $info = "$ext_dir/" . $ext; my $info = "$ext_dir/" . $ext;
open EXT, ">$info"; open EXT, ">$info";
print EXT $ext . "\n"; 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; my $prefix = $ext;
$prefix =~ s/^(.+?)(_.+)$/$1/; $prefix =~ s/^(.+?)(_.+)$/$1/;