tools/cxref/contrib/daVinvi_function.pl

   1 #!/bin/sh
   2 #
   3 # Converts the cxref output files into a format that can be read into
   4 # the DaVinci graph drawing program.
   5 #
   6 # (c) 1999 Andrew M. Bishop
   7 #
   8
   9 exec perl -x $0 $*
  10
  11 #!perl
  12
  13 die "Usage: $0 cxref.include\n" if($#ARGV==-1);
  14
  15 open(FUNCTION,"<$ARGV[0]") || die "Cannot open $ARGV[0]\n";
  16
  17 %sysfunctions=();
  18 %localfunctions=();
  19 %function=();
  20
  21 while(<FUNCTION>)
  22   {
  23    chop;
  24    ($file,$function,$scope,@calls)=split(/ /);
  25
  26    $localfunctions{$function}=1;
  27
  28    $function{$function}="$file:$function";
  29   }
  30
  31 print "[\n";
  32
  33 close(FUNCTION);
  34
  35 open(FUNCTION,"<$ARGV[0]") || die "Cannot open $ARGV[0]\n";
  36
  37 while(<FUNCTION>)
  38   {
  39    chop;
  40    ($file,$function,$scope,@calls)=split(/ /);
  41
  42    if($scope==1)
  43        {
  44         print "l(\"$file:$function\",n(\"\",[a(\"OBJECT\",\"$function\")],\n";
  45        }
  46    else
  47        {
  48         print "l(\"$file:$function\",n(\"\",[a(\"OBJECT\",\"$function\")],\n";
  49        }
  50
  51    print "\t[\n";
  52    foreach $call (@calls)
  53        {
  54         next if($call =~ /\&/);
  55
  56         if($call =~ /^%(.+)$/)
  57             {
  58              print "\te(\"\",[],r(\"$file:$1\")),\n";
  59             }
  60         elsif($function{$call})
  61             {
  62              print "\te(\"\",[],r(\"$function{$call}\")),\n";
  63             }
  64         else
  65             {
  66              print "\te(\"\",[],r(\"$call\")),\n";
  67              $sysfunctions{$call}=1;
  68             }
  69        }
  70    print "\t]))\n,\n";
  71   }
  72
  73 foreach $function (keys(%sysfunctions))
  74   {
  75    print "l(\"$function\",n(\"\",[a(\"OBJECT\",\"$function\"),a(\"COLOR\",\"#808080\")],[]))\n,\n";
  76   }
  77
  78 print "]\n";
  79
  80 close(FUNCTION);