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

*** empty log message ***

Browse Source 
git-svn-id: https://glew.svn.sourceforge.net/svnroot/glew/trunk/glew@108 783a27ee-832a-0410-bc00-9f386506c6dd
This commit is contained in:
ikits 2003-07-16 07:49:57 +00:00
parent 1fd66bdf78
commit 397ac3fd63
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
auto/bin/parse_spec.pl
View File

@ -176,15 +176,15 @@ sub parse_spec($)
# add line to function list # add line to function list
push @fnc, $_; push @fnc, $_;
my $f = normalize_prototype(@fnc); # my $f = normalize_prototype(@fnc);
print STDERR "$f\n"; # print STDERR "$f\n";
# if normalized version of function looks like a function # if normalized version of function looks like a function
if (normalize_prototype(@fnc) =~ /$regex{function}/) if (normalize_prototype(@fnc) =~ /$regex{function}/)
{ {
# get return type, name, and arguments, add them to functions hash # get return type, name, and arguments, add them to functions hash
my ($return, $name, $parms) = ($1, $2, $3); my ($return, $name, $parms) = ($1, $2, $3);
print STDERR "$1 | $2 | $3\n"; # print STDERR "$1 | $2 | $3\n";
if (!ignore_function($name, $extname)) if (!ignore_function($name, $extname))
{ {
$name =~ s/^/gl/ unless $name =~ /$regex{prefix}/; $name =~ s/^/gl/ unless $name =~ /$regex{prefix}/;