tools/cxref/contrib/knr2ansi.pl

   1 #!/bin/sh
   2
   3 exec perl -x $0 $*
   4
   5 #!perl
   6
   7 die "Usage: $0 <filename>\n" if($#ARGV==-1);
   8
   9 foreach $argv (@ARGV)
  10   {
  11    push(@files,$argv) if(-f $argv);
  12    push(@args,$argv) if(! -f $argv);
  13   }
  14
  15 $args=join(" ",@args);
  16
  17 foreach $file (@files)
  18   {
  19    open(CXREF,"cxref $args $file -raw |") || die "Cannot run cxref on $file\n";
  20
  21    $function=0;
  22    $comment=0;
  23    $functype="";
  24    $funcname="";
  25    @funcargs=();
  26
  27    @local=();
  28    @global=();
  29
  30    while(<CXREF>)
  31        {
  32         if(m/^FUNCTION : ([a-z0-9A-Z_\$]+) \[([a-zA-Z]+)\]$/)
  33             {
  34              $function=1;
  35              $functype="static " if($2 eq "Local");
  36              $funcname=$1;
  37             }
  38         $comment=1 if($function && m/^<<<$/);
  39         $comment=0 if($function && m/^>>>$/);
  40
  41         $functype.=substr($1,0,length($1)-length($funcname)-1) if($function && m/^Type: ([^<]+)( <|\n)/);
  42         push(@funcargs,$1) if($function && m/^Arguments: ([^<]+)( <|\n)/);
  43
  44         if(!$comment && $function && (m/^$/ || m/^-+$/))
  45             {
  46              push(@funcargs,"void") if($#funcargs==-1);
  47
  48              $f="$functype $funcname(".join(",",@funcargs).");";
  49
  50              push(@local,$f)  if($functype =~ m/static/);
  51              push(@global,$f) if($functype !~ m/static/);
  52
  53              $functype="";
  54              $funcname="";
  55              @funcargs=();
  56              $function=0;
  57             }
  58        }
  59
  60    close(CXREF);
  61
  62 # Output the results
  63
  64    print "\n /* local functions in $file */\n\n";
  65
  66    foreach $f (@local)
  67        {
  68         print "$f\n";
  69        }
  70
  71    print "\n /* global functions in $file */\n\n";
  72
  73    foreach $f (@global)
  74        {
  75         print "$f\n";
  76        }
  77
  78   }