mkproto.pl

   1 # generate prototypes for rsync
   2 use strict;
   3
   4 my $old_protos = '';
   5 if (open(IN, 'proto.h')) {
   6     $old_protos = join('', <IN>);
   7     close IN;
   8 }
   9
  10 my %FN_MAP = (
  11     BOOL => 'BOOL ',
  12     CHAR => 'char ',
  13     INTEGER => 'int ',
  14     STRING => 'char *',
  15 );
  16
  17 my $inheader = 0;
  18 my $protos = qq|/* This file is automatically generated with "make proto". DO NOT EDIT */\n\n|;
  19
  20 while (<>) {
  21     if ($inheader) {
  22         if (/[)][ \t]*$/) {
  23             $inheader = 0;
  24             s/$/;/;
  25         }
  26         $protos .= $_;
  27     }
  28
  29     if (/^FN_(LOCAL|GLOBAL)_([^(]+)\(([^,()]+)/) {
  30         my $ret = $FN_MAP{$2};
  31         my $func = $3;
  32         my $arg = $1 eq 'LOCAL' ? 'int ' : 'void';
  33         $protos .= "$ret$func($arg);\n";
  34     } elsif (/^static|^extern/ || /[;]/) {
  35         ;
  36     } elsif (!/^[A-Za-z][A-Za-z0-9_]* /) {
  37         ;
  38     } elsif (/[(].*[)][ \t]*$/) {
  39         s/$/;/;
  40         $protos .= $_;
  41     } elsif (/[(]/) {
  42         $inheader = 1;
  43         $protos .= $_;
  44     }
  45 }
  46
  47 if ($old_protos ne $protos) {
  48     open(OUT, '>proto.h') or die $!;
  49     print OUT $protos;
  50     close OUT;
  51 }