mirror/rsync
1
0
Fork 0
mirror of https://github.com/RsyncProject/rsync.git synced 2026-05-19 20:35:50 -04:00
Code Issues Packages Projects Releases Wiki Activity

Simplified script even more for HP-UX.

Browse Source
This commit is contained in:
Wayne Davison
2007-11-09 19:14:51 +00:00
parent ab96610986
commit 4da09a65f8
1 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
mkproto.pl
View File

@@ -1,21 +1,20 @@
# generate prototypes for rsync
use strict;
my $old_protos = '';
$old_protos = '';
if (open(IN, 'proto.h')) {
$old_protos = join('', <IN>);
close IN;
}
my %FN_MAP = (
%FN_MAP = (
BOOL => 'BOOL ',
CHAR => 'char ',
INTEGER => 'int ',
STRING => 'char *',
);
my $inheader = 0;
my $protos = qq|/* This file is automatically generated with "make proto". DO NOT EDIT */\n\n|;
$inheader = 0;
$protos = qq|/* This file is automatically generated with "make proto". DO NOT EDIT */\n\n|;
while (<>) {
if ($inheader) {
@@ -24,16 +23,12 @@ while (<>) {
s/$/;/;
}
$protos .= $_;
}
if (/^FN_(LOCAL|GLOBAL)_([^(]+)\(([^,()]+)/) {
my $ret = $FN_MAP{$2};
my $func = $3;
my $arg = $1 eq 'LOCAL' ? 'int ' : 'void';
} elsif (/^FN_(LOCAL|GLOBAL)_([^(]+)\(([^,()]+)/) {
$ret = $FN_MAP{$2};
$func = $3;
$arg = $1 eq 'LOCAL' ? 'int ' : 'void';
$protos .= "$ret$func($arg);\n";
} elsif (/^static|^extern/ || /[;]/) {
;
} elsif (!/^[A-Za-z][A-Za-z0-9_]* /) {
} elsif (/^static|^extern/ || /[;]/ || !/^[A-Za-z][A-Za-z0-9_]* /) {
;
} elsif (/[(].*[)][ \t]*$/) {
s/$/;/;