Return to mkproto.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync

Annotation of embedaddon/rsync/mkproto.pl, revision 1.1.1.1

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