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 10use strict; 11use warnings; 12 13do 'bin/make.pl'; 14 15# function pointer declaration 16sub make_pfn_decl($%) 17{ 18 return "PFN" . (uc $_[0]) . "PROC " . prefixname($_[0]) . " = NULL;"; 19} 20 21my @extlist = (); 22my %extensions = (); 23 24our $type = shift; 25 26if (@ARGV) 27{ 28 @extlist = @ARGV; 29 30 foreach my $ext (sort @extlist) 31 { 32 my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext); 33 output_decls($functions, \&make_pfn_decl); 34 } 35} 36