view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
die_nocontext|||vn
die_sv||5.013001|
die_unwind|||
die|||v
dirp_dup|||
div128|||
djSP|||
do_aexec5|||
do_aexec|||
do_aspawn|||
do_binmode||5.004050|
do_chomp|||
do_close|||
do_delete_local|||
do_dump_pad|||
do_eof|||
do_exec3|||
do_execfree|||
do_exec|||
do_gv_dump||5.006000|
do_gvgv_dump||5.006000|

utils/exports.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $file = 'opengl32.txt';
die "Unable to read '$file'" if (!open(FILE,$file));
 
my $exports = 'exports.txt';
die "Unable to write '$exports'" if (!open(EXPORTS,">$exports"));
binmode EXPORTS;
 
foreach my $line (<FILE>)
{
  next if ($line !~ m|\s+\d+\s+[0-9A-F]+\s+[0-9A-F]+ (gl[\w]+)|);
  print EXPORTS "$1\n";
}
close(EXPORTS);
close(FILE);

utils/glext_procs.pl  view on Meta::CPAN

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
$|++;
my $file = '../include/GL/glext.h';
die "Unable to read '$file'" if (!open(FILE,$file));
 
my $exts = '../glext_procs.h';
die "Unable to write to '$exts'" if (!open(EXTS,">$exts"));
binmode EXTS;
 
my $exts = '../glext_consts.h';
die "Unable to write to '$exts'" if (!open(CNST,">$exts"));
binmode CNST;
 
my $exts = '../glext_types.h';
die "Unable to write to '$exts'" if (!open(TYPE,">$exts"));
binmode TYPE;
 
my $exps = 'exports.txt';
die "Unable to read '$exps'" if (!open(EXPS,$exps));
my $exports = {};
foreach my $line (<EXPS>)
{
  $line =~ s|[\r\n]+||g;
  next if (!$line);
  $exports->{$line}++;
}