oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

fixup

Browse Source
This commit is contained in:
Love Hornquist Astrand
2013-05-07 13:25:07 -07:00
parent ed6c3921e6
commit c98d31d186
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
cf/make-proto.pl
View File

@@ -15,11 +15,11 @@ my $line = "";
my $debug = 0; my $debug = 0;
my $oproto = 1; my $oproto = 1;
my $private_func_re = "^_"; my $private_func_re = "^_";
my %depfunction = (); my %depfunction;
my %exported = {}; my %exported;
my %deprecated = {}; my %deprecated;
my $apple = 0; my $apple = 0;
my %documentation = {}; my %documentation;
getopts('x:m:o:p:dqE:R:P:') || die "foo"; getopts('x:m:o:p:dqE:R:P:') || die "foo";
if($opt_a) { if($opt_a) {
@@ -296,6 +296,10 @@ if($oproto) {
} }
$private_h_trailer = ""; $private_h_trailer = "";
foreach(sort keys %exported){
printf(" exported $_\n");
}
foreach(sort keys %funcs){ foreach(sort keys %funcs){
if(/^(main)$/) { next } if(/^(main)$/) { next }
if ($funcs{$_} =~ /\^/) { if ($funcs{$_} =~ /\^/) {
@@ -305,7 +309,8 @@ foreach(sort keys %funcs){
$beginblock = $endblock = ""; $beginblock = $endblock = "";
} }
# if we have an export table and doesn't have content, or matches private RE # if we have an export table and doesn't have content, or matches private RE
if(($#exported ne 0 && !exists $exported{$_} ) || /$private_func_re/) { print "exported $_ " . scalar(keys(%exported)) . " " . keys(%exported) . "\n";
if((scalar(keys(%exported)) ne 0 && !exists $exported{$_} ) || /$private_func_re/) {
$private_h .= $beginblock; $private_h .= $beginblock;
$private_h .= $funcs{$_} . "\n" ; $private_h .= $funcs{$_} . "\n" ;
$private_h .= $endblock . "\n"; $private_h .= $endblock . "\n";