← Back to branch summary

~ubuntu-branches/ubuntu/trusty/glew/trusty

« back to all changes in this revision

Viewing changes to auto/bin/make_struct_fun.pl

  • Committer: Bazaar Package Importer
  • Author(s): Joost Yervante Damad
  • Date: 2009-05-11 17:48:06 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090511174806-hpbwcimkr4ir0mfl
Tags: 1.5.1-4
http://bugs.debian.org/528232
make sure mx library really is MX (closes: #528232)

Show diffs side-by-side

added added

removed removed

Lines of Context:
auto/bin/make_struct_fun.pl
1
 
#!/usr/bin/perl
2
 
##
3
 
## Copyright (C) 2002-2008, Marcelo E. Magallon <mmagallo[]debian org>
4
 
## Copyright (C) 2002-2008, Milan Ikits <milan ikits[]ieee org>
5
 
##
6
 
## This program is distributed under the terms and conditions of the GNU
7
 
## General Public License Version 2 as published by the Free Software
8
 
## Foundation or, at your option, any later version.
9
 
 
10
 
use strict;
11
 
use warnings;
12
 
 
13
 
do 'bin/make.pl';
14
 
 
15
 
# function pointer declaration
16
 
sub make_pfn_decl($%)
17
 
{
18
 
    our $export;
19
 
    return $export . " PFN" . (uc $_[0]) . "PROC " . prefixname($_[0]) . ";";
20
 
}
21
 
 
22
 
my @extlist = ();
23
 
my %extensions = ();
24
 
 
25
 
our $export = shift;
26
 
 
27
 
if (@ARGV)
28
 
{
29
 
    @extlist = @ARGV;
30
 
 
31
 
        foreach my $ext (sort @extlist)
32
 
        {
33
 
                my ($extname, $exturl, $types, $tokens, $functions, $exacts) = parse_ext($ext);
34
 
                output_decls($functions, \&make_pfn_decl);
35
 
        }
36
 
}
 
1
#!/usr/bin/perl
 
2
##
 
3
## Copyright (C) 2002-2008, Marcelo E. Magallon <mmagallo[]debian org>
 
4
## Copyright (C) 2002-2008, Milan Ikits <milan ikits[]ieee org>
 
5
##
 
6
## This program is distributed under the terms and conditions of the GNU
 
7
## General Public License Version 2 as published by the Free Software
 
8
## Foundation or, at your option, any later version.
 
9
 
 
10
use strict;
 
11
use warnings;
 
12
 
 
13
do 'bin/make.pl';
 
14
 
 
15
# function pointer declaration
 
16
sub make_pfn_decl($%)
 
17
{
 
18
    our $export;
 
19
    return $export . " PFN" . (uc $_[0]) . "PROC " . prefixname($_[0]) . ";";
 
20
}
 
21
 
 
22
my @extlist = ();
 
23
my %extensions = ();
 
24
 
 
25
our $export = shift;
 
26
 
 
27
if (@ARGV)
 
28
{
 
29
    @extlist = @ARGV;
 
30
 
 
31
        foreach my $ext (sort @extlist)
 
32
        {
 
33
                my ($extname, $exturl, $types, $tokens, $functions, $exacts) = parse_ext($ext);
 
34
                output_decls($functions, \&make_pfn_decl);
 
35
        }
 
36
}